Access VBA 印刷プロパティから複数のレポートを印刷するには

Question

Accessで以下のようなコードを記載し、レポートを印刷プロパティから印刷しています。
■参考：印刷ダイアログを表示してから印刷させるには？

Private Sub Btn_レポート_Click()
    On Error GoTo Err_Handler
    Echo False
    
      'すでに同名レポートが開いていたら閉じる
    DoCmd.Close acReport, "R_工数レポート"

     DoCmd.OpenReport "R_工数レポート", acViewPreview, , Me.Filter
     MsgBox "月別レポートの印刷プロパティを設定してください。"
     '印刷ダイアログを表示
     DoCmd.RunCommand acCmdPrint
      
Exit_Here:
      On Error Resume Next
      'プレビューを閉じる
      DoCmd.Close acReport, "R_工数レポート"
      Echo True
      Exit Sub
    
Err_Handler:
      If Err.Number = 2501 Then
        'エラーを無視する
      Else
        MsgBox "エラー発生"
      End If
      Resume Exit_Here:
End Sub

ここで、一度設定した印刷プロパティのまま、複数レポートを印刷するにはどうすればよいのでしょうか。
以下のようにコードを書き換えてみたのですが、最初の1レポートしか印刷プロパティが適応されませんでした。

Private Sub Btn_レポート_Click()
    On Error GoTo Err_Handler
    Echo False
    
      'すでに同名レポートが開いていたら閉じる
    DoCmd.Close acReport, "R_工数レポート"

     DoCmd.OpenReport "R_工数レポート", acViewPreview, , Me.Filter
     MsgBox "月別レポートの印刷プロパティを設定してください。"
     '印刷ダイアログを表示
     DoCmd.RunCommand acCmdPrint
　　 DoCmd.OpenReport "R_工数レポートB", acNormal, , Me.Filter
     DoCmd.OpenReport "R_工数レポートC", acNormal, , Me.Filter
      
Exit_Here:
      On Error Resume Next
      'プレビューを閉じる
      DoCmd.Close acReport, "R_工数レポート"
      Echo True
      Exit Sub
    
Err_Handler:
      If Err.Number = 2501 Then
        'エラーを無視する
      Else
        MsgBox "エラー発生"
      End If
      Resume Exit_Here:
End Sub

ボタンを押したら印刷プロパティを設定する画面が表示され、複数レポートにそれを適応し一気に印刷する方法をご存じの方いらっしゃいましたら、教えていただけると助かります。

Answer 1

標準の印刷ダイアログを使うリンク先の方法では無理だと思います。
プレビュー中のレポートの印刷ダイアログなので。

私が以前したのは印刷ダイアログ風のフォームを自作して、そこでプリンター名とか部数とか各種プロパティを設定できるようにします。

印刷部数とか開始ページ、終了ページぐらいの設定なら、DoCmd.Printoutメソッドで可能です。

DoCmd.Printoutメソッド (Access) | Microsoft Docs

それ以上の設定をしたいときは、Printerオブジェクトを使用します。

Printer オブジェクト (Access) | Microsoft Docs

Printer プロパティ (Access) | Microsoft Docs