文件名称：Delphi 设置打印纸大小.rar
文件大小：59KB
文件格式：RAR
更新时间：2022-07-30 13:12:12
Delphi源码-报表打印
Delphi 设置打印纸张大小，手动设置打印纸的长度和宽度，自定义纸张。相关代码： procedure TForm1.SetPaperSize(cx, cy: Integer); var a,b,c: array[0..255]of char; bb: Cardinal; ee: PDEVMODE; begin printer.PrinterIndex := printer.PrinterIndex; printer.GetPrinter(a,b,c,bb); ee:= GlobalLock(bb); ee^.dmPaperSize := DMPAPER_USER; ee^.dmPaperLength := cy*10; ee^.dmPaperWidth := cx*10; ee^.dmFields :=ee^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH; ee^.dmFields := ee^.dmFields or DMBIN_MANUAL; ee^.dmDefaultSource :=DMBIN_MANUAL; GlobalUnlock(bb); printer.PrinterIndex := printer.PrinterIndex; end;
【文件预览】：
srcfans.com
----设置打印纸大小()
--------Unit1.ddp(51B)
--------Project1.map(311KB)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Project1.dsk(9KB)
--------Unit1.dfm(7KB)
--------Project1.cfg(391B)
--------Project1.dpr(188B)
--------Project1.drc(22KB)
--------Project1.dof(3KB)
--------Unit1.pas(1KB)