AccessVBAにて、レポートビューから印刷プレビューに切り替えたい

Question

前提・実現したいこと

Accessのレポートにて、以下のことを実現したいです。

①レポートを「レポートビュー」で表示。
②①の「レポートビュー」にて、ヘッダーに追加したボタンを押して、詳細の表示・非表示や並び順などを切り替える。
③①の「レポートビュー」にある「印刷プレビュー」ボタンより、同一レポートを印刷プレビューに切り替えて表示する。
このとき、②の設定を保持したい。

レポートを右クリックして「印刷プレビュー」を選択すれば簡単に実現できますが、
それをVBAにて実現したいです。

発生している問題・エラーメッセージ

印刷プレビューの表示が遅い。
１ページ目はすぐに表示されるが、Access自体が固まってしまい、動くまでに１分以上かかる。

該当のソースコード

Private Sub btn印刷プレビュー_Click()
DoCmd.OpenReport レポート名, acViewPreview
End Sub

試したこと

A.以下のように、一旦レポートを閉じてから印刷プレビューを表示すれば、
素早く表示されますが、②で切り替えた設定が保持されません。

Private Sub btn印刷プレビュー_Click()
DoCmd.Close acReport, レポート名
DoCmd.OpenReport レポート名, acViewPreview
End Sub

B.以下のように、Me.CurrentViewを変更しようとしても、
CurrentViewは変更できないプロパティのためエラーになります。

Private Sub btn印刷プレビュー_Click()
Me.CurrentView = acViewPreview
End Sub

補足情報（FW/ツールのバージョンなど）

Access 2016

Answer 1

印刷設定時に使用しているプロパティの一覧です。

[エクセルの神髄 ページ設定 PageSetup,PageBreak](https://excel-
ubara.com/excelvba1/EXCELVBA373.html)

また、印刷プレビュー時に印刷機との通信設定がTrueになっていると動作が遅くなるようです。

プリンターとの通信が有効かどうかを取得/設定する、Applicationのプロパティです。

PageSetupプロパティを設定するコードの実行速度を速くするには、PrintCommunicationプロパティをFalseに設定します。
PrintCommunicationがTrueのままページ設定を行うと、1行1行のプロパティ設定がとても時間がかかってしまいます。
少なくとも、複数のプロパティの設定を行う時はPrintCommunicationをFalseにしてから設定してください。

ExcelVBAではありますが該当サイトには印刷関連の情報も多いので一度目を通してみると良いと思います。

Comments

[hatena19]

ExcelとAccessでは印刷設定は根本的に違いますので、そのページは参考にならないと思います。
AccessのApplicationには、PrintCommunicationプロパティはありません。

[退会済みユーザー]

すみません
ACCESSではなかったのですね
誤った回答でした

[yuriko_bridge]

ありがとうございます。
Excelの際には参考にさせて頂きます。

Answer 2

A.以下のように、一旦レポートを閉じてから印刷プレビューを表示すれば、

素早く表示されますが、②で切り替えた設定が保持されません。

変更した設定をグローパル変数に保存しておいて、レポートを開く時に参照して設定すればどうでしょう。

Comments

[yuriko_bridge]

早速のご回答をありがとうございます。
試してみます。

[yuriko_bridge]

以下ように、レポートを閉じる際に、「acSaveYes」で設定を保存する方法にて実現できました。

Private Sub btn印刷プレビュー_Click()
DoCmd.Close acReport, レポート名, acSaveYes
DoCmd.OpenReport レポート名, acViewPreview
End Sub

なお、メインメニューからレポートを呼び出す際は、初期設定に戻すようにしました。
どうもありがとうございました。

[yuriko_bridge]

済みません、初めてのことで、ベストアンサーを選び間違えてしまいました。
大変申し訳ございませんでした。
hatena19さんには、他の件でも大変お世話になっております。
今後もよろしくお願いします。