代码如下,如果直接使用打印,在打印热敏纸(快递单)时不打印出内容,在使用A4纸的喷墨机时打印内容。只有把代码改成预览打印,才能在热敏纸上打出内容,这是为啥?
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width =76 '纸张宽度为100毫米
doc.PageSetting.Height =130 '纸张高度为120毫米
Dim rt As New prt.RenderTable() '定义一个表格对象
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
'指定行数?列数?列宽?行高
rt.Rows.Count = 10 '设置总行数
rt.Cols.Count = 4 '设置总列数
.........
rt.Cells(2,0).RenderObject = rg '将单元格内容设置为图片对象rm
Dim rbc As New prt.RenderBarCode()
rbc.Height = 1
rbc.BarCodeType = BarCodeEnum.Code128
rbc.BarDirection = BarDirectionEnum.Up
rbc.Text = 当前行("运单编号")
rbc.ShowText = False
rt.Cells(5,3).RenderObject = rbc '将单元格内容设置为图片对象rm
doc.Body.Children.Add(rt) '将表格对象加入到报表中
'Doc.PrinterName = Args(1)
Doc.Print() '预览报表