You just select my answer and click on the two button over on the right.

--
Regards,
Tom Ogilvy


"TonyD" wrote in message
...
Thanks Tom it worked fine.

How do I rate responses to my questions?

"Tom Ogilvy" wrote:

Sub AABB()
res = Application.Dialogs( _
xlDialogPrint).Show(, , , , , , , , , , , 1)
End Sub

worked for me.

--
Regards,
Tom Ogilvy



"TonyD" wrote:

Is there any way that I can make the windows printer dialogue box
appear and
select the option "Selection" automatically in the "Print_What" area? I
tried
the following but it doesn't select "Selection" and when I try to print
it
keeps coming back.

Application.Dialogs(xlDialogPrint).Show ,,,,,,selection