コモン ダイアログ で選択したプリンタ名を取得するには。

解決

多分  2002-09-08 18:12:49  No: 104863  IP: [192.*.*.*]

コモン ダイアログで選択した、プリンタ名・サイズ・給紙方法を取得したいのですが、うまくいきません。

どなたか知恵をかしてください。

ソースはformにCommonDialogとCommandButtonを貼ったものです。

Option Explicit

Private Sub Command1_Click()
CommonDialog1.Flags = cdlPDPrintSetup
CommonDialog1.PrinterDefault = False
CommonDialog1.ShowPrinter
'プリンタ名の取得
'サイズの取得
'給紙方法の取得


End Sub

宜しくおねがいします。

編集 削除
多分  2002-09-08 18:51:09  No: 104864  IP: [192.*.*.*]

VB6のSP5です。宜しくお願いします。

編集 削除
さわ  2002-09-09 11:12:44  No: 104865  IP: [192.*.*.*]

Printerオブジェクトを使えば取得できたと思います。
メソッドが違うかもしれませんが・・・
Printer.Name 
Printer.PaperSize
等があったと思いますが？

編集 削除
多分  2002-09-09 15:16:47  No: 104866  IP: [192.*.*.*]

さわさんお返事ありがとうございます。

説明が少し足りなかったようで、ごめんなさい。
CommonDialog1.PrinterDefault をFALSEにすることにより、
システムプリンタを変更しないで、
選択されたプリンタ（システムプリンタ以外）の名称・サイズ・給紙方法を取得したかったのです。

引き続き宜しくお願いします。

編集 削除
さわ  2002-09-09 17:51:02  No: 104867  IP: [192.*.*.*]

Dim oPrinter As Printer
For Each oPrinter In Printers
    With oPrinter
        Debug.Print .DeviceName
        Debug.Print .PaperSize
        Debug.Print .PaperBin
    End With
Next
プリンターの登録がされているもの？であれば
↑で取れますよね？詳細の欲しいプリンタを特定する為の
情報？名前等は当然必要になってしまいますけど。。
システムプリンタ？デフォルト？って事でしょうか？
当然変更はされません。
的外れだったらすいません。。

編集 削除
多分  2002-09-09 18:26:24  No: 104868  IP: [192.*.*.*]

さわさんありがとうございます。

詳細の欲しいプリンタを特定する為の
情報？名前等は当然必要になってしまいますけど。。

名前が欲しかったのですが。
上のソースを利用して、新たに一つホームを作る事にします。
で、選択されたプリンタを取得します。

あとシステムプリンタはデフォルトプリンタのつもりで書きました。

いろいろありがとうございました。

編集 削除