Accessでフォームの検索結果をレポートに出力するが最初しか成功しない謎

Question

帳票フォームを作成し、検索結果レコードを表示するようにしています。
ここに印刷ボタンを追加し、検索結果のレコードを１レコード１ページのレポートで印刷したいです。
（そのため検索結果のレコードの数だけ印刷枚数が増える）

現状下記のようなコードを書いてるのですが、これだと１度目はうまくいきますが、
２度目からレポートが更新されません。

Private Sub print_Click()
    DoCmd.OpenReport "テストレポート", acPreview, , Me.Filter
End Sub

都度、全件から抽出するためにはどう変更したら良いでしょうか？
今はレポートはレポートウィザードで単表形式で作成しています

追記
印刷ボタン押した際に印刷プレビューのタブが出て、そのタブをそのままにして再度検索して印刷ボタンを押すと
更新されず、タブを閉じてから再度検索して印刷ボタンを押すとちゃんとできたことが確認できました。
タブをそのままで更新することは可能でしょうか？

Answer 1

下記でどうでしょうか。

Private Sub print_Click()
    Const RName  = "テストレポート"

    If CurrentProject.AllReports(RName).IsLoaded Then
        Reports(RName).Filter = Me.Filter
    Else
        DoCmd.OpenReport RName  , acPreview, , Me.Filter
    End If
End Sub

IsLoadedメソッドでレポートが開いているか確認して、
開いていれば レポートのFilterプロパティを設定、
開いてなければ レポートを開く。

Comments

[kozica]

できました！
Access、VBAを初めて触ってわからなかったので助かりました！
ありがとうございました！