Avatar billede bamberg Nybegynder
16. januar 2005 - 09:28 Der er 5 kommentarer og
1 løsning

Header og footer skal ikke printes på side 1

Kan det lade sig gøre at en brugerdefineret header og footer ikke bliver printet på side 1 og hvordan?
Avatar billede jkrons Professor
16. januar 2005 - 12:17 #1
Ikke umiddelbart, da et regneark ikke kan sektionsopdeles på samme måde som i Word.
Avatar billede Slettet bruger
16. januar 2005 - 17:15 #2
Det vil være nemmest at lave side 1 som et selvstændigt dokument.
Avatar billede jkrons Professor
17. januar 2005 - 15:12 #3
hans-jensen-> Det kan bare drille lidt i Excel, hvis data på side 1 skal hænge sammen med data på øvrige sider, via opslagsformeler osv.
Avatar billede bak Seniormester
18. januar 2005 - 18:00 #4
Med en makro kan det godt gøres
Denne udskriver side 1 uden header/footers og resten med.

Sub FirstPageBlank()
Dim stLHead As String, stRHead As String, stCHead As String
Dim stLfoot As String, stCfoot As String, stRfoot As String

'Gem setup og nulstil header og footer
With ActiveSheet.PageSetup
    stLHead = .LeftHeader
    .LeftHeader = ""
    stCHead = .CenterHeader
    .CenterHeader = ""
    stRHead = .RightHeader
    .RightHeader = ""
    stLfoot = .LeftFooter
    .LeftFooter = ""
    stCfoot = .CenterFooter
    .CenterFooter = ""
    stRfoot = .RightFooter
    .RightFooter = ""
End With

'udskriv første side
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1

'indsæt den gemte opsætning med headers og footers
With ActiveSheet.PageSetup
    .LeftHeader = stLHead
    .CenterHeader = stCHead
    .RightHeader = stRHead
    .LeftFooter = stLfoot
    .CenterFooter = stCfoot
    .RightFooter = stRfoot
End With

'udskriv resten
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=100
End Sub
Avatar billede bamberg Nybegynder
18. januar 2005 - 22:55 #5
Jamen, det var da dejligt! :-) Vil du så ikke svar, så at du kan få pointene?
Avatar billede bak Seniormester
18. januar 2005 - 23:18 #6
ja, velbekomme
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester