通过

Report.ScaleWidth 属性 (Access)

  • 项目

使用 ScaleWidth 属性指定在打印或预览报表时使用 Circle、 Line、 Pset 或 Print 方法时，或其输出保存到文件时，页面的水平度量单位数。 读/写 Single。

语法

表达式。ScaleWidth

表达 一个代表 Report 对象的变量。

备注

默认设置是报表页的内部宽度（ 以 twips 为单位）。

可以使用宏或由节的 OnPrint 属性设置指定的 Visual Basic 事件过程来设置 ScaleWidth 属性。

使用 ScaleWidth 属性创建用于绘图或打印的自定义坐标刻度。 例如，语句 ScaleWidth = 100 将节的内部宽度定义为 100 个单位，或将一个水平单位定义为宽度的百分之一。

使用 ScaleMode 属性可以定义一个基于标准测量单位的如磅、 像素、 字符、 英寸、 毫米或厘米刻度。

将 ScaleWidth 属性设置为正值会使坐标值从左到右增加。 将其设置为负值会使坐标值从右到左增加。

通过使用这些属性和相关的 ScaleLeft 和 距离 属性，您可以设置自定义的坐标系统使用正值和负值的坐标。 所有这四个比例属性按以下方式使用 ScaleMode 属性进行交互:

  • 任何其他扩展属性设置为任何值自动设置 ScaleMode 属性为 0。

  • ScaleMode 属性设置为大于 0 的 ScaleHeight 和 ScaleWidth 属性将更改为新的度量单位，并将 ScaleLeft 和 距离 属性设置为 0。 此外， CurrentX 和 当前 属性设置更改以反映当前点的新坐标。

您还可以使用 Scale 方法将 ScaleHeight 、 ScaleWidth 、 ScaleLeft 和 距离 属性设置在一个语句中。

注意

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。