ズームされた状態でレポートを開きたい

ナビゲーションウィンドウからダブルクリックでレポートを開いた時、レポートの全容が見えるように表示させたい
↓こうしたい

レポートを開くといつも左下にずれて表示され、ズームを押さなければならない
↓こんな感じ

レポートの開くときイベントのプロシージャにDoCmd.Maximizeを記述したが、全画面表示になった

退会済みユーザー

2023/10/10 05:26

毎回クリックするのが地味にだるい、助けて下さい

行動規範の内容に同意します

回答1件

そのレポートの[サイズ自動修正]プロパティが「いいえ」に設定されているからでは。
「はい」に設定した状態でレポートを上書き保存して閉じ、ナビゲーションウィンドウから開き直してみて下さい。

また、既にデザインビューで開かれているレポートのビューを印刷プレビューに切り替える操作を行った場合については、レポートの[サイズ自動修正]プロパティが「はい」に設定されていても、ビューの切り替え時にサイズの自動修正は行われません。

任意の大きさまでウィンドウを広げ、ダブルクリックで開いた時に
ウィンドウに合わせた状態にしたいです。

カレントデータベースの[ドキュメントウインドウオプション]が「ウィンドウを重ねて表示する」に設定されている。
[サイズ自動修正]プロパティが「いいえ」に設定されたレポートを（ウィンドウを最大化せずに）DoCmd.OpenReport メソッドによって印刷プレビューで開こうとしている。

以上の前提なのであれば、次のようになさればよろしいのではないでしょうか。

vba
1Sub OpenReportTest()
2
3    DoCmd.OpenReport "レポート名", acViewPreview
4    DoCmd.RunCommand acCmdPreviewOnePage
5
6End Sub

全てのアクセスオブジェクトからダブルクリックで開きたいんです。

「ナビゲーションウィンドウからレポートを開く」場合に関しては恐らく無理でしょう。

[サイズ自動修正]プロパティが「いいえ」であるレポートが開かれた時の既定の表示倍率は常に100％である。
レポートの Open などのイベントの発生時に、DoCmd.RunCommand acCmdPreviewOnePage を呼び出すことは出来ない（各セクションのフォーマットやレポートウィンドウの表示が完了していない状態では、レポートウィンドウ内の表示倍率を操作することは出来ないため、実行時エラーが発生する）。

投稿2023/10/10 09:02