أبو قاسم قام بنشر أبريل 25, 2018 قام بنشر أبريل 25, 2018 حفظ بينات الست بوكس الى 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.