Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
771 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【10219】レポートの印刷について
質問  tommy  - 08/2/7(木) 17:17 -
引用なし
パスワード
   レポート毎のプリンタ設定は Application.Printer で変更できたのですが、

1つのレポートで

グループＡ　→　ＬＰ１
グループＢ　→　ＬＰ２

といった設定はできるのでしょうか？
【10220】Re:レポートの印刷について
質問  VBWASURETA  - 08/2/7(木) 18:04 -
引用なし
パスワード
   ▼tommy さん：

こんにちは。

まず、質問が２点あります。


１点目は、レポートはAccessのレポートでしょうか？

２点目は、同じレポートで別ける理由(条件)としては何でしょう？


もう少し詳細な内容を書かれないとなかなかレスがつきませんので
気をつけて下さい。

特に２点目の内容がないとフォームか何かで切り替え画面を
作るしかないでしょうね。
【10221】Re:レポートの印刷について
質問  tommy  - 08/2/7(木) 18:25 -
引用なし
パスワード
   ▼VBWASURETA さん：

こんにちは

>まず、質問が２点あります。
>
>１点目は、レポートはAccessのレポートでしょうか？
>
Accessのレポートです

>２点目は、同じレポートで別ける理由(条件)としては何でしょう？
>
大量のページ数がある為、できればプリンタを数台に振り分けたいと思ってます
レポートは、プリンタ名でグループ化してあります

プリンタの台数は店によって違う為、店毎にレポートを追加するのは
メンテナンスが面倒かなと思いまして…


説明不足で申し訳ありませんでした

よろしくお願いします
【10223】Re:レポートの印刷について
発言  VBWASURETA  - 08/2/7(木) 19:18 -
引用なし
パスワード
   例えば、１つのレポートで１００頁あるとします。
１頁〜５０頁はＬＰ１で出力
５１頁〜１００頁はＬＰ２で出力

とかでしょうか？


DoCmd.PrintOut acPages, 開始ページ, 終了ページ

このコマンド後にプリンタ切り替えが出来るか確認してもらえますか？
【10226】Re:レポートの印刷について
お礼  tommy  - 08/2/8(金) 9:15 -
引用なし
パスワード
   ▼VBWASURETA さん：

おはようございます

>例えば、１つのレポートで１００頁あるとします。
>１頁〜５０頁はＬＰ１で出力
>５１頁〜１００頁はＬＰ２で出力
>
>とかでしょうか？
>
>
>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

でプリンタの切り替えできました
ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
771 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free