First page without page number

[Sahak]

hi all,

(Excel 2002)
Is it possible if you have to print more than one pages have first page without page number (1), start numbering from second page (2,3,4,….)

Thank you in advance

 

[Bill_Biggs]

I am not sure if there is a quicker way. Goto print, select the entire book, then click preview. In the preview select the setup and on page 2-the end, set up a custom footer but don't do this on the first page. There may be a quicker way to do this with a macro, but since no one else has helped you yet, I thought I would offer you this advice. Good luck.

 

[Sahak]

Hi Bill,

Thank you very much for reply.
I’m sorry for late, my internet was down.
I will take your advice. (To be honest I would prefer this with a macro.)

Thanks again

 

[Peter_SSs]

You could try this code. It should be in the "ThisWorkbook" section.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_BeforePrint(Cancel <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>)<br>    Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN><br>    Cancel = <SPAN style="color:#00007F">True</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> ActiveSheet.PageSetup<br>        .CenterFooter = ""<br>        .FirstPageNumber = xlAutomatic<br>        ActiveSheet.PrintOut From:=1, To:=1<br>        .CenterFooter = "&P"<br>        ActiveSheet.PrintOut From:=2, To:=32766<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Sahak]

Hi Peter,

Thank you very much for code, appreciated.

Sahak

 

[Bill_Biggs]

I tried it and bygolly, it worked great!

 

[Sahak]

Thank you Bill again.