次の方法で共有

Report.ScaleHeight プロパティ (Access)

  • [アーティクル]

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

構文

式。ScaleHeight

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

注釈

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

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

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

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

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

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

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

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

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

注:

ScaleHeight プロパティは "Height/高さ" プロパティとは異なります。

例

次の例では 、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 のサポートおよびフィードバックを参照してください。