通过

Report.PSet 方法 (Access)

  • 项目

当 Print 事件发生时，PSet 方法将 Report 对象的点设置为指定的颜色。

语法

表达式。PSet (Flags， x， y， Color)

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

参数

名称 必需/可选 数据类型 说明
Flags 必需 Integer 一个 关键字 (keyword) ，指示坐标相对于 Object 参数的 CurrentX 和 CurrentY 属性设置给定的当前图形位置。
x 必需 Single 表示要设置的点的水平坐标。
y 必需 Single 表示要设置的点的垂直坐标。
Color 必需 Long 要将点设置为的 RGB (红-绿-蓝) 颜色。 如果省略此参数，则使用 前景色 属性的值。 此外可以使用 QBColor 函数的 RGB 函数来指定颜色。

返回值

Nothing

注解

点的大小取决于 DrawWidth 属性设置。 DrawWidth 属性设置为 1，当 PSet 方法将单个像素设置为指定的颜色。 当 DrawWidth 属性值大于 1 时，点上居中显示指定的坐标。

绘制点的方式取决于 DrawMode 和 了 属性的设置。

当您应用 PSet 方法时， CurrentX 和 当前 属性设置为 x和 y参数指定的点。

若要使用 PSet 方法清除单个像素，请指定该像素的坐标，并使用 &HFFFFFF (白色) 作为 Color 参数。

示例

下面的示例使用 PSet 方法画一条通过报表水平轴的线。

若要在 Microsoft Access 中试用这一示例，请先创建一个新的报表。 将“主体”节的 OnPrint 属性设置为 [事件过程]。 在报表模块中输入以下代码，然后切换到“打印预览”。

Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 Dim sngMidPt As Single, intI As Integer 
 ' Set scale to pixels. 
 Me.ScaleMode = 3 
 ' Calculate midpoint. 
 sngMidPt = Me.ScaleHeight / 2 
 ' Loop to draw line down horizontal axis pixel by pixel. 
 For intI = 1 To Me.ScaleWidth 
 Me.PSet(intI, sngMidPt) 
 Next intI 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。