yassershatta

يمكنك اختيار الشيت وكذلك خلية لليسار واخرى للوسط واخرى لليمين

Private Sub CommandButton1_Click()
' prnt Macro
With ActiveSheet.PageSetup
.LeftHeader = Sheet1.Range("a2")
.CenterHeader = Sheet1.Range("b2")
.RightFooter = Sheet1.Range("c2")
.LeftFooter = Sheet1.Range("a22")
.CenterFooter = Sheet1.Range("b22")
.RightFooter = Sheet2.Range("a23")
End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

بالتوفيق وعلى بركة الله

عمل رائع ومجهودمشكور