How do I get the header to skip the first page?

  • Thread starter Thread starter apearce223
  • Start date Start date
A

apearce223

I found an answer about using code but that is WAY over my head. Is there
anything else that is more simple. I am printing out quotes with our
business name and info on the front page. With the header there also, it
doesnt look very professional.
 
If the code is way over your head and you don't want to try it, your next option
is the print the first page without a header as one print job, then the rest
with a header.

Using a macro from Ron de Bruin http://www.rondebruin.nl/print.htm#not

modified slightly you can print at one go with no header on page1 and header on
rest of pages.

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.RightHeader = ""
ActiveSheet.PrintOut From:=1, To:=1
.RightHeader = "your header stuff"
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub

Since you're not familiar with VBA and macros, see David McRitchie's site for
more on "getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run or edit the macro by going to Tool>Macro>Macros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben MS Excel MVP
 

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

Back
Top