Print Macro Needed - Specified Order of Worksheets.

[iwgunter]

I need to create a macro which depending on what I type will print of the worksheets in a specified order.

There are 7 sheets in the workbook.

I want to be able to press, for example,

CTRL+P+123 and it print sheets 4, 5, 1, 6, 2, 7, 3
CTRL+P+132 and it print sheets 4, 5, 1, 7, 3, 6, 2
CTRL+P+213 and it print sheets 4, 6, 2, 5, 1, 7, 3
CTRL+P+231 and it print sheets 4, 6, 2, 7, 3, 5, 1
CTRL+P+312 and it print sheets 4, 7, 3, 5, 1, 6, 2
CTRL+P+321 and it print sheets 4, 7, 3, 6, 2, 5, 1

Sheet 5 & 1 are linked, 6 & 2 are linked and 7 & 3 are linked

I've never worked with macros before so I don't know what is available and what isn't.


Thanks
Ian Gunter

[anilsolipuram]

to print sheets in order 4, 5, 1, 6, 2, 7, 3
sub macro1()
Sheets("Sheet4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet5").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet7").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end sub

you can write macro for remaining all print sheets order by rearranging sheet numbers in the macro code.