VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 印刷関係のメニュー
1.プリンターの一覧を取得及び指定のプリンターで印刷
2.印刷位置をmm単位で指定しての簡単なテキストの印刷
3.印刷プレビューを表示及びダイアログの設定色々
4.ページ設定ダイアログボックスを表示する
5.用紙サイズの取得及び設定・印刷部数・印刷方向の設定
6.通常使うプリンターを取得及び設定する
7.画像を拡大・縮小して印刷及びファイルから直接読み込み印刷
8.格子状にラインを引いて表形式で印刷する
9.
10.
11.
12.
 . 
20.その他、当サイト内に掲載の印刷に関するサンプル 


1.プリンターの一覧を取得及び指定のプリンターで印刷(07_Pri_01) (旧、SampleNo.053)
1.コンピューターにインストールされているすべてのプリンターの名前を取得
2.指定のプリンターで印刷
3.
4.
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認: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
トロール:
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.コンピューターにインストールされているすべてのプリンターの名前を取得

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

このページのトップへ移動します。 2.指定のプリンターで印刷
別途、コンピューターにインストールされているすべてのプリンターの名前を取得でプリンターの一覧を取得しておいて下さい。

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("MS Pゴシック", 18)
        e.Graphics.DrawString("指定のプリンター『" & ComboBox1.Text & "』で印刷しました。", myFont, Brushes.Black, 0, 0)
    End Using
End Sub

このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5. 



このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
指定したプリンターで印刷する  プリンターの一覧を取得




このページのトップへ移動します。