Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Access 2013)
分割印刷
投稿日時: 20/04/02 11:50:42
投稿者: やま3

レポートフォームをPDFファイルに印刷し名前というフィールドで改ページしています。
ページ番号は連番で、総ページ数も出力しています。データ件数は毎回変わります
 
 
例えば
Aさん 1−4ページ Bさん 5−20頁 Cさん 21−25ページ Dさん 26−50頁
であった場合
Aさん用のPDFに印刷されるページ数と総ページ数は 1/50, 2/50 3/50,4/50
Bさん用のPDFに印刷されるページ数と総ページ数は 5/50,6/50・・・・20/50
Cさん用のPDFに印刷されるページ数と総ページ数は 21/50,22/50・・・・25/50
Dさん用のPDFに印刷されるページ数と総ページ数は 26/50,27/50・・・・50/50
 
PDFはAさん用、Bさん用、Cさん用、Dさん用でそれぞれ別々に作成されるようにする方法をご教示ください

回答
投稿日時: 20/04/02 14:33:12
投稿者: sk

引用:
例えば
Aさん 1−4ページ Bさん 5−20頁 Cさん 21−25ページ Dさん 26−50頁
であった場合
Aさん用のPDFに印刷されるページ数と総ページ数は 1/50, 2/50 3/50, 4/50
Bさん用のPDFに印刷されるページ数と総ページ数は 5/50,6/50・・・・20/50
Cさん用のPDFに印刷されるページ数と総ページ数は 21/50,22/50・・・・25/50
Dさん用のPDFに印刷されるページ数と総ページ数は 26/50,27/50・・・・50/50

Aさん用のPDFに印刷されるページ数と総ページ数は 1/4, 2/4, 3/4,4/4
Bさん用のPDFに印刷されるページ数と総ページ数は 1/16,2/16・・・・16/16
Cさん用のPDFに印刷されるページ数と総ページ数は 1/5,2/5・・・・5/5
Dさん用のPDFに印刷されるページ数と総ページ数は 1/25,2/25・・・・25/25
 
-----------------------------------------------------------------------------
 
[名前]ごとにレポートを出力するなら以上のような形になるのでは。

投稿日時: 20/04/02 17:32:54
投稿者: やま3

SKさま いつもありがとうございます
総ページ数は連続印刷した時と同じにしたいのです。つまり50頁

回答
投稿日時: 20/04/03 09:47:26
投稿者: sk

引用:
総ページ数は連続印刷した時と同じにしたいのです。つまり50頁

その場合、難易度が一気に跳ね上がるのであまりお奨めはしません。
 
・DoCmd.PrintOut メソッドを使用してレポートの PDF 出力を行なうためには
 ( Acrobat のような)PDF プリンターが必要となる。
 
・Access の機能によってレポートを PDF に出力する場合は
 DoCmd.OutputTo メソッドを使用するが、PrintOut メソッドのように
 印刷するページ範囲を指定することが出来ない。
 (全てのページが出力される)
 
・あるグループごとにレポートの PDF 出力を行ないたい場合は
 DoCmd.OpenReport メソッドによって印刷プレビューを表示する際に
 第 4 引数 WhereCondition に「[氏名]に対する抽出条件式」を渡し、
 更にプレビュー表示中のレポートを DoCmd.OutputTo メソッドによって
 PDF 出力を実行する(これをループ処理によって[氏名]ごとに繰り返す)
 ようにすればよいが、その際に表示されるページ番号( Page プロパティ)と
 総ページ数( Pages プロパティ)は、「抽出条件を指定しなかった場合の
 ページ番号/総ページ数」とは当然異なる。

投稿日時: 20/04/03 15:46:21
投稿者: やま3

ありがとうございました
あきらめます