スポンサーサイト

一定期間更新がないため広告を表示しています

Access プレビュー画面の倍率・位置とサイズを指定する


構文 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になる長さのことです。

スポンサーサイト

Comments

Leave a Reply