View Single Post
  #6   Report Post  
Ron de Bruin
 
Posts: n/a
Default

Hi Jamie

I read in your other thread that you got it working
Sorry I don't tell you that this macro also print ( you not use the print button of excel)

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Jamie" wrote in message ...
Hi Ron, I'm sorry I forgot to mention that the document is protected, would
that prevent the macro from working.
--
Jamie


"Ron de Bruin" wrote:

Hi Jamie

I have no problem when I run it ?
Test it on a new workbook

Do I need to include:

No, just examples


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Jamie" wrote in message ...
Hi Ron, I have tried this macro, but my header does not appear on the second
page. I changed the coding to this:

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.LeftHeader = ""
ActiveSheet.PrintOut From:=1, To:=1
.LeftHeader = "Unit Intake Report (continued)"
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub

Do I need to include:

.CenterFooter = "&8Page &P & of &N"
.RightFooter = "&8Last Saved : &B" &
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
.LeftFooter = "&8" & ActiveWorkbook.FullName & Chr(10) & "Sheetname
: &B" & ActiveSheet.Name

Thanks
--
Jamie


"Ron de Bruin" wrote:

Hi Jamie

If you print with a macro it is possible
See http://www.rondebruin.nl/print.htm#Header

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Jamie" wrote in message ...
I'm working in Excel 2002.

How can I suppress a header on the first page, but have it print on the
pages that follow.

The text that I want printed in the header beginning on page 2 is Unit
Intake Report (continued)

Thanks
--
Jamie