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

こちらがご参考になるかもしれません。
http://blogs.yahoo.co.jp/bardiel_of_may/40864687.html

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

お礼

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

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