玄関へお回り下さい。
プリンターの一覧を取得及び指定のプリンターで印刷 (4個)　　　　（SNo.053）

１．コンピューターにインストールされているすべてのプリンターの名前を取得
２．指定のプリンターで印刷する
使用コントロール Button1　ComboBox1　　2.のみ必要（PrintDocument1)　　Button2
その他条件 WindowsXP Visual Basic .NET 2003
　
１．コンピューターにインストールされているすべてのプリンターの名前を取得
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.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(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'指定のプリンターで印刷
　　'ComboBox より希望のプリンターを選択
    PrintDocument1.PrinterSettings.PrinterName = ComboBox1.Text
    'プリンター名を直接指定しても可
    'PrintDocument1.PrinterSettings.PrinterName = "EPSON LP-800"
    '印刷
    PrintDocument1.Print()
End Sub


Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
        System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'テスト印刷
    e.Graphics.DrawString("指定のプリンター『" & ComboBox1.Text & "』で印刷しました。", _
                New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, 0, 0)
End Sub






2004/05/10
2005/09/25


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005