Header

  • Thread starter Thread starter Guest
  • Start date Start date
From Ron deBruin's site on Print Tips

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 = ""
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub

For more tips on headers/footers see Ron's pages at

http://www.rondebruin.nl/print.htm


Gord Dibben MS Excel MVP

On Wed, 23 Aug 2006 12:51:01 -0700, Medical Records <Medical
 
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

Recurring header. 1
Access Sorting and grouping using multiple tables 0
Access Page Header with merge field 0
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
Header or Footer - Reference a Cell 5
Omit header from first page without embedding header in code 6
Date & Time Stamp for printing 1
Page Break Column Headers 1

Back
Top