次の方法で共有

Report.ScaleWidth プロパティ (Access)

  • [アーティクル]

ScaleWidth プロパティを使用して、レポートの印刷またはプレビュー中に Circle、Line、Pset、または Print メソッドを使用する場合、またはその出力をファイルに保存する場合に、ページの水平方向の測定単位の数を指定します。 値の取得と設定が可能な単精度浮動小数点型 (Single) の値です。

構文

式。ScaleWidth

式Report オブジェクトを表す変数。

注釈

既定の設定は、レポート ページの内部幅 (twip 単位) です。

ScaleWidth プロパティは、セクションの OnPrint プロパティ設定で指定されたマクロまたは Visual Basic イベント プロシージャを使用して設定できます。

ScaleWidth プロパティを使用して、描画または印刷用のカスタム座標スケールを作成します。 たとえば、 ステートメント ScaleWidth = 100 では、セクションの内部幅を 100 単位、または 1 つの水平方向の単位を幅の 100 分の 1 として定義します。

ポイント、ピクセル、文字数、インチ、mm、cm などの標準的な単位を基にスケールを定義するには、 ScaleMode プロパティを使います。

ScaleWidth プロパティを正の値に設定すると、座標の値は左から右の方向に増加します。 負の値に設定すると、座標の値は右から左の方向に増加します。

このプロパティを ScaleLeft および ScaleTop プロパティと組み合わせて使用すると、正と負の座標を持った独自の座標システムを設定できます。 これらを含めた 4 つのスケール プロパティと ScaleMode プロパティの関係は次のとおりです。

  • 4 つのプロパティのいずれかを任意の値に設定すると、 ScaleMode プロパティの値は自動的に 0 に設定されます。

  • ScaleMode プロパティを 1 以上に設定すると、 ScaleHeight および ScaleWidth プロパティは新しい単位に変わり、 ScaleLeft および ScaleTop プロパティは 0 になります。 また、 CurrentX および CurrentY プロパティの設定にも、現在の位置の新しい座標が反映されます。

Scale メソッドを使用すると、 ScaleHeight 、 ScaleWidth 、 ScaleLeft 、 ScaleTop の 4 つのプロパティを 1 つのステートメントで設定できます。

注:

ScaleWidth プロパティは Width プロパティと同じではありません。

例

次の例では 、Print メソッドを使用して 、Report1 という名前のレポートにテキストを表示します。 TextWidth メソッドおよび TextHeight メソッドは、テキストを垂直方向および水平方向に中央寄せする目的で使います。

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。