printing specifc pages

**Excel_erator** · 11-30-2011, 05:08 PM

I want to know how I can make it so you can choose what pages to print for each sheet in a workbook. I currently have done it through the macro recorder but it does not leave it up to you what pages to print its currently static. I want to make it you are asked what pages to print there are only 6 per sheet so I want that limited as well all sheets are going to print too, so I do not need to select which sheet they all need to print, this is my current macro

Sub print_specific_pages()
'
' print_specific_pages Macro
' Macro recorded 10/18/2011
'

'
Sheets("24").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("28").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("44").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("48").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("117").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("119").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("120").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("122").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("126").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("128").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("130").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("140").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("410").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("411").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("412").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("418").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("420").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("424").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("428").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("429").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("432").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("437").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("441").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("445").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("447").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("454").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("455").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("459").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("473").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("474").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("476").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("478").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("479").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("485").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("627").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("638").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("640").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("643").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("671").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("677").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("678").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("679").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("686").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("687").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("688").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("690").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("741").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("748").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("762").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True
'
Sheets("769").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("777").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("1001").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("1010").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("1015").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("1038").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("1050").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '
Sheets("1071").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=1, Collate _
:=True '

End Sub

**JieJenn** · 11-30-2011, 05:24 PM

Something like this?

Please Login or Register  to view this content.

**Excel_erator** · 11-30-2011, 05:55 PM

Originally Posted by JieJenn

Something like this?

Please Login or Register  to view this content.

Where would I place this in my macro? I want to be able to press a button and this all happens at once, the prompt for the pages and then once the second one is entered it starts printing.

**Excel_erator** · 11-30-2011, 06:22 PM

Originally Posted by Excel_erator

Where would I place this in my macro? I want to be able to press a button and this all happens at once, the prompt for the pages and then once the second one is entered it starts printing.

Never mind I figured it out
Dim BegP As Integer, EndP As Integer

BegP = InputBox("Starting Page", "Print")
EndP = InputBox("Last Page to print", "Print")
Sheets("24").Select
ActiveWindow.SelectedSheets.PrintOut from:=BegP, to:=EndP, Copies:=1, Collate _
:=True
Sheets("48").Select
ActiveWindow.SelectedSheets.PrintOut from:=BegP, to:=EndP, Copies:=1, Collate _
:=True

I will just have to add all the statements for all the sheets Thanks for your help!!!