مساعده في الطباعه

[goldposition]

 السلام عليكم ورحمة الله وبركاته في الملف المرفق محتاج احدد الاعمد المراد طباعتها واحذف باقي الاعمده مع العلم اني لو حذفت عمود من النص كلهم يترتبو جمب بعضهم وشكرا

Database1.accdb

تم تعديل أبريل 16, 2019 بواسطه goldposition
add

[jjafferr]

وعليكم السلام ورحمة الله وبركاته 🙂

 

عملت تغيير في اسماء الحقول في النموذج ، حتى تشير الى نوع الحقل المطلوب العمل عليه ،

والنتيجة:

.

.

 

وهذا هو الكود في حدث فتح التقرير

Private Sub Report_Open(Cancel As Integer)

    'keep orignal widths in a temp place
    'num
    If Len(Me.num.Tag & "") = 0 Then
        Me.num.Tag = Me.num.Width
    End If
    'name
    If Len(Me![name].Tag & "") = 0 Then
        Me![name].Tag = Me![name].Width
    End If
    'tel
    If Len(Me.tel.Tag & "") = 0 Then
        Me.tel.Tag = Me.tel.Width
    End If
    
    
    'now take the required fields from Form1
    'num
    If Forms!Form1!chk_num = -1 Then
        Me.num.Width = Me.num.Tag
        Me.num.Visible = True
    Else
        Me.num.Width = 0
        Me.num.Visible = False
    End If
    
    'name
    If Forms!Form1!chk_name = -1 Then
        Me![name].Width = Me![name].Tag
        Me![name].Visible = True
    Else
        Me![name].Width = 0
        Me![name].Visible = False
    End If
        
    'tel
    If Forms!Form1!chk_tel = -1 Then
        Me.tel.Width = Me.tel.Tag
        Me.tel.Visible = True
    Else
        Me.tel.Width = 0
        Me.tel.Visible = False
    End If
    
End Sub

 

جعفر

1039.Database1.accdb.zip

[goldposition]

تسلم هو ده المطلوب جراك الله خيرا