やり方

DoCmd.PrintOut の第五引数で部数指定で印刷可。

ただし DoCmd.PrintOut はフォームやデータシートを印刷する場合にも使える。
（使えてしまう）

なので直前にレポートを開いておく必要あり。

サンプルコード

Const REPORT_NAME As String = "テストレポート"

'レポート開く
DoCmd.OpenReport REPORT_NAME, acViewPreview

'3部印刷
DoCmd.PrintOut , , , , 3

'レポート閉じる
DoCmd.Close acReport, REPORT_NAME

参考サイトさん

バージョン

Windows 10 Pro 22H2 OSビルド 19045.2546
Microsoft Access for Microsoft 365 MSO (バージョン 2212 ビルド 16.0.16026.20002) 32 ビット