４．プリンターの指定方法

１．指定のプリンターで印刷する ２．プリンターを列挙して、その中から選択する ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API： その他　： 　　　　：

１．指定のプリンターで印刷する(066)　 　2002.05.15 　　修1 2007.03.19

Option Explicit Private strMyPrinter As String Private Sub Command1_Click() '指定のプリンターで印刷 　　Dim objPrinter　 As Printer 　　Dim strMyPrinter As String 　　Dim PinPon　　　 As Boolean 　　strMyPrinter = "EPSON PM-3300C"　　　　 '指定のプリンター 　　For Each objPrinter In Printers　　　　 '使用可能プリンターを調べ 　　　　If objPrinter.DeviceName = strMyPrinter Then　　'見つかったら 　　　　　　Set Printer = objPrinter　　　　'オブジェクトに代入 　　　　　　Printer.Print "指定したプリンター(" & strMyPrinter & _ 　　　　　　　　　　　　　　　　　　　　　　　") で印字しました。" 　　　　　　Printer.EndDoc 　　　　　　PinPon = True　　'見つかった 　　　　End If 　　Next 　　If PinPon = False Then 　　　　MsgBox "指定のプリンターが見つかりません" 　　End If End Sub プリンター名を指定する場合、大文字・小文字・半角・全角の区別に注意して下さい。

２．プリンターを列挙して、その中から選択する(066) 　　　2002.05.15 　　修1 2007.03.19

Option Explicit Private Sub Command2_Click() 'プリンターを ListBox に列挙する 　　Dim objPrinter As Printer 　　Dim i As Integer 　　List1.Clear 　　strMyPrinter = Printer.DeviceName '現在のプリンター 　　For Each objPrinter In Printers 　　　　List1.AddItem objPrinter.DeviceName 　　　　If strMyPrinter = objPrinter.DeviceName Then 　　　　　　List1.Selected(i) = True '現在のプリンターを選択状態に 　　　　End If 　　　　i = i + 1 　　Next End Sub Private Sub List1_DblClick() '選択したプリンターで印刷 　　Dim objPrinter As Printer 　　strMyPrinter = List1.List(List1.ListIndex)　'指定のプリンター 　　For Each objPrinter In Printers 　　　　If objPrinter.DeviceName = strMyPrinter Then 　　　　　　Set Printer = objPrinter　　'オブジェクトに代入 　　　　　　Printer.Print "指定したプリンター(" & strMyPrinter & _ 　　　　　　　　　　　　　　　　　　　　　　　") で印字しました。" 　　　　　　Printer.EndDoc 　　　　End If 　　Next End Sub

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

プリンターを選択して印刷　プリンターを選択する　通常使用するプリンター　指定のプリンターで印刷する　プリンターの一覧を表示 プリンター-を列挙する　選択したプリンターで印刷