得到打印机的象素.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 13 行

VertPixelsPerInch := GetDeviceCaps(Printer.Handle, LogPixelsX); 

HorzPixelsPerInch := GetDeviceCaps(Printer.Handle, LogPixelsY); 


GetPageWidth := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH)

GetPageHeight := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT)

GetPageOffsetLeft := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX)

GetPageOffsetTop := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY)