Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
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
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.