Получить размер бумаги в миллиметрах

Советы » Принтеры и Печать » Получить размер бумаги в миллиметрах

uses

printers; procedure

TForm1.Button1Click(Sender: TObject); var

papermmx, papermmy: Extended; begin

Printer.BeginDoc; { PHYSICALWIDTH = Dots horizontal of the paper LOGPIXELSX = DPI (Dots per Inch) 25.4 = To calculte Inch to Millimeter } papermmx := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALWIDTH) / GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) * 25.4; papermmy := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALHEIGHT) / GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY) * 25.4; with

Printer.Canvas do

begin

TextOut(200, 100, floattostr(papermmx) + ' mm x ' + floattostr(papermmy) + ' mm'); end

; Printer.EndDoc; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com