delphi3的Quickreport控件的宽行打印?(100分)

  • 主题发起人 主题发起人 mayong
  • 开始时间 开始时间
M

mayong

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi3的Quickreport控件不支持宽行打印纸(美国SF),其Help说可用Custemer方式手工设定,清华BBS也有类似文章。我试之不行。
我的解决方法是:用比其大的打印纸设定后,利用上下左右边界的设定去凑
SF纸的打印。挺麻烦
请问有别的简单办法吗?
 
我也遇到这样的麻烦,
用QuickReport中的Custemer定义 14x11 inch的纸张.(宽行打印纸

本来预览的都很正确, 但打印时就是不对, 后来

在打印机管理器中将使用的打印机属性页打开,
在自定义纸张中定义一个尺寸和US SF相同的纸张,

同时将打印机的默认纸张尺寸定义为Us FS, 便打印正确了.

至于哪个起决定作用, 你自己试吧!
 
先将打印机纸张大小也设为这个大小,下面这段程序我刚看的还没试过,不知行不行:
var
Device:Pchar;
Driver:Pchar;
Port:PChar;
hDMode:THandle;
pDMode:PDevMode;
begin
Printer.GetPrinter(Device,driver,Port,hDMode);
if hDMode<>0 then
begin
pDMode:=GlobalLock(hDMode);
if pDMode<>nil then
begin
pDMode^.dmPaperSize :=0; //纸张大小为自定义红张
pDMode^.dmPaperLength :=15; //设纸宽
pDMode^.dmPaperWidth :=10; //设纸高
end;
end;
end;
 
谢谢,分赃
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部