循环打印问题

[maituo]

2个窗体A 和 B

A窗体是查询功能，B窗体是打印的发票格式

我现在想做的是批量打印，在A窗体查询的数据，点击批量打印按钮，调用B窗体 然后 Me.PrintForm.

现在的问题是可以打印，但问题是 在打印过程中如果打印机夹纸了，停止打印机，在开机就不按我正常的格式打印了，一下子进了很多张，我打印机的打印列表都清楚，重新打印的话 就不知道打印在什么位置了？ 高手指点下啊 我代码如下 B窗体代码



Dim rs21 As New ADODB.Recordset
sql21 = "select * from 明细表log where id in(select id from print_id where name='" & Trim(v_denglu.v_name1) & "')"
rs21.Open sql21, db


bb = 0
Do While Not rs21.EOF





xm.Caption = rs21("姓名") & " 编号：" & rs21("编号")

nian.Caption = Year(Date)
yue.Caption = Month(Date)
ri.Caption = Day(Date)




fm.Caption = "收缴费用月份是：" & rs21("月份")

byf.Caption = FormatNumber((rs21("保育费")), 2)

hsf.Caption = FormatNumber(Trim(rs21("伙食费")), 2)

wsf.Caption = FormatNumber(Trim(rs21("卫生费")), 2)



byfbz.Caption = "出勤超过10天（不含10天），收取全额；否则收取半额；"

ts.Caption = rs21("出勤天数")

banbie.Caption = rs21("班别")
hsfbz.Caption = "每天" & s_huoshi & "元,当月共出勤天数为：" & ts.Caption & "天；"


heji.Caption = FormatNumber(rs21("减免后合计"), 2)



'装换大小写

Call Num2Chi(rs21("减免后合计"))


'更新打印催款单标记
Dim rsc1 As New ADODB.Recordset
Dim sqlc1 As String
sqlc1 = "update 明细表log set 打印1='1' where id =" + Trim(rs21("id"))
rsc1.Open sqlc1, db
Set rsc1 = Nothing




'A窗体的ID传到print_id 里，打印完就删除ID
Dim rsa1 As New ADODB.Recordset
Dim sqla1 As String
sqla1 = "delete print_id where id =" + Trim(rs21("id"))
rsa1.Open sqla1, db
Set rsa1 = Nothing

Me.PrintForm




rs21.MoveNext
bb = bb + 1
Loop


Set rs21 = Nothing

[Tiger_Zhao]

建议用报表进行打印，比如 Data Report

[china_shy_wzb]

用水晶报表要好得多，做打印也方便

[chinaboyzyq]

B窗体加上分页代码是否会好些。