用VB 5.0从Recordset中打印列表

发布: 2007-7-14 20:28 | 作者: 佚名 | 来源: 网络转载 | 查看: 8次 | 进入软件测试论坛讨论

　　 Visual Basic 所附带的报表生成器-Crystal Reports，功能强大，能完成大部分报表的制作。但在某些情况下，用Crystal Reports 却很难作出报表来。例如，根据用户输入不同的过滤(Filter) 条件，将产生不同的虚拟表，此时用Crystal Reports 制作报表就勉为其难了，在这种情况下，可使用VB 提供的Printer 对象来予以解决。

---- 下面是本人在给单位开发一个产品销售情况统计分析软件的过程中，使用Printer 对象从Recordset 对象的虚拟表中打印数据的通用代码：

Sub PrintRecordset(recRecordset as Recordset)
Dim LeftMargin As Integer
Dim HeadTopPosition As Integer
Dim FieldNum As Integer
Dim PageCounter As Integer
Dim MyRecordset As Recordset
Const FooterTopPosition=24

Set MyRecordset=recRecordset
PageCounter = 1
' 设置Printer 对象坐标的度量单位为厘米
Printer.ScaleMode = vbCentimeters

LeftMargin = 1.5
HeadTopPosition = 2

---- ' 定义打印页左上角的X 坐标和Y 坐标，通过改变ScaleLeft 和ScaleTop 的值，可改变打印页的左边距和上边距

Printer.ScaleLeft = -LeftMargin
Printer.ScaleTop = -HeadTopPosition

Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 12

Printer.Print "Lovesoft Corp."
Printer.Print ""

If MyRecordset.EOF And MyRecordset.BOF Then
MsgBox "No Record At Presend!",
vbCritical + vbOKOnly, "Print Error"
Exit Sub
End If
MyRecordset.MoveFirst

Do Until Printer.CurrentY > FooterTopPosition

'Print the fields of the recordset in sequence
For FieldNum = 0 To MyRecordset.Fields.Count - 1
Printer.Print MyRecordset.Fields
(FieldNum).Name & _
": " & _
MyRecordset.Fields(FieldNum).Value
If Printer.CurrentY > FooterTopPosition Then
Printer.CurrentX = 8
Printer.Print "Page: " & PageCounter
' 创建多页文档
Printer.NewPage
PageCounter = PageCounter + 1
End If
Next FieldNum

MyRecordset.MoveNext
If MyRecordset.EOF Then Exit Do
' 在记录之间空一行
Printer.Print ""
Loop

'Print the Page number as a footer
Printer.CurrentX = 8
Printer.CurrentY = FooterTopPosition
Printer.Print "Page: " & PageCounter
' 将输出送到打印机
Printer.EndDoc
End Sub

---- 调用上述PrintRecordset 通用过程相当方便，下面是通过cmdPrint 按钮的Click 事件进行调用的一个实例：

Private Sub cmdPrint_Click()
PrintRecordset Data1.Recordset
End Sub