Header

  • Thread starter Thread starter Guest
  • Start date Start date
Mark. try this code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'will print the header on 1st page only
'Original code by Ron de Bruin

Totpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.CenterHeader = "Put your header here"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1
.CenterHeader = ""
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=Totpage
End With
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **
 
You must log in or register to reply here.

Ask a Question

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.

Ask a Question

Similar Threads

Change Header on Multiple Sheets without Changing Other Formatting 1
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
printing a header in Excel 2
Access Page Header with merge field 0
F at the top of the page 1
Different First Page? 2
How pull ID#s that meet specific "yes" requirements 3
Headers in Excel 1

Back
Top