关于打印的问题？(300分)

H

happy_boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #1

大家好？我做了一个票据套打的程序，可是不知道如何适应各种打印机，在用户要
改变打印机的时候，我就要为他重写打印部分，请问如何才能写出适合各种打印机
的套打程序呢？我用的是TPrinter对象操作的打印。

谢谢！

 

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #2

不知重写的原因什么?打印上出现什么问题？

 

Z

zm30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #3

可以使用qrdesign控件
因为它的报表文件外部文件，所以不用改程序。

 

H

happy_boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-01

• #4

距离呀，应该是打印机的分辨率不同吧？
有好的解决方法吗？

 

C

Chason

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #5

我记得阅过相关的文章，是把读取打印机的分辩率，并把其转换成CM为单位，
这样你可以对不同打印机写代码了。

 

H

happy_boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #6

我看过这样的文章， 　
　Var PointX,PointY:integer;
　　PointX:=GetDeviceCaps(printer?Handle,LOGPIXELSX);
　　PointY:=GetDeviceCaps(printer?Handle,LOGPIXELSX);
　　printer.Canvas.rectangle(0,0,PointX＊1,PointY＊2)
不管用什么打印机，这个程序都可以打印机一个1英寸宽、2英寸高的矩形。
可是我这样做不是不能得到通用的距离呀？

 

S

steel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #7

通用距离是可以得到的：
PointX:=GetDeviceCaps(printer?Handle,LOGPIXELSX);
PointY:=GetDeviceCaps(printer?Handle,LOGPIXELSY);
mmX:=round(pixPerInX/25.4);
//每毫米水平方向象素
mmY:=round(pixPerInY/25.4);
这样用距离（毫米）乘mmX,mmY便可。
不过，要使套打适用各种打印机就烦了，多数套打是对特定打印机的。
　　

 

无

无锡空心菜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #8

做一个打印机参数设置程序，该程序可自动获得当前打印机的分辨率，然后把得到的分辨率
引用到原程序中

 

P

plaw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-11

• #9

搜索一下前面的贴子，关于打印这个问题已经有很多人问过了

 

H

happy_boy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #10

谢谢