Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44179 / 76732 ←次へ | 前へ→

【37574】Re:プリンターの選択
発言  ハチ  - 06/5/12(金) 12:12 -

引用なし
パスワード
   ▼春まき さん:
>よろしくお願いします。XPパソコンにUSBで2台のプリンターにつないでいます。
>複数のシートの中の一部のシートだけ通常使ってない方のプリンターで印刷できるようにマクロボタンを作っています。マクロ記録を使い以下のコードを使いました。
>
>  ActiveSheet.PageSetup.PrintArea = "$B$1:$Q$38"
>    PaperSize = xlPaperB4
>    BlackAndWhite = False
>    Zoom = 75
>  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="プリンタB on Ne01:", Collate:=True
>
>しかしこのマクロボタンを使うと以後通常使うプリンターがプリンターAに設定してあるのにプリンターBで印刷されるようになってしまします。
>その為一行コードを加えてみました。
>
>  ActiveSheet.PageSetup.PrintArea = "$B$1:$Q$38"
>    PaperSize = xlPaperB4
>    BlackAndWhite = False
>    Zoom = 75
>  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="プリン  ターB on Ne01:", Collate:=True
>Application.ActivePrinter = "プリンターA on Ne04:"
>
>すると今度は最初からプリンターAで印刷してしまい、プリンターBに切り替わらなくなりました。
>
>ボタンを押したときだけBで印刷し、印刷後Aの方をアクティブにしてくれる
>ようにするにはどうしたらいいでしょうか。

もしかしたらと思うんですが・・・
プリンタ名は本当にあってますか??
最初のマクロは "プリンタB on Ne01:"
後半のマクロは "プリンターB on Ne01:"
となってますよね?
一瞬なにかメッセージボックスを表示して印刷されてません?

>Application.ActivePrinter = "プリンターA on Ne04:"
の前後に

MsgBox Application.ActivePrinter

を入れてプリンタA→B→Aとしっかり
切り替わっているか
確認してみてはいかがでしょうか?
0 hits

【37546】プリンターの選択 春まき 06/5/11(木) 13:17 質問
【37550】Re:プリンターの選択 ちくたく 06/5/11(木) 15:40 回答
【37571】Re:プリンターの選択 春まき 06/5/12(金) 11:40 発言
【37561】Re:プリンターの選択 06/5/11(木) 21:32 発言
【37572】Re:プリンターの選択 春まき 06/5/12(金) 11:53 発言
【37604】Re:プリンターの選択 HiroHiro 06/5/12(金) 19:10 発言
【37624】Re:プリンターの選択 春まき 06/5/13(土) 6:25 発言
【37627】Re:プリンターの選択 HiroHiro 06/5/13(土) 6:54 発言
【37642】Re:プリンターの選択 春まき 06/5/13(土) 19:14 発言
【37574】Re:プリンターの選択 ハチ 06/5/12(金) 12:12 発言
【37576】Re:プリンターの選択 春まき 06/5/12(金) 13:19 発言
【37579】Re:プリンターの選択 Jaka 06/5/12(金) 13:54 発言
【37625】Re:プリンターの選択 春まき 06/5/13(土) 6:43 発言
【37650】解決しました 春まき 06/5/14(日) 10:09 お礼
【37580】Re:プリンターの選択 ハチ 06/5/12(金) 14:00 回答
【37626】Re:プリンターの選択 春まき 06/5/13(土) 6:44 発言
【37651】試してみました。 春まき 06/5/14(日) 10:18 お礼

44179 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free