User select printer in print macro
This should be just what you want. It also restores the users default
printer after printing.
strOldActivePrinter = Application.ActivePrinter
Application.Dialogs(9).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = strOldActivePrinter
Lee
|