عند الطباعة حفظ كشف حساب على شكل صورة

[الـعيدروس]

السلام عليكم

هذا التعديل بعد اضافة عرض عداد الصفحات الذي اشار اليه اخي الحبيب أبو أنس حاجب حفظه الله

Sub P_A()

Application.ScreenUpdating = False

With ActiveSheet

With .PageSetup

  .PrintTitleRows = "$1:$1"

  .CenterFooter = "صفحة &P من &N"

  .Zoom = False

  .FitToPagesWide = 1

  .FitToPagesTall = False

End With

With .Range("A1:I60000")

  .Select

  .AutoFilter

  .AutoFilter Field:=2, Criteria1:=">""", Operator:=xlAnd

   ActiveSheet.PrintPreview

  .AutoFilter: [A1].Select

End With

End With

Application.ScreenUpdating = True

End Sub

[إبراهيم ابوليله]

الاخ عباد

مشكورا على الرد

ولكن هل يمكن عمل زر يظهر بجوار

كلمة صفحه من

يقوم بتمكينى من التنقل لمشاهده باقى الصفحات