Excel VBA質問箱 IV

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

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


44206 / 76735 ←次へ | 前へ→

【37550】Re:プリンターの選択
回答  ちくたく  - 06/5/11(木) 15:40 -

引用なし
パスワード
   春まき さん
こんにちは。

あんまりかしこいコードではないですが、
呼んでみたらうまくいきませんか?

Sub pr_main()
  Call pr1
  Call pr2
End Sub

Sub pr1()
  ActiveSheet.PageSetup.PrintArea = "$B$1:$Q$38"
    PaperSize = xlPaperB4
    BlackAndWhite = False
    Zoom = 75
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="プリン  ターB on Ne01:", Collate:=True
End Sub

Sub pr2()
  Application.ActivePrinter = "プリンターA on Ne04:"
End Sub
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 お礼

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