use Qrprntr; QuickRep1.Page.PaperSize := TQRPaperSize(8); //A3,A4是9
同样报错 Undeclared identifier: 'TQRPaperSize' 我该怎么做
同样报错 Undeclared identifier: 'TQRPaperSize' 我该怎么做
怎么会呢?我这都通过了,你 use qrprntr 了吗?
用程序设置打印纸张类型:var Device:Array[0..cchDeviceName-1] of Char; Driver:Array[0..(MAX_PATH-1)] of Char; Port:Array[0..32] of Char; 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:=DMPAPER_A5; pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE; GlobalUnLock(hDMode); end; end; end;
QuickRep1.Page.PaperSize := TQRPaperSize(8); //A3,A4是9
Device:Array[0..cchDeviceName-1] of Char;
Driver:Array[0..(MAX_PATH-1)] of Char;
Port:Array[0..32] of Char;
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:=DMPAPER_A5;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
GlobalUnLock(hDMode);
end;
end;
end;