Selektive sidehoveder og sidefødder

En af de lange tid klager over Excel er, at det ikke har en meget robust metode til at skabe og styre sidehoveder og sidefødder. Forestil dig følgende situation: Du ønsker at udskrive regnearket, men kun have sidetal begynder den anden side.

Der er ingen iboende metode i Excel til at håndtere denne situation. Der er nogle løsninger; for eksempel, kan du sætte din første side på et arbejdsark (uden Sidehoved og -fod) og de efterfølgende sider på et andet regneark (som omfatter sidehoveder og sidefødder). Du kan derefter udskrive de to regneark i én, og effektivt at nå dit mål.

Hvis du har Rapportstyring installeret, kan du bruge det til at sammensætte forskellige rapporter baseret på oplysningerne i regnearket. Brug af Rapportstyring er blevet dækket i andre spørgsmål af ExcelTips. I rapporten manager tilføjelsesprogrammet blev senest fordelt med Excel 2002, men du kan stadig bruge den i Excel 2003. Denne Knowledge Base-artikel forklarer, hvordan du kan bruge det:

http://support.microsoft.com/kb/873209

Ingen af ​​disse metoder virker for alle situationer, dog. For eksempel kan du ikke være i stand til at splitte din udskrift i flere regneark, eller du måske ikke har meget erfaring med Report Manager (eller du ikke ønsker at hente og installere det). Hvis du foretrækker det, kan du oprette en makro, som vil udskrive regneark som du ønsker.

Følgende makro, GoodPrint vil udskrive den første side af et regneark uden Sidehoved og -fod, og derefter alle efterfølgende sider som normalt.

Sub GoodPrint ()
Dim hlft As String
Dim hctr As String
Dim hrgt As String
Dim flft As String
Dim valutaomregningsreserven As String
Dim frgt As String

"Gem nuværende header
hlft = ActiveSheet.PageSetup.LeftHeader
hctr = ActiveSheet.PageSetup.CenterHeader
hrgt = ActiveSheet.PageSetup.RightHeader

"Gem nuværende footer
flft = ActiveSheet.PageSetup.LeftFooter
valutaomregningsreserven = ActiveSheet.PageSetup.CenterFooter
frgt = ActiveSheet.PageSetup.RightFooter

"Fjern sidehoved og sidefod
Med ActiveSheet.PageSetup
.CenterHeader = ""
.RightHeader = ""
.LeftHeader = ""
.CenterFooter = ""
.RightFooter = ""
.LeftFooter = ""
End med

'Udskriv side en
ActiveSheet.PrintOut 1, 1

»Genoprette sidehoved og sidefod
Med ActiveSheet.PageSetup
.LeftHeader = Hlft
.CenterHeader = Hctr
.RightHeader = Hrgt
.LeftFooter = Flft
.CenterFooter = Valutaomregningsreserven
.RightFooter = Frgt
End med

"Udskrive resten af ​​siderne
ActiveSheet.PrintOut 2
End Sub

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (2189) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: Selektive sidehoveder og sidefødder.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com