こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

access vba レポートを複数部印刷

MS-Access 2007です。
VBAでレポートを印刷しています。
2部印刷したいときはどのようにすればよいでしょうか。
現在は

Dim stDocName As String
stDocName = "請求書印刷"
DoCmd.OpenReport stDocName, acNormal

で一部印刷しています。
二回繰り返せば2枚出ますが2部としてプリンターに送りたいのです。
宜しくお願いします。

投稿日時 - 2017-02-15 16:16:10

QNo.9294191

困ってます

質問者が選んだベストアンサー

こんな感じで。

Dim stDocName As String
Dim Cnt As Integer
stDocName = "請求書印刷"
Cnt = 2
DoCmd.OpenReport stDocName, acViewPreview, , , acIcon
DoCmd.PrintOut acPrintAll, , , , Cnt
DoCmd.Close acReport, stDocName

投稿日時 - 2017-02-15 23:59:40

ANo.3

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

DoCmd.OpenReport stDocName, acNormal

DoCmd.OpenReport stDocName, acViewPreview
としてプレビュー出力にして、印刷に進むと、部数入力ウィンドが表示されます。

投稿日時 - 2017-02-15 22:56:33

ANo.1

ご参考。
http://tsware.jp/tips/tips_288.htm

投稿日時 - 2017-02-15 16:51:10