プリンターの印刷ダイアログ、設定ダイアログを表示する。

VBAのApplication.DialogsコレクションのShowメソッドを利用することでプリンターの印刷ダイアログ、設定ダイアログを表示させることができます。

ダイアログの表示を指定するにはApplication.Dialogsコレクションの引数にXlBuiltInDialog列挙体の定数（xlDialogPrint、xlDialogPrinterSetup）を指定します。

　●印刷ダイアログを表示

'*****************************************************************
'　プリンターの印刷ダイアログを表示
'*****************************************************************
Sub dialogPrinter()
Dim bRtn As Boolean
    
    bRtn = Application.Dialogs(xlDialogPrint).Show

    Select Case bRtn
    Case True
        Debug.Print "印刷しました"
    Case False
        Debug.Print "印刷がキャンセルされました"
    End Select
    
End Sub

　■実行結果

　●設定ダイアログを表示

'*****************************************************************
'　プリンターの設定ダイアログを表示
'*****************************************************************
Sub dialogPrinterSetting()
    
    'の設定ダイアログの表示
    Dim bRtn As Boolean
    bRtn = Application.Dialogs(xlDialogPrinterSetup).Show
    
    Select Case bRtn
    Case True
        Debug.Print "ＯＫ"
    Case False
        Debug.Print "キャンセル"
    End Select

End Sub

　■実行結果