VB.NETからExcelを開きプリンタ名を指定

いつも大変お世話になっています。

VB.NETからExcelを開きプリンタ名を指定方法について
ご助力お願いします。

以下の処理は、指定したプリンタ名を
Excelのプリンタ名のデフォルト値として設定しています。
―――――――――――――――――――――――

' Excel.Application の新しいインスタンスを生成する
Dim xlApplication As New Excel.Application()
Dim xlBooks As Excel.Workbooks

' xlApplication から WorkBooks を取得する
xlBooks = xlApplication.Workbooks

' 既存の Excel ブックを開く
xlBooks.Open(txtPath.Text)

Dim i As Integer
For i = 0 To System.Drawing.Printing.PrinterSettings.InstalledPrinters.Count
　Try
　　　’※
　　　xlApplication.ActivePrinter= 「プリンタ名」 & " on Ne" & Format(i, "00") & ":"
　 Exit For
　Catch ex As Exception
　 Debug.Print(ex.Message)
　End Try
Next

' Excel を表示する
xlApplication.Visible = True

―――――――――――――――――――――――

◆※について
「on Ne」ですが、恐らくネットワークポートを指していると思います。
その他のポートを指す「on Ne」のようなものは他にもあるのでしょうか？
例えば、「on LPT」？「on COM」？とか…

◆指定したプリンタ名のポート（on Ne）取得について
指定したプリンタが使用しているポート（on Ne）を取得する方法が
ありましたら教えてください！

以上です。よろしくお願い致します。

No.1 回答者： mitarashi 回答日時： 2011/01/12 00:32

こちらがご参考になるかもしれません。

http://blogs.yahoo.co.jp/bardiel_of_may/40864687 …

ただ、PrintOutメソッドの引数のActivePrinterはポート番号がなくてもOKなので、
印刷時に指定すれば気にしなくても良いという話もあります。
http://oshiete.goo.ne.jp/qa/2928852.html

この回答へのお礼

ご回答誠にありがとうございます。

教えて頂いたURLを参考に作成してみます。

お礼日時：2011/01/12 10:27