发票套打问题!有经验的兄弟们请进!

寒星 2002-02-24 12:51:32
小弟是用TPrinter.Canvas.TextOut来解决发票套打问题的,发票高14cm,宽6cm。在WIN2000下打印一切正常,在win98下却会多走一页,但我并没有使用NewPage呀,而且位置都是换算好的,请问是怎么回事?
...全文
66 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
寒星 2002-02-26
  • 打赏
  • 举报
回复
兄弟帮帮忙啊。
耙子 2002-02-25
  • 打赏
  • 举报
回复
另外,类似这类的发票套打,我一般用Formula one控件,用Excel做好大小,当作模板保存,然后往固定的Cell写内容就行了,格式变了修改相关的模板就行了。
耙子 2002-02-25
  • 打赏
  • 举报
回复
重新找一个HP的驱动,我以前用HP 6P 打印Excel出过类似的这问题,后来下载了一个中文版的HP驱动就好了。
afeisky 2002-02-25
  • 打赏
  • 举报
回复
可能是打印机不同造成了,换打印机重新调整打印页面!
寒星 2002-02-25
  • 打赏
  • 举报
回复
那这个问题该如何解决呢?
寒星 2002-02-24
  • 打赏
  • 举报
回复
与打印驱动有关吗?我发现自己的程序在LQ1600系列上正常的,但在HP激打上位置就不对了。
寒星 2002-02-24
  • 打赏
  • 举报
回复
请兄弟们帮忙啊。分不会不给的。谢谢啦!
寒星 2002-02-24
  • 打赏
  • 举报
回复
用下面的语句设置的页面类型。
with DevMode^ do
begin
dmFields := dmFields or DM_PAPERSIZE;
dmPaperSize := 0;

dmFields := dmFields or DM_PAPERWIDTH;
dmPaperWidth := 600; //0.1mm

dmFields := dmFields or DM_PAPERLENGTH;
dmPaperLength := 1400; //0.1mm
end;
墨梅无痕 2002-02-24
  • 打赏
  • 举报
回复
很有可能,因为同一种打印机,Win98和Win2000的打印驱动程序是不一样。
再有,LQ1600和激打明显是两种不同的打印机。
可能需要根据Windows操作系统的版本来调整驱动程序。

829

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧