حفظ بينات الست بوكس الى 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