在QReport中自定义纸张大小的问题，谁碰到了？(50分)

G

gjxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #1

在QReport中自定义纸张大小，用Epson针式打印机，预览正常后打印，光走纸，不打印，能告诉我怎吗解决吗？

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #2

将打印机纸张设置为自定义

 

G

gjxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #3

to xianguo:
Thanks ,我将打印机纸张设置为自定义后已能打印，但不知怎样用程序来实现将打印机纸张
设为自定义？

 

T

tkeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #4

写这样的代码:
QuickRep1.Page.PaperSize:=custom;//这里一定要设成custom;
QuickRep1.Page.Length:=297;//长度,这里单位是mm,值可设成你需要的
QuickRep1.Page.Width:=210;//宽
其它的边距等,你看看page属性,设成你需要的就可以了!
这样一定能解决!

 

淡

淡如水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #5

procedure printer_set(aLength,aWidth :Integer);
var
Device:Array[0..256] of Char;
Driver:Array[0..256] of Char;
Port:Array[0..32] of Char;
hDMode:THandle;
pDModeDevMode;
begin
Printer.GetPrinter(Device,Driver,Port,hDMode);
if hDMode<>0 then
pDMode:=GLobalLock(hDMode);
if pDMode<>nil then
begin
pDMode^.dmPaperSize:=256;
pDMode^.dmPaperLength:=aLength;//长
pDMode^.dmPaperWidth:=aWidth;//宽
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERLENGTH;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERWIDTH;
end;
ResetDC(Printer.Handle,pDMode^);
GLobalUnLock(hDMode);
end;

 

G

gjxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #6

[8D]

 

T

ting__ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #7

我的方法和tkeng 一样的，可以解决

 

T

ting__ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #8

我的方法和tkeng 一样的，可以解决

 

T

ting__ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #9

我的方法和TKENG一样的，可以解决

 

Z

zzh0918

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-30

• #10

参考http://www.delphibbs.com/delphibbs/dispq.asp?lid=1312675

 

A

antilope

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-13

• #11

怪，你把代码贴出来

 

G

gjxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-16

• #12

接受答案了.