Microsoft Access 掲示板

入力用フォームに配置したコマンドボタンでレポートプレビューさせた時にオリジナルの簡単な印刷設定フォーム（名前：Ｆ印刷設定）も一緒に開く様にしてます。

レポートをプレビューした直後に印刷設定フォームも開くということですね。
ならば、Screen.ActiveReport で直前に開いたレポートを取得できますので、それを利用すればどうでしょう。

Ｆ印刷設定のフォームモジュール

Option Compare Database
Option Explicit
Private rptName As String  
    
Private Sub Form_Open(Cancel As Integer)
    On Error Resume next
    rptName = Screen.ActiveReport.Name
    If Err <> 0 Then
        Cancel = True
        MsgBox "レポートが開いていません。"
    End If
End Sub

Private Sub ボタン１_Click()
    If vbOK = MsgBox("直ちに印刷を開始します。", vbOKCancel) Then
        DoCmd.OpenReport rptName, acViewNormal, "", "", acNormal
    Else
        MsgBox "印刷処理を中止します。", vbCritical
        End
    End If
End Sub

Private Sub ボタン2_Click()
    DoCmd.SelectObject acReport, rptName, False
    DoCmd.RunCommand acCmdPrint
End Sub