Custom sidetall på Utskrifter

March 17  by Eliza

Wendy ønsker å inkludere sidetall i overskriften på hennes regneark utskriften, men med en vri-Side 21A på side 1, Side 21B på side 2, Side 21C på side 3, etc. Hun lurer på hvordan du skal gå om å lage en slik side nummerering ordningen.

Det er noen måter du kan gå om å takle dette problemet, alle av dem involverer bruk av makroer. Hvis du faktisk ønsker å skrive ut alle regnearkene i den gjeldende arbeidsboken, og ingen av disse regnearkene er over en enkelt side i lengde (ved utskrift), deretter følgende makro vil sette midtre delen av overskriften som spurt:

Sub PageNums1 ()
Dim ark Som regneark
Dim J As Integer

J = 1
On Error Resume Next
For Hvert ark i regneark
Ark (J) .PageSetup.CenterHeader = "Page 21" & Chr (64 + J)
J = J + 1
Neste
End Sub

Merk at makroen faktisk ikke skrive noe; alt det gjør er å endre header informasjon. Hvis du egentlig bare ønsker å skrive ut gjeldende regneark og regnearket vil kreve flere sider på utskriften, så kan følgende skal fungere helt fint:

Sub PageNums2 ()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer

Z = 1
For X = 1 Til ActiveSheet.HPageBreaks.Count + 1
For Y = 1 Til ActiveSheet.VPageBreaks.Count + 1
ActiveSheet.PageSetup.CenterHeader = _
"Page 21" & Chr $ (64 + Z)
Worksheets.PrintOut Z, Z
Z = Z + 1
Neste Y
Neste X
End Sub

Denne makroen beregner sider basert på plasseringen av de horisontale (HPageBreaks) og vertikale (VPageBreaks) sideskift på utskriften. Du kan også prøve bare jobber med Pages samling, på denne måten:

Sub PageNums3 ()
Dim J As Integer

For J = 1 Til ActiveSheet.PageSetup.Pages.Count
ActiveSheet.PageSetup.CenterHeader = "Side 21" & Chr (64 + J)
Worksheets.PrintOut J, J
Neste J
End Sub

Du bør være oppmerksom på at uavhengig av tilnærming du velger, vil du får problemer hvis utskriften krever mer enn 26 sider.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (12548) gjelder for Microsoft Excel 2007, 2010, og 2013.