Jde pomocí makra na konkrétním listě. Přiřadil bych to na událost SelectionChange.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$23"
With ActiveSheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = Range("A1")
.RightHeader = "&F"
End With
End Subcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$23"
With ActiveSheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = Range("A1")
.RightHeader = "&F"
End With
End Subcitovat