newclasshero
New Member
- Joined
- Sep 1, 2006
- Messages
- 46
I have a Workbook that contains mutiple worksheets that print out with the following macro:
Sheets("Endsheet").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("V I S").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("FAX Currency-Tag").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
:=True
Sheets("FAX C.B. - OCI").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("Fax Dealer").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Sheets("FAX C.B. - OCI").Select
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _
:=True
If cell A1 in "V I S"="Brian" I need to print all of the sheets in a different order (and add a couple of extra pages not in the original macro). Any help on how to do this would be great. How would I go from a single minded macro to a if based macro. Thank you for any insight.
Sheets("Endsheet").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("V I S").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("FAX Currency-Tag").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
:=True
Sheets("FAX C.B. - OCI").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("Fax Dealer").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Sheets("FAX C.B. - OCI").Select
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate _
:=True
If cell A1 in "V I S"="Brian" I need to print all of the sheets in a different order (and add a couple of extra pages not in the original macro). Any help on how to do this would be great. How would I go from a single minded macro to a if based macro. Thank you for any insight.