زر طباعة

[أستيكا]

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

 

اخوانى الاعزاء 

 

برجاء الاطلاع على المرفق والتكرم بعمل زر طباعة لكشف الحساب بحيث يتم اخفاء الصفوف الفارغة قبل الطباعة 

 

مع الشكر

Vendors.rar

[أبو إيمان]

أخي الفاضل 

بحسب سؤالك 

إليك هذا الكود الخاص بالأستاذ محمود الشريف

Sub Printing()
    
    Rows([Row] & ":38").EntireRow.Hidden = True
    
    ActiveWindow.SelectedSheets.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    
    Rows("8:38").EntireRow.Hidden = False

End Sub

وإليك كود أخر وأعتذر عن تقديم اسم صاحبه

  With Sheets("كشف 1")
    With .UsedRange
      For i = 1 To .Rows.Count
        If .Cells(i, 1).Value = "" Then
          .Cells(i, 1).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

[أبو إيمان]

وإليك الموضوع في الرابط التالي قد يفيدك إن شاء الله

http://www.officena.net/ib/index.php?showtopic=51423&page=2&hl=%2B%D8%A7%D9%84%D8%B5%D9%81%D9%88%D9%81+%2B%D8%A7%D9%84%D9%81%D8%A7%D8%B1%D8%BA%D8%A9+%2B%D8%B9%D9%86%D8%AF+%2B%D8%A7%D9%84%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9#entry345493