[[20090210105145]]　『リモートプリントのマクロ』（バディ）　ページの最後に飛ぶ

『リモートプリントのマクロ』（バディ）

 病院内のネットワークに接続した他のクライアントのプリンタに印刷させるマクロを作っているのですが、
 マクロ記述の　Ｎｅ０３　という記述の情報はエクセルが自動的に作成しているのですが、
 プリンタのどこの情報からもってきているのでしょうか？
 各クライアントで微妙に　Ｎｅ・・・　が変ってくるので、これを制御したいのですが。

Sub wstprt()

    Range("Z2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("Z9").Select
    Range("A1:B1").Select

    ActiveSheet.PrintOut

    Application.ActivePrinter = "Ne03: の \\S135DA_SERVER\Canon LASER SHOT LBP-1120"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
    "Ne03: の \\S135DA_SERVER\Canon LASER SHOT LBP-1120", Collate:=True

    ActiveWorkbook.Close savechanges:=True, _
    Filename:="d:\食事箋F\食事箋" & Range("n1") & Range("e4") & Range("g4") & ".xls"

End Sub

エクセルのバージョンは２０００です、ＯＳはＸＰです

 >[スタート］-［設定］-［プリンタ］プリンタアイコン右クリックして［プロパティ］
 で出てきませんか？
 (seiya)

 こんなので動きますか？

 '------
Sub プリンタ切換()
Dim pn As String
    pn = Application.ActivePrinter
    ActiveSheet.PrintOut , ActivePrinter:="\\S135DA_SERVER\Canon LASER SHOT LBP-1120"
    Application.ActivePrinter = pn
End Sub
 '------

 (HANA)

 このマクロを実行した全てのＰＣで
 「\\S135DA_SERVER\Canon LASER SHOT LBP-1120」
 のプリンタから出力されれば良いのですよね？

 それとも、どのプリンタから出力するかは
 決まっていないのでしょうか・・・？

 (HANA)

上手くいきました。ＨＡＮＡさんありがとうございました。また分らないときはお願いします。（バディ）

コメント返信：

[ 一覧(最新更新順) ]

[[20090210105145]] 『リモートプリントのマクロ』（バディ） ページの最後に飛ぶ

[[20090210105145]]　『リモートプリントのマクロ』（バディ）　ページの最後に飛ぶ