Delphi 设置打印纸大小.rar

Delphi设置打印纸张大小，手动设置打印纸的长度和宽度，自定义纸张。相关代码：　　procedureTForm1.SetPaperSize(cx,cy:Integer);　　var　　a,b,c:array[0..255]ofchar;　　bb:Cardinal;　　ee:PDEVMODE;　　begin　　printer.PrinterIndex:=printer.PrinterIndex;　　printer.GetPrinter(a,b,c,bb);　　ee:=GlobalLock(bb);　　ee^.dmPaperSize:=DMPAPER_USER;　　ee^.dmP