Try this:
Application.Dialogs(xlDialogPrint).Show