44.簡単な印刷機能の利用
Printerオブジェクトを利用することにより、Windowsで設定されている「通常使うプリンタ」で印刷を行うことができます。
| 構文
Printer.Print 印刷する内容（文字列） |
以下のコードでは、ボタン(Command1)を押した時に、確認メッセージを表示した上でテキストボックス（Text1）の内容を印刷します。 その際に、Printer.EndDocを忘れないで下さい。これが印刷開始の合図となります。また、エラー発生した場合はその内容を表示します。
| Private Sub
Command1_Click() On Error GoTo Err_Hundle Dim strPrinterName As String Dim ret As Integer ' プリンターのデバイス名を取得 strPrinterName = Printer.DeviceName ' 印刷するかどうか確認 ret = MsgBox(Printer.DeviceName & " で印刷を行います。", _ vbOKCancel, "印刷") ' OKなら印刷 If ret = vbOK Then Printer.Print Text1.Text Printer.EndDoc End If Exit Sub ' エラーの内容を表示 Err_Hundle: MsgBox Err.Description, vbCritical, "Error:" & Err.Number End Sub |