产品包装是固定数量为160的，如果产品销售数量小于160，则打印一张标签，否则打印160的整数倍加上余量，例如：247这个数量就打印一张160的标签再打印一张87标签，两个标签的和为247即可，请问怎么写？
For i As Integer = 0 To dr("销售数量")\160
mc.Text= "机器人"
jh.Text= dr("客户编号")
sp.Text = dr("产品名称")
qty.Text = 160
cnumber.Text = dr("订单号")
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.AutoRotate=False
Doc.PageSetting.Landscape=False
Doc.PageSetting.Width=130
Doc.PageSetting.Height=150
Doc.PageSetting.BottomMargin=0
Doc.PageSetting.LeftMargin=0
Doc.PageSetting.RightMargin=0
Doc.PageSetting.TopMargin=0
doc.Print
加好友 
发短信
Post By：2016/9/30 16:31:00 [显示全部帖子]
