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





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