スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　expression.MoveSize(Right, Down, Width, Height)

設定項目　　内容
expression　DoCmdオブジェクト［省略不可］
Right　　 　ウィンドウの左上隅の水平位置を数式で指定［省略可能］
Down　　　　ウィンドウの左上隅の垂直位置を数式で指定［省略可能］
Width　　　 ウィンドウの幅を数式で指定［省略可能］
Height　　　ウィンドウの高さを数式で指定［省略可能］

プレビュー画面をAccessウィンドウの中の決まった位置に、決まったウィンドウサイズで表示します。引数、引数でウィンドウの位置を指定します。引数、引数でウィンドウサイズを指定します。4つの引数のうち、ひとつ以上を指定する必要があります。引数の単位はtwipです。

●サンプル●
Sub WindowSizeSample()
    '［社員名簿］レポートを開く
    DoCmd.OpenReport "社員名簿", acViewPreview
    'プレビュー画面の倍率を50％にする
    DoCmd.RunCommand acCmdZoom50
    'ウィンドウの位置、サイズを指定する
    DoCmd.MoveSize 567, 567, 7371
End Sub

●補足●
1理論cm＝567twipです。AccessVBAでは、twipを長さの基本単位としています。
1理論cmとは、画面上ではなく、印刷したときに1cmになる長さのことです。