Microsoft Access 掲示板

これで１つ目のレポートには問題なく動作したのですが、２つ目のレポート時はエラーがでます。

「cmd直ちに印刷」をクリックしてレポートを印刷した後も「F印刷設定」フォームが開いたままなのが原因と思われます。開いたままだと、Form_Loadイベントは発生しませんので。

とりあえずの対策としては、印刷したら印刷設定フォームを閉じればいいでしょう。

Private Sub cmd直ちに印刷_Click()
    If vbOK = MsgBox("直ちに印刷を開始します。", vbOKCancel) Then
        DoCmd.OpenReport rptName, acViewNormal, "", "", acNormal
        DoCmd.Close acForm, Me.Name, acSaveNo '自身を閉じる
    Else
        MsgBox "印刷処理を中止します。", vbCritical
    End If
End Sub

ただ、レポートをプレビューせずに直接印刷したときとか、レポートのプレビューを閉じてしまった時のことも考慮する必要があるでしょう。

hatenaさん　ありがとうございます。
説明不足だったのですが（すみません）対象ﾚﾎﾟｰﾄを閉じる時のｲﾍﾞﾝﾄに印刷設定ﾌｫｰﾑを閉じるｺｰﾄﾞも記述してます。
ﾌｧｲﾙにはﾌｫｰﾑが幾つかありそれぞれに異なるﾚﾎﾟｰﾄをﾌﾟﾚﾋﾞｭｰするﾎﾞﾀﾝがあります。
最初にこの仕組みのｺｰﾄﾞ記述したﾌｫｰﾑＡのﾚﾎﾟｰﾄAをﾌﾟﾚﾋﾞｭｰするﾎﾞﾀﾝを実行すると問題なかったのですが、次にｺｰﾄﾞ記述したﾌｫｰﾑBのﾚﾎﾟｰﾄBをﾌﾟﾚﾋﾞｭｰするﾎﾞﾀﾝを実行するとｴﾗｰが発生（ﾚﾎﾟｰﾄ名が取得出来ていない）になるのです。試しに印刷設定ﾌｫｰﾑに　MsgBox "名前は" & rptName　のﾎﾞﾀﾝを作成して様子みるとＡの方は名前が表示されますが、Bでは無理です。ﾚﾎﾟｰﾄBにはｻﾌﾞﾚﾎﾟｰﾄがあるのでその影響と思いｻﾌﾞﾚﾎﾟｰﾄを消しても状況は同じでした・・・

Screen.ActiveReport.Name で対象レポート名を取得するのは不安定そうなので、OpenArgs引数でレポート名を渡せばどうでしょう。

Private Sub Report_Open(Cancel As Integer)
    DoCmd.OpenForm "F印刷設定", OpenArgs:=Me.Name
End Sub

Private Sub Report_Close()
    DoCmd.Close acForm, "F印刷設定"
End Sub

Private Sub Form_Open(Cancel As Integer)
    rptName = Me.OpenArgs   'ﾚﾎﾟｰﾄ名取得
End Sub

レポートを複数プレビューしたり、プレビュー中に別のレポートを直接印刷したり、などの場合、おかしなことになるので、その辺のことを考慮して、Report_ActivateイベントやReport_Deactivateイベントを利用してレポート名を取得するほうがいいかも。

下記で紹介しているサンプルなら、上記の点も考慮していますので、よろしければご参考に。

印刷プレビューに[印刷][閉じる]ボタンを付加する関数－改良版

以前の記事 印刷プレビューに[印刷][閉じる]ボタンを付加するOpenReport互換関数 - hatena chips の改良版です。 上記の関数は、複数のプレビューを同時に開いたとき、最後に開いたものだけしか[印刷][閉じる]ボタンが付加されません。前に開いていたものからはボタンが消えてしまいます。これを改良して、複数のプレビューにもそれぞれ[印刷][閉じる]ボタンが付加されるようにしました。 また、レポートの開くときイ...

fc2

hatenaさん　ありがとうございます。
OpenArgsでしたらバッチリ上手く出来ました。感謝します！
紹介されている分もじっくり見て参考にさせて頂きます。
今回もお世話になりました。