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

リンク元へ戻ります。 印刷関係のメニュー
1.指定位置に(文字・罫線・指定フォントで)印刷する
2.ピクチャーの内容を印刷する
3.網掛け文字を表示及び印字
4.プリンターの指定方法
5.用紙サイズ・用紙の向き・用紙トレイ・印刷枚数・拡大縮小を指定する
6.プリンターの印刷余白及び用紙サイズを取得
7.関連付け起動によるファイルの印刷
8.[プリンターの設定]ダイアログボックスを表示する
9.その他上記以外の印刷関係のサンプル
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.


4.プリンターの指定方法
1.指定のプリンターで印刷する
2.プリンターを列挙して、その中から選択する
3. 
4. 
5. 
6. 

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

その他 :
    :
このページのトップへ移動します。 1.指定のプリンターで印刷する(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

プリンター名を指定する場合、大文字・小文字・半角・全角の区別に注意して下さい。

このページのトップへ移動します。 2.プリンターを列挙して、その中から選択する(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

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


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


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


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


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
プリンターを選択して印刷 プリンターを選択する 通常使用するプリンター 指定のプリンターで印刷する プリンターの一覧を表示
プリンター-を列挙する 選択したプリンターで印刷



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