如何用VB实现在同一叶面打印多条记录的报表套打

请参阅本人回答类似问题的答复,见如下网址:
http://zhidao.baidu.com/question/4168806.html
http://zhidao.baidu.com/question/4165080.html
注意数据库连接和数据查询并传递给变量.

Option Explicit '变量声明
Private zh_dm(10) As Double
Private dy_dm(3000, 10) As Variant
Private zsl As Integer
Private i As Integer
Private k As Integer
Private j As Integer
Private y As Integer'函数内参数外使用的变量定义
Private x As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant
'打印函数定义
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt0
End Function
下面给出套打的程序结构:
For i = 0 To z