怎么才能确定在窗体中的XY值? (50分)

  • 主题发起人 niceboy911
  • 开始时间
N

niceboy911

Unregistered / Unconfirmed
GUEST, unregistred user!
?我如何才能用代码把一个打印的项目的用纸固定住?比如我要把一个证件,
纸比必是A3横向才行,怎么办?难道要每次都要设置打印机吗?
 
各位高手,没有办法吗?
 
你在用报表时将纸张设好就行了,要看你是用什么报表控件了
 
ehlib25应该怎么办?
 
没用过这个控件,但是应该差不多吧,在rep里有纸张设置这一项吧
 
设置默认打印机纸张长度、宽度
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;
pDMode:pDevMode;
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;
 
顶部