MattD
03-21-2014, 06:07 AM
Below is a piece of code that I have been working on so that a user can click a button at the end of one of our spreadsheets and it will print the important pages to be included from the document. I am having issues though because this is printing the first page separately from the rest of the pages. This would not be an issue but many of the users will be using print to pdf software that will not catch the 2nd set of pages. What could be causing this? Any help would be greatly appreciated!
Sub Printrun()
MsgBox ("Document will be sent do your default printer. The cover page, Table of Contents, Items to be included, and Issues Log will be printed")
Sheets(Array("Cover sheet", "OPR TOC", "Cover sheet", "General Information Tab", "Items to be included", "Issues Log")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("OPR TOC").Select
End Sub
Sub Printrun()
MsgBox ("Document will be sent do your default printer. The cover page, Table of Contents, Items to be included, and Issues Log will be printed")
Sheets(Array("Cover sheet", "OPR TOC", "Cover sheet", "General Information Tab", "Items to be included", "Issues Log")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("OPR TOC").Select
End Sub