Option Explicit

Sub PrintMe()
  Application.Dialogs(xlDialogPrint).Show arg12:=1
End Sub