構文 Docmd.MoveSize(Right, Down, Width, Height)
Right ウィンドウの左上隅の水平位置を数式で指定
Down ウィンドウの左上隅の垂直位置を数式で指定
Width ウィンドウの幅を数式で指定
Height ウィンドウの高さを数式で指定
●サンプル●
Sub WindowSizeSample()
'[社員名簿]レポートを開く DoCmd.OpenReport "レポート名", acViewPreview
'
プレビュー画面の倍率を50%にする DoCmd.RunCommand acCmdZoom50
'ウィンドウの位置、サイズを指定する
'7371/567=13cmの画面サイズ
DoCmd.MoveSize 567, 567, 7371
End Sub
●補足●
1理論cm=567twipです。AccessVBAでは、twipを長さの基本単位としています。
1理論cmとは、画面上ではなく、印刷したときに1cmになる長さのことです。