Hi
not possible with a VBA macro which will first print the first page
without a header, then apply the header and print all other pages. Try
recording a macro while doing this manually
Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = "Your Header info"
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = "Your Header info"
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.