请高手指点：票据打印问题，如能解决，一定加分！！！

fooltech 2003-09-11 06:36:18

这是我的发票打印程序，但在EPSON LQ-1600III上运行不了。票据尺寸是：93*190MM
，开始在EPSON LQ-1600II上调试没有问题，但换到客户EPSON LQ-1600III上打印时，就只是进纸，不打印字符或只打印了中间几行。问题急需解决，本人在打印方面的经验不足，请各位高手高高手来指点指点，问题解决一定给分重谢！时值中秋佳节之际，特祝各位VB朋友中秋快乐。
Printer.ScaleMode = vbMillimeters
Printer.ScaleLeft = 10
Printer.ScaleTop = 10
Printer.PaperSize = 256
Printer.Width = 190 '将打印纸定义为19厘米宽9.3厘米高
Printer.Height = 93
Printer.Orientation = 1
Printer.Font.Name = "宋体"
Printer.Font.Size = 10
Printer.CurrentY = 0 '门牌
Printer.CurrentX = 30
Printer.Print Text1(0).Text
Printer.CurrentY = 0 '区域
Printer.CurrentX = 85
Printer.Print DBCombo1.Text
Printer.CurrentY = 0 '时间
Printer.CurrentX = 120
Printer.Print DTPicker1.Value
Printer.Font.Size = 14
Printer.FontBold = True
Printer.CurrentY = 8 '户名
Printer.CurrentX = 40
Printer.Print Text1(3).Text
Printer.CurrentY = 15 '金额
Printer.CurrentX = 45
Printer.Print Label3.Caption
printer.enddoc

...全文

42 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

hoge66 2003-09-16

打赏
举报

打印的时候，出现网状小点？？？怎么办呢？

lyz803 2003-09-16

打赏
举报

你如果想脱离打印机的限制，就是使用报表来作，这样来作没有打印机的限制，我是用的是ActiveReport报表，我得客户使用的打印机是各种各样，都没有关系，只要支持设置打印制纸张就可以，还有就是不用你直接控制，你只要在设计报表的时候量好尺寸就可以啦，别的就不用问，如果还有不明白的地方，可以找我！你的这种方式我也使用过，就是直接控制打印机的位置来打印票据，这种方法我感觉不太好！

mudai 2003-09-16

打赏
举报

不过你还可以调用Excel去打印，这样处理起来方便点，我有一个朋友我建议人它用Excel做的也是打印票据，那样处理起来简单，不行你试，呵呵

mudai 2003-09-16

打赏
举报

晕哦，打印要看打印机支持自定义，还有就是在程序中如果你不是自定义了纸的长和宽了吗！
所以打印很有可能是打印机不支持自定义类型的，我以前也碰到过种问题，2000下有的打印机就不支持自定义，你还得找往打印机里添加自定义纸张类型，唉麻烦着呢，所以打印你还是放在W98下打吧

SuperZhou 2003-09-15

打赏
举报

建议你参考：
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;282474

fooltech 2003-09-14

打赏
举报

我将客户打印机的驱动重新安装了一次，是LQ-1600KIII ESP/...，但是用以上代码运行报错。
Printer.ScaleMode = vbMillimeters
Printer.ScaleLeft = 10
Printer.ScaleTop = 10
Printer.PaperSize = 256 ' 这句保错:打印机连接不正常或不正确
Printer.Width = 190 '
Printer.Height = 93 ’这两句也报错：打印机属性值无效
我快要疯了！在自己的LQ-1600KIII上调试的非常成功，但在客户机器上就是行不通。请各位高手给我指点，帮帮忙呀，送分就更不用说了。

airon2002 2003-09-13