كود طباعة شيت اكسل لايعمل

[ميسون الدايني]

السلام عليكم 

ارجو منكم مساعدتي بتعديل الكود في النموذج المرفق
المطلوب عند الضغط على زر الطباعة في شيت (a1) يعمل الكود على طباعة شيت (s1) بالكامل والبالغة عدد صفحاتها 6 صفحات

نموذج.xlsx

تم تعديل يونيو 2 بواسطه ميسون الدايني

[عبدالله بشير عبدالله]

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

ملفك لا بحتوى على اي كود

تم عمل كود لطلبك والكود مرن يطبع الى اخر صف قيه بيانات

Sub PrPAGES()
    Dim printWS As Worksheet
    Dim lastRow As Long
    Dim printRange As Range

    Set printWS = ThisWorkbook.Sheets("S1")
    
    lastRow = printWS.Cells(printWS.Rows.Count, "A").End(xlUp).Row

    Set printRange = printWS.Range("A1:C" & lastRow)
    
    printWS.PageSetup.PrintArea = printRange.Address
    
    printWS.PrintOut
End Sub

1نموذج.xlsb

 

تم تعديل يونيو 2 بواسطه عبدالله بشير عبدالله

[ميسون الدايني]

شكرا جزيلا استاذ @عبدالله بشير عبدالله 

الله يحفظك