Printing macro

[Louisa]

I need to write a macro to first do a Print Preview, then
allow for printer selection by the user and then print
Can anyone give me a hand
I appreciate your help in advance
Louis

 

[Vasant Nanavati]

Low-tech, but:

Sub PreviewAndPrint()
Sheet1.PrintPreview
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Louise]

Thanks for the tip. It does work. The only problem is that once you are in the print dialogue box the "cancel" button works as an "OK" button as well. Any other ideas? Or should I use a UserVal maybe
Again, thanks for your help
Louise

 

[Vasant Nanavati]

Are you sure? It works as expected on my system.

--

Vasant

Thanks for the tip. It does work. The only problem is that once you are in

the print dialogue box the "cancel" button works as an "OK" button as well.
Any other ideas? Or should I use a UserVal maybe?

 

[Louise]

It does work. I had extra code that was messing it us. Thanks!