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