通过

Report.Print 方法 (Access)

  • 项目

Print 方法使用当前颜色和字体打印 Report 对象上的文本。

语法

表达式。打印 (Expr)

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

参数

名称 必需/可选 数据类型 说明
Expr 必需 String 要打印的字符串表达式。 如果省略此参数，则 打印 方法打印一个空行。 可以用空格、 分号 (;) 或逗号分隔多个表达式。 空格与分号的作用相同。

返回值

Nothing

注解

仅在节的 OnPrint 事件属性设置指定的事件过程或宏中使用此方法。

Expr 参数指定的表达式打印在对象上，从 CurrentX 和 CurrentY 属性设置指示的位置开始。

当打印完 Expr 参数时，通常追加一个回车符，以便下一个 Print 方法从下一行开始。 发生回车时，将按 Expr 参数的高度增加 CurrentY 属性设置， (与 TextHeight 方法) 返回的值相同，而 CurrentX 属性设置为 0。

当分号位于 Expr 参数之后时，不会追加回车符，并且下一个 Print 方法打印在当前 Print 方法打印的同一行上。 打印的最后一个字符后立即 CurrentX 和 当前 属性设置为该点。 如果 Expr参数本身包含回车，每个这种嵌入的回车设置 CurrentX 和 当前 属性所描述的没有分号的 打印 方法。

当逗号位于 Expr 参数后面时， CurrentX 和 CurrentY 属性将设置为同一行上的下一个打印区域。

当 Expr 参数在 Report 对象上打印时，不适合指定位置的行将不会滚动。 文本进行剪裁以适合对象。

因为 Print 方法通常打印的是比例间距的字符，请务必记住没有任何关联这些字符所占的固定宽度列数之间打印的字符数。 例如，宽的字母 (例如 W) 占用多个固定宽度列，而窄字符 (例如 i) 占用更少。 应确保表格列的放置距离足以容纳要打印的文本。 另外，也可以用固定宽度的字体（例如 Courier）来打印，以确保每个字符只用一列。

示例

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