حفظ بينات الست بوكس الى pdf

[أبو قاسم]

حفظ بينات الست بوكس الى  pdf

مثلا ان ان ابحث في الفورم عن بيانات شخص بين تايخين وبعد البحث ارسال النتيجة حفظ pdf 

Private Sub ButtonSaveFil_Click()
Dim iC As Integer
iC = Me.ListFind.ListCount
If iC = 0 Then GoTo 1
'------------------------
Application.ScreenUpdating = False
With Workbooks.Add(xlWBATWorksheet)
    With .Sheets(1)
        .Range("A1").Resize(1, ContColmn).Value = sRng.Value
        .Range("A2").Resize(iC, ContColmn).Value = Me.ListFind.List
        .UsedRange.Columns.AutoFit
    End With
End With
Application.ScreenUpdating = True
Unload Me
1
End Sub

التعديل على الكود لجعلة يحفظ البيانات pdf

[أبو قاسم]

up

[أبو قاسم]

up

[ناصر سعيد]

للرفع .. جزاكم الله خيرا

[أبو قاسم]

up

[أبو قاسم]

up

[أبو قاسم]

up

[أبو قاسم]

up

[أبو قاسم]

up

[أبو قاسم]

up

[أبو قاسم]

up