プロが教えるわが家の防犯対策術!

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

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)を取得する方法が
ありましたら教えてください!

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

A 回答 (1件)

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


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

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A