يمكنك اختيار الشيت وكذلك خلية لليسار واخرى للوسط واخرى لليمين
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