金庸群侠传xwin10存档:如何用VB实现在同一叶面打印多条记录的报表套打

来源：百度文库编辑：高校问答时间：2024/04/29 00:13:38

我最近作了一个程序，是从数据库中调出数据套打，套打格式是一样的请问如何实现在同一叶面中实现打印多条记录。谢谢

请参阅本人回答类似问题的答复,见如下网址:
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 zsl - 1
'在此添加需打印的代码,需确定X,Y,FNT,TXT(打印内容)
Printer.NewPage
Next i
Printer.EndDoc ' 打印完成。

仅供参考,祝成功!

我一般都用 vs 打印控件,你需要的话,QQ:905906

如何用VB实现在同一叶面打印多条记录的报表套打如何用VB实现 VB 如何用滚动条实现对窗体和OLE1的滚动操作？ VB 如何用滚动条实现对窗体和OLE1的滚动操作？如何用VB打印介绍信? 如何用VB实现人机对话在ACCESS数据库里，如何用ASP语言实现记录里面一条记录修改，下面的记录会跟着改变。如何用VB在XP下实现屏蔽任务管理器如何用sql语句实现把每条记录都加上1 VB6.0中如何用编程的方法实现打印。。。