Macro to Print multiple sheets

**wjk221** · 05-01-2014, 03:30 PM

Hello everybody I am trying to print multiple sheets from the same work book at the same time. I know I could record a macro to do it. My question is could you use an if then statement to print based on if a cell had a value in it?

**alansidman** · 05-01-2014, 03:37 PM

Simple answer is yes. Why don't you present us with your recorded macro and tell us what you would like to change or amend to make it work for you.

**wjk221** · 05-02-2014, 10:50 AM

I recorded printing all of the sheets, all of them are 6 pages long. I need to only print the pages that have data in them. I will attach a copy of the work book to so you can see what I am talking about.

Sub Print_Sheets()
'
' Print_Sheets Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("HGBT").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("HGT").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

If anybody has any questions, please let me know