ACCESSの印刷設定が変です

質問

ACCESSで同じレポートを２部印刷するように設定しておきたいのですが、なかなか上手くいきません。

レポートのデザインビュー
↓
Page Setup（ページ設定）
↓
Page Setup（ページ設定）
↓
Page（ページ）
↓
Use Specific Printer（英語バージョンになってるので日本語で何て書いてあるのか分かりません）
↓
Printer（プリンター）
↓
Properties（プロパティ）
↓
「部数」を"2"に変える
↓
保存
↓
OK

とやってみるとできるかなと思ったのですが、設定が保存されず１枚しか印刷されません。

同じように、「倍率を指定する」の所を50％などに変えてやってみると設定は保存されて50％の大きさで出てきます。

印刷部数はここの画面で設定できないのでしょうか？

回答No.2

hatena1989 · ベストアンサー

> レポートのプリントプレビューと印刷ダイアログを同時に表示し、かつ印刷ダイアログの「部数」の所が最初から"2"になっているようにしたいのです。
> （プレビューで確認してから、ダイアログの「ＯＫ」を押して印刷という流れ）

前回の回答だと、すぐ印刷してしまいますので、
下記のコードで。

Const DocName = "DATA"

On Error Resume Next
DoCmd.OpenReport DocName, acPreview
Reports(DocName).Printer.Copies = 2
DoEvents
DoCmd.RunCommand acCmdPrint

お礼

できました！！

"DATA"のところを"印刷したいレポート名"にすれば良いのですね！

ありがとうございました。
少しづつVBAプログラミングも勉強していこうと思います。

回答No.1

hatena1989

まずは、Accessのバージョンを明示してください。バージョンによって異なりますので。

当方の環境でも試してみましたが、「印刷部数」は保存されないようです。

下記のようにVBAで部数を指定して印刷してはどうでしょうか。

　　Const DocName = "レポート名"
　　DoCmd.OpenReport DocName, acViewPreview
　　DoCmd.PrintOut acPrintAll, , , , 2, True

お礼

こちらの質問も見つけていただきありがとうございます！

バージョンはACCESS 2010です。

やはりVBAですか、、、
まだ上記のコードは試してないのですが、
レポートのプリントプレビューと印刷ダイアログを同時に表示し、かつ印刷ダイアログの「部数」の所が最初から"2"になっているようにしたいのです。
（プレビューで確認してから、ダイアログの「ＯＫ」を押して印刷という流れ）

都合によりACCESSをいじれるのが来週以降になるので、それから試してみます。