Excel VBA質問箱 IV

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

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


44210 / 76735 ←次へ | 前へ→

【37546】プリンターの選択
質問  春まき  - 06/5/11(木) 13:17 -

引用なし
パスワード
   よろしくお願いします。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の方をアクティブにしてくれる
ようにするにはどうしたらいいでしょうか。

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 お礼

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