有关打印分页（200分）(200分)

D

Dooing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #1

我用Printers的
begin
doc;
Canvas.TextOut();
enddoc;
语句序列输出报表，当程序执行到 enddoc 时便会根据当前打印机
设置的页高自动换页，由于一次需要输出若干个表，而每个表的高
度又不定，我需要用连页纸连续打印，不换页。请各位大虾赐教。
我用的打印机是 Epson LQ-1600KIII。

 

A

adminis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #2

把打印机设置为自定义纸张。

 

X

xWolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #3

动态调整打印机纸张大小
http://www.computerworld.com.cn/99/week/9928/9928b14.asp

 

L

LawrenceZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #4

自定义纸张

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #5

试试直接字符驱动方式：
VAR
lpt :TextFile
begin
AssignFile( lpt, 'LPT1' );
ReWrite( lpt );
Write( lpt, '打印测试' );
Write( lpt, #12 );
//打印机换页
CloseFile( lpt );
END

 

D

Dooing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-27

• #6

接受答案了.

 

S

songll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-28

• #7

先使用自定义纸张,再在程序执行中调整纸张大小

 

L

luyueming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-30

• #8

能告诉我具体怎么做吗?
谢谢.