我用的打印机是热敏打印机,一般打印的时候很快。
但是执行下面一段代码的时候,根据内容的多少,需要等待约30-45秒后才能打印(一般打印40张标签条码)。不知道是什么原因,请大虾帮忙看看!
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 40 '纸张宽度为40毫米
doc.PageSetting.Height = 30 '纸张高度为30毫米
doc.AutoRotate = False '禁止自动旋转打印内容
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 1 '设置下边距
'下面的代码向表格中填入值
For Each r As Row In Tables("学生信息查询表").Rows
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Doc.PrinterName = "Gprinter GP-3120TL"
rt.Cells(0,0).text = r("姓名")
rt.Cells(1,0).text = r("班级名称")
Dim ccc As New prt.RenderGraphics()
Dim BarID1 As New BarCodeBuilder
BarID1.Symbology = Barpro.Symbology.Code128
BarID1.Code = r("学号")
BarID1.BarHeight = 15
BarID1.QuietZoneWidth = 2
BarID1.DrawOnCanvas(ccc.Graphics,0,0,1)
rt.cells(2,0).RenderObject = ccc
Next
doc.Print()