プリンターの設定ダイアログボックスを表示する
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
[プリンターの設定]　ダイアログボックスを表示する　　　　　　（０３６）
　　　　
Option Explicit　　 'SampleNo=036　WindowsXP VB6.0(SP5) 2002.05.02

Private Sub sPrnSetUP()
'プリンターの設定ダイアログボックスを表示
　　On Error Resume Next
　　CommonDialog1.flags = cdlPDPrintSetup
　　CommonDialog1.ShowPrinter　 'ダイアログボックスの表示
　　'キャンセルが押されたら設定しない
　　If Err.Number Then
　　　　Err.Clear
　　　　Exit Sub
　　End If
　　'この後に印刷処理でも可
End Sub


Private Sub Command1_Click()
　　On Error Resume Next
　　Dim intRet As Integer

　　intRet = MsgBox("プリンターの設定をA4縦向きに設定していますか。" _
　　　　　　　　　　　, vbYesNoCancel, "プリンター設定確認")

　　If intRet = vbNo Then
　　　　sPrnSetUP　　　　　 'プリンターのセットアップへ
　　ElseIf intRet = vbCancel Then
　　　　Exit Sub　　　　　　'印刷しない場合
　　End If

　　intRet = MsgBox("印刷しますか？", vbYesNo, "印刷確認")
　　If intRet = vbNo Then
　　　　Exit Sub　　　　　 '印刷しない場合
　　End If


　　'印刷処理へ移行
　　Printer.Print "テスト印刷"
　　Printer.EndDoc
End Sub
CommonDialog コントロールは別途　プロジェクト→コンポーネントで選択して下さい。

cdlPDPrintSetup　等の定数については
Visual Basic Books Online　で 　[印刷]ダイアログボックスのフラグ　 で検索して見て下さい。

Windows2000やXPでは上記設定では反映されません。別途APIを使ってダイアログを表示して
下さい。　詳しくは　http://210.233.22.220/VBlabo/commonDLG/J042959.htm　参照




2002/05/02