回答編集履歴
2
再コメントを受けて追記しました。
test
CHANGED
|
@@ -20,3 +20,11 @@
|
|
|
20
20
|
|
|
21
21
|
End Sub
|
|
22
22
|
```
|
|
23
|
+
|
|
24
|
+
> 全てのアクセスオブジェクトからダブルクリックで開きたいんです。
|
|
25
|
+
|
|
26
|
+
「ナビゲーションウィンドウからレポートを開く」場合に関しては恐らく無理でしょう。
|
|
27
|
+
|
|
28
|
+
- [サイズ自動修正]プロパティが「いいえ」であるレポートが開かれた時の既定の表示倍率は常に100％である。
|
|
29
|
+
|
|
30
|
+
- レポートの Open などのイベントの発生時に、DoCmd.RunCommand acCmdPreviewOnePage を呼び出すことは出来ない（各セクションのフォーマットやレポートウィンドウの表示が完了していない状態では、レポートウィンドウ内の表示倍率を操作することは出来ないため、実行時エラーが発生する）。
|
1
コメントを受けて回答を追記しました。
test
CHANGED
|
@@ -2,3 +2,21 @@
|
|
|
2
2
|
「はい」に設定した状態でレポートを上書き保存して閉じ、ナビゲーションウィンドウから開き直してみて下さい。
|
|
3
3
|
|
|
4
4
|
また、既にデザインビューで開かれているレポートのビューを印刷プレビューに切り替える操作を行った場合については、レポートの[サイズ自動修正]プロパティが「はい」に設定されていても、ビューの切り替え時にサイズの自動修正は行われません。
|
|
5
|
+
|
|
6
|
+
> 任意の大きさまでウィンドウを広げ、ダブルクリックで開いた時に
|
|
7
|
+
> ウィンドウに合わせた状態にしたいです。
|
|
8
|
+
|
|
9
|
+
- カレントデータベースの[ドキュメント ウインドウ オプション]が「ウィンドウを重ねて表示する」に設定されている。
|
|
10
|
+
|
|
11
|
+
- [サイズ自動修正]プロパティが「いいえ」に設定されたレポートを（ウィンドウを最大化せずに）[DoCmd.OpenReport メソッド](https://learn.microsoft.com/ja-jp/office/vba/api/access.docmd.openreport)によって印刷プレビューで開こうとしている。
|
|
12
|
+
|
|
13
|
+
以上の前提なのであれば、次のようになさればよろしいのではないでしょうか。
|
|
14
|
+
|
|
15
|
+
```vba
|
|
16
|
+
Sub OpenReportTest()
|
|
17
|
+
|
|
18
|
+
DoCmd.OpenReport "レポート名", acViewPreview
|
|
19
|
+
DoCmd.RunCommand acCmdPreviewOnePage
|
|
20
|
+
|
|
21
|
+
End Sub
|
|
22
|
+
```
|