１．プリンターの一覧を取得及び指定のプリンターで印刷(07_Pri_01)　(旧、SampleNo.053)

１．コンピューターにインストールされているすべてのプリンターの名前を取得 ２．指定のプリンターで印刷 ３． ４． ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし 使用コン：Button1 / Button2 / ComboBox1 / PrintDocument1 トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．コンピューターにインストールされているすべてのプリンターの名前を取得

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'コンピューターにインストールされているすべてのプリンターの名前を取得     ComboBox1.Items.Clear()     For Each p As String In Printing.PrinterSettings.InstalledPrinters         ComboBox1.Items.Add(p)     '  Debug.WriteLine(p)     Next     '又は     For i As Integer = 0 To Printing.PrinterSettings.InstalledPrinters.Count - 1         Debug.WriteLine(Printing.PrinterSettings.InstalledPrinters.Item(i))     Next End Sub

２．指定のプリンターで印刷

別途、コンピューターにインストールされているすべてのプリンターの名前を取得でプリンターの一覧を取得しておいて下さい。 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '指定のプリンターで印刷     PrintDocument1.PrinterSettings.PrinterName = ComboBox1.Text     'プリンター名を直接指定しても可     'PrintDocument1.PrinterSettings.PrinterName = "EPSON LP-800"     '印刷     PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage     Using myFont As New System.Drawing.Font("ＭＳ Ｐゴシック", 18)         e.Graphics.DrawString("指定のプリンター『" & ComboBox1.Text & "』で印刷しました。", myFont, Brushes.Black, 0, 0)     End Using End Sub

３．

４．

５．

６．

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

指定したプリンターで印刷する　　プリンターの一覧を取得