Access VBA教程:Print方法

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

expression.Print(Expr)

expression  必需。返回“Applies To”列表中的一个对象的表达式。

Expr  必需 String 型。待打印的字符串表达式。如果忽略该参数,Print方法将打印一个空行。多个表达式可以用空格、半角分号 (;) 或半角逗号隔开。空格的作用和分号相同。

说明

只能在由节的 OnPrint事件属性设置所指定的事件过程或宏中使用该属性。

由 Expr参数指定的表达式在对象上的打印位置从CurrentXCurrentY属性设置所指定的位置开始。

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

如果 Expr参数后跟有分号,将不会追加回车符,并且下一个 Print方法将在当前 Print方法打印的同一行上进行打印。CurrentX 和 CurrentY属性设为紧接最后一个打印字符之后的点。如果 Expr参数本身包含回车符,每一个这样的内嵌回车符都将如 Print方法所说明的设置 CurrentX 和 CurrentY属性,而不带分号。

如果 Expr参数后跟有逗号,CurrentX 和 CurrentY属性将设置为相同行的下一个打印区。

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

因为 Print方法通常打印的是比例间距的字符,所以必须记住打印的字符数和这些字符所占的固定宽度列数没有关系。例如,宽的字母(例如 W)比固定宽度列要宽,而窄的字母(例如 I)则比固定宽度列要窄。必须确保表的列之间应足够宽,以便容纳想打印的文本。另外,也可以用固定宽度的字体(例如 Courier)来打印,以确保每个字符只用一列。

VBA示例

下面的示例使用 Print方法来显示名为“报表1”的报表上的文本。它使用 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

上页:Access VBA教程:OpenFunction方法 下页:Access VBA教程:PrintSnapshot方法 (Snapshot Viewer)

Access VBA教程:Print方法

Access VBA教程:PrintSnapshot方法 (Snapshot Viewer) Access VBA教程:PSet方法
Access VBA教程:Quit方法 Access VBA教程:Recalc方法
Access VBA教程:Refresh方法 Access VBA教程:RefreshDatabaseWindow方法
Access VBA教程:DefaultWorkspaceClone方法 Access VBA教程:Remove方法
Access VBA教程:RemoveItem方法 Access VBA教程:Repaint方法
Access VBA教程:ReplaceLine方法 Access VBA教程:Requery方法
Access VBA教程:Run方法 Access VBA教程:RunCommand方法
Access VBA教程:Scale方法 Access VBA教程:导出报表快照 (Snapshot Viewer)
Access VBA教程:SetDefaultWorkgroupFile方法 Access VBA教程:SetFocus方法
Access VBA教程:SetHiddenAttribute方法 Access VBA教程:SetOption方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号