🚀 go-pugleaf

Malcolm Smith wrote:

>I need to know the number of pixels text will be rendered on a printer.
>Is there a more reliable way to test the printer canvas ?

You probably want to use GetDeviceCaps() to get the capabilities for
each printer.

You could use PHYSICALHEIGHT to get the paper height in DUs. Looks
like DUs are DPI * height.

VERTREZ for vertical pixels per page or
LOGPIXELSY for pixels per inch vertical.

>    Printer()->Canvas->TextHeight("0");
>
>but this reveals 75 pixels for both physical printers on my system (laser
>and deskjet).
>
>On the 600dpi laser printer this is fine, but on the 120dpi deskjet (draft
>mode) it is WAY OFF.

Yeah, depends on the font, doesn't it?

>I'm printing thumbnail images with captions and a 2mm gap. On my deskjet
>this becomes a 16mm gap.

So, select the font/size that you want to use:

	printerDy =GetDeviceCaps(printerDC, VERTRES)/lpp;
	printerDx =GetDeviceCaps(printerDC, HORZRES)/cpl;

	printerFont= CreateFont(
		printerDy,printerDx,
		0,			// angle of escapement
		0,			// base-line orientation angle
		FW_THIN,
		FALSE,			// italic attribute flag
		FALSE,			// underline attribute flag
		FALSE,			// strikeout attribute flag
		OEM_CHARSET,		// character set identifier
		OUT_TT_PRECIS,		// output precision
		CLIP_DEFAULT_PRECIS,	// clipping precision
		PROOF_QUALITY,
		FIXED_PITCH+FF_MODERN,	// pitch and family
		NULL );		 	// pointer to typeface name 
	DeleteObject( SelectObject(printerDC,(HGDIOBJ)printerFont) );
Use it:
	ExtTextOut(printerDC,printerDx*x,printerDy*y,
		0,	// text-output options
		(RECT*)NULL,	// optional clipping and/or opaquing 
		str,		// points to string
		z,		// number of characters in string 
		(INT *)NULL ); 	// pointer to array of intercharacter 

Set lpp to 110, and you will get about 0.1 inch high letters.
Print a thumbnail that is 1/10 the page, and print the image at y=12,
and it should be right under it.