打印凭证的时候，怎么设置自定义纸张类型 ( 积分: 20 )

D

djtop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #1

初学打印编程，练习做一个凭证打印的程序，用fastreport控件。
程序写的还顺利， 可是打印的时候，不知道应该选择什么纸张类型， 罗列出来的每个纸张类型都试了一下， 可针式打印机都是进纸后又马上退了出来。是不是写这类打印程序，要自己程序里增加纸张类型的， 如果是， 该怎么增加？

 

D

djtop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #2

初学打印编程，练习做一个凭证打印的程序，用fastreport控件。
程序写的还顺利， 可是打印的时候，不知道应该选择什么纸张类型， 罗列出来的每个纸张类型都试了一下， 可针式打印机都是进纸后又马上退了出来。是不是写这类打印程序，要自己程序里增加纸张类型的， 如果是， 该怎么增加？

 

D

djtop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #3

刚看了别人的一个目标程序， 他的打印设置里有一个自定义纸张， 可以手工设置纸张的宽和高。我用了delphi自带的TPrinterSetupDialog组件， 没有这个功能。另外， 我用TfrReport设计的凭证尺寸跟实际比例一样。
大家用fastreport做凭证打印是怎么做的

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #4

这里有一些资料你看看吧
fr.pages.Pages[0].ChangePaper(ASize, AWidth, AHeight,abin: Integer;
AOr: TPrinterOrientation);
//(256,3800,2800, 0,poPortrait);
asize:页码纸张的类型，可以通过api从打印驱动中取出例如9是a4，如果系统没有的纸张类型，她3认为是自定义格式 利用 awidth，aheight,生成.
AOr:打印方向
1.解决orientation,polandscape :undeclared identifier ,USE PRINTERS
2.ChangePaper中将高和宽颠倒即可横向

 

D

djtop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #5

谢谢app2001， 我先试一下， 3800， 2800是毫米吗？

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-31

• #6

说实话，我自己没试过，你试试看吧