then I find this....

Try:
'It saves the current printer name, prompts you to select an installed
'Printer, Prints and then restores the old printer.

strOldActivePrinter = Application.ActivePrinter
Application.Dialogs(9).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = strOldActivePrinter


Also you can get the new printer that was selected through these calls

Application.Dialogs(9).Show
newPrinter = Application.ActivePrinter


--
JWM6
------------------------------------------------------------------------
JWM6's Profile: http://www.excelforum.com/member.php...o&userid=33413
View this thread: http://www.excelforum.com/showthread...hreadid=532262