Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
印刷プレビュー時の表示倍率の取得
投稿日時: 17/04/10 17:17:16
投稿者: きき

Report_Open時に
DoCmd.Maximize を実行後、表示倍率を取得し、
 取得した倍率の50%で表示を更新するには?
  
どのようにすればいいでしょうか?

回答
投稿日時: 17/04/10 18:23:45
投稿者: sk

引用:
Report_Open時に
DoCmd.Maximize を実行後、表示倍率を取得し、
 取得した倍率の50%で表示を更新するには?

・レポートの印刷プレビューの表示倍率を
 参照/指定するためのプロパティは定義されていない。
 
・レポートのプレビュー時におけるズーム設定は、
 固定された倍率(10%, 25%, 50%, 75%, 100%, 150%,
  200%, 500%, 1000%)か、「ウィンドウ サイズに合わせる」の
 いずれかを選択する方式なので、それ以外の倍率/設定を
 細かく指定することは出来ない。
 
・また、既定のズーム設定は「ウィンドウ サイズに合わせる」、
 つまり自動調整であるが、その具体的な倍率を取得する手段はない。
 
・Open イベントではまだレポートのフォーマットが
 完了していないので、ズーム設定を行なうことは出来ない。
 
代替案としては、OpenReport メソッドによって
そのレポートを印刷プレビューで開いた直後に
「ウィンドウの最大化」と任意のズームコマンドを
実行する、という方法が挙げられます。
 
---------------------------------------------------------
 
DoCmd.OpenReport "レポート名", acViewPreview
DoCmd.Maximize
'[ズーム(50%)]コマンドの実行
DoCmd.RunCommand acCmdZoom50
 
---------------------------------------------------------

投稿日時: 17/04/12 08:23:12
投稿者: きき

ありがとうございました。参考になりました。