| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于打印报表打印热敏纸时不打印内容问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143860) |
| -- 作者：zto001 -- 发布时间：2019/12/5 16:50:00 -- [求助]关于打印报表打印热敏纸时不打印内容问题 代码如下，如果直接使用打印，在打印热敏纸（快递单）时不打印出内容，在使用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() \'预览报表 |
| -- 作者：zto001 -- 发布时间：2019/12/5 16:53:00 -- 这个是放在自定义函数里的 |
| -- 作者：有点蓝 -- 发布时间：2019/12/5 17:09:00 -- 我也不知道是什么问题。可能打印机驱动有关吧。可以正常走纸，但是打印空白？ |
| -- 作者：zto001 -- 发布时间：2019/12/5 18:05:00 -- 是的。但如果是预览打印就正常 |
| -- 作者：有点蓝 -- 发布时间：2019/12/6 8:23:00 -- 完整代码发过来看看。 另外函数是怎么调用的，传入哪些具体的参数值？
|