如何动态控制报表打印的纸张大小(100分)

W

wangbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #1

quickrep1.page.papersize=Letter;代码在编译时通不过不知那位仁兄赐教

 

W

wangbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-28

• #2

E-mail:bowang1.@yeah.net

 

E

e.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-01

• #3

打印的纸张大小: printers.pas

 

P

plwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-14

• #4

???

 

Z

zy_fan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-17

• #5

如果,你打印数椐库报表,可以获得查询结果,根据结果的长度可以动态设置报表长度.

 

懂

懂云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-20

• #6

在inteface 下加入
uses qrprntr;

 

L

lyd_2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-26

• #7

quickrep1.page.papersize 只能通过INSPECTOR 选择，如果使用自定义纸张，选择CUSTOM后，
override the Length and Width properties. 即可。

 

E

e.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-04

• #8

var
ADevice,ADriver,APort:string;
ADeviceMode:THandle;
DevModeDeviceMode;
Page:TPoint;
begin

DevMode:=GlobalLock(ADeviceMode);
try
DevMode^.dmFields:=DevMode^.dmFields or DM_PaperSize;
DevMode^.dmPaperSize:=？;
DevMode^.dmFields:=DevMode^.dmFields or DM_PaperWidth;
DevMode^.dmPaperWidth:=2090;
DevMode^.dmFields:=DevMode^.dmFields or DM_PaperLength;
DevMode^.dmPaperLength:=?;
finally
GlobalUnlock(ADeviceMode);
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-10

• #9

多人接受答案了。