Access VBA質問箱 IV

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

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


3032 / 9994 ←次へ | 前へ→

【10226】Re:レポートの印刷について
お礼  tommy  - 08/2/8(金) 9:15 -

引用なし
パスワード
   ▼VBWASURETA さん:

おはようございます

>例えば、1つのレポートで100頁あるとします。
>1頁〜50頁はLP1で出力
>51頁〜100頁はLP2で出力
>
>とかでしょうか?
>
>
>DoCmd.PrintOut acPages, 開始ページ, 終了ページ
>
>このコマンド後にプリンタ切り替えが出来るか確認してもらえますか?
>

DoCmd.OpenReport レポート名, acViewPreview, , , acHidden
Set Application.Printer = Application.Printers("LP1")
DoCmd.PrintOut acPages, 1, 50 
Set Application.Printer = Application.Printers("LP2")
DoCmd.PrintOut acPages, 51, 100
DoCmd.Close acReport, レポート名, acSaveNo

でプリンタの切り替えできました
ありがとうございました

565 hits

【10219】レポートの印刷について tommy 08/2/7(木) 17:17 質問[未読]
【10220】Re:レポートの印刷について VBWASURETA 08/2/7(木) 18:04 質問[未読]
【10221】Re:レポートの印刷について tommy 08/2/7(木) 18:25 質問[未読]
【10223】Re:レポートの印刷について VBWASURETA 08/2/7(木) 19:18 発言[未読]
【10226】Re:レポートの印刷について tommy 08/2/8(金) 9:15 お礼[未読]

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