用的是填充空记录的方法作者: caibbs 时间: 2004-4-10 18:56
多谢谢作者: Ajoe 时间: 2004-4-10 20:00
我还是看不懂，帮我看看我这个应该怎么来做，我放了限制打印17行的代码。
帮我吧！谢谢！
[attach]4181[/attach]作者: skylark 时间: 2004-4-11 00:45 标题: 土豆的方法 To Ajoe:
土豆的方法，不知是否满意？土豆的水平不低。
——————————————
Do Our Job Well Try Anything Once
[attach]4191[/attach]作者: 土豆 时间: 2004-4-11 00:57
给你解释一下程序
'打印按钮单击
Private Sub cmdPrint_Click()
Dim RcdCount, i
'先清除空白记录
CurrentDb.Execute "DELETE * FROM Bill WHERE PID=0"
'取现有当前记录数
RcdCount = objList.Form.Recordset.RecordCount
'插入需要的空白记录（例如满页为50行，则插入（50－现有记录数）条空白记录）
For i = 1 To (50 - RcdCount)
CurrentDb.Execute "INSERT INTO Bill(PID) VALUES(0)"
Next
'打开报表
DoCmd.OpenReport "rptBill", acViewPreview
DoCmd.Maximize
End Sub作者: Ajoe 时间: 2004-4-11 04:54
1、会出现删除警告窗口！这样不够完美。
2、RcdCount = objList.Form.Recordset.RecordCount，这句我的通不过。作者: Ajoe 时间: 2004-4-11 06:33
解决了！
1、把下拉菜单“工具”→“选项”，里面“编辑/查找”中的“操作查询”去掉√，目的是不出现查询操作的询问窗口。
2、请看我的实例。已经解决了每页限制打印17行，不足17行的也会补足。原理是：用一个临时的数据表PrintTmp，利用名字叫MyInse的这个追加查询对临时表进行写操作，然后，把报表的数据源对准这个临时表就行了。
=========================
[attach]4194[/attach]
=========================
但是还有不明白的地方：