Nerozumiem čo chcete. Ak nemáte na každom liste nastavenú hlavičku, tak toto nastaví rovnakú hlavičku pre všetky listy, ktoré sa majú tlačiť.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim WS As Worksheet
For Each WS In ThisWorkbook.Windows(1).SelectedSheets
WS.PageSetup.RightHeader = "&P/&N"
Next WS
Set WS = Nothing
End Sub
Teda príklad:
Označím na tlač Hárok1 a Hárok3 (Hárok2 vynechám), dám tlačiť. Pred samotnou tlačou pri náhľade ešte niesú hlavičky nastavené (záleží na konkrétnom používaní súboru). Nastaví sa to až pri stlačení čudlíku na tlačenie.
Na Hárku1 mám 1 tlačiteľnú stranu, na Hárku3 mám 3 tlačiteľné strany. Číslovanie strán vo výsledku bude.
1. strana Hárku1 - 1/4
1. strana Hárku3 - 2/4
2. strana Hárku3 - 3/4
3. strana Hárku3 - 4/4
Ak by sa Vám počet listov nemal meniť, a stále máte tie isté listy, len meníte obsah a rozsah, tak si označte všetky listy, nastavte im hlavičku ako bolo písané, a to minimakro nepotrebujete. Takto to funguje na E2016.
Ak chcete niečo iné, vložte aj prílohu, lebo teda aspoň ja fakt netuším čo iné by ste mohol chcieť ...
citovat