Главная страница | назад





Article #17610: Passing TPrinter handle to GetDeviceCaps()

 Question and Answer Database
FAQ2610D.txt Passing TPrinter handle to GetDeviceCaps()
Category :Windows API
Platform :All
Product :All 32 bit
Question:
Is there any way to call the GetDeviceCaps() function before I
start my print job?
Answer:
Yes, You can pass the Printer.Handle property to the
GetDeviceCaps() function instead of the Printer.Canvas.Handle
property.
Example:
{Before BeginDoc;}
HRes := GetDeviceCaps(Printer.Handle, HORZRES);
VRes := GetDeviceCaps(Printer.Handle, VERTRES);
Printer.BeginDoc;
{After BeginDoc;}
InchX := GetDeviceCaps(Printer.Canvas..Handle, LOGPIXELSX);
InchY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
Printer.Canvas.TextOut(InchX, InchY, 'Delphi Is RAD!');
Printer.EndDoc;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99