Macro which prints my entire workbook (ie all 4 pages together)

[Totton]

Hi All

I'm in need of a macro which prints my entire workbook (that is all 4 pages together).

I tried using the one below but it seems to print the pages separately .... any help on this would be greatly appreciated

Sub PrintAll()
Dim sh As Worksheet
Dim wb As Workbook
Set wb = ThisWorkbook
For Each sh In wb.Worksheets
sh.PrintOut
Next sh
End Sub

 

[StuLux]

Please clarify - do you have 4 tabs in your workbook and you want them all to print on one sheet of paper?

 

[CephasOz]

If you want them all printed on separate pages, but as one printout, use:

ThisWorkbook.Worksheets.PrintOut

 

[Totton]

Sorry I have 4 tabs in the one Workbook was hoping they would all print on seperate pages but in one stream of printing ?

 

[Totton]

OMG that worked!!!!! thank you so much

I'm very new to this and really appreciate you both coming back so quickly

 

[CephasOz]

Glad to help.