I have the following code:
How can I make the macro Not Print the page it selects in this code, if on that specific page it selects, if cell A1 (on that page) = 0, meaning there is no data on the page.
ANy help?
Code:
Sheets("TITLEPAGE").Visible = True
Sheets("TITLEPAGE").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("TITLEPAGE").Select
ActiveWindow.SelectedSheets.Visible = False
Application.Run "Assets"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "LiabEq"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "IncomeStmt"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Intercompany"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Inventory"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "PPE-MONTH"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Intangibles"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Headcount"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "debt"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Bonus"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Statistics"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
Application.Run "Check"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Run "DataPage"
How can I make the macro Not Print the page it selects in this code, if on that specific page it selects, if cell A1 (on that page) = 0, meaning there is no data on the page.
ANy help?