[[20070921153246]]　『シート別にプリンターを設定』（ひろ）　ページの最後に飛ぶ

『シート別にプリンターを設定』（ひろ）

 現在、シートごとに出力するプリンターを変更しています。
 プリンターは２台あり、２台ともRICHOH IPSIO CX6100 RPCSを使用しています。
 プリンターにはトレイが１つしかないので、①のプリンターをB5専用、②のプリンターをA4専用にしています。
 シートごとにプリンターを変更して印刷するのが大変なので、sheet1にはプリンター①をsheet２にはプリンター②を・・・と設定したいのですが可能でしょうか？
 宜しくお願いします。

 マクロの記録でB5の時のプリンターとA4の時のプリンターに変更して、
 アクチブシートで条件分けして印刷させてはどうでしょうか。

 （川野鮎太郎）

 川野さん、ありがとうございます・・・・！アクチブシート。。。ちょっと勉強してみます。(ひろ)

 あまりに不親切なので・・・
こんな感じでどうでしょうか。
　
Sub Test()
'変数の定義
Dim str_mySh_Name As String
Dim str_Printer As String
　
'定数の宣言 ※　ここの宣言でマクロの記録で記録されたプリンタを指定
Const str_B5Printer As String = "RICHOH IPSIO CX6100 RPCS on Ne02"
Const str_A4Printer As String = "RICHOH IPSIO CX6100 RPCS on Ne01"
　
'アクティブなシート名を変数に代入
str_mySh_Name = ActiveSheet.Name
　
'条件分岐
Select Case str_mySh_Name
    Case "B5"
        str_Printer = str_B5Printer
    Case "A4"
        str_Printer = str_A4Printer
End Select
ActiveSheet.PrintOut ActivePrinter:=str_Printer
End Sub

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20070921153246]] 『シート別にプリンターを設定』（ひろ） ページの最後に飛ぶ

[[20070921153246]]　『シート別にプリンターを設定』（ひろ）　ページの最後に飛ぶ