🚀 go-pugleaf

Anthony wrote:
>From the research I have done and the examples I have found I thought the
>following should work.  But the font doesn't seem to change.
>
>  LOGFONT lpLogFont;
>  HFONT hfont, hfontPrev;
>  ZeroMemory(&lpLogFont, sizeof(LOGFONT));
>  strcpy(lpLogFont.lfFaceName, "Courier New");
>  lpLogFont.lfWidth=5;
>  lpLogFont.lfHeight=5;
>  hfont = CreateFontIndirect(&lpLogFont);

You probably don't fill in enough values. Or maybe 5x5 is too small.
You might try this (from my code).

 // select font for lpp LinesPerPage
	printerDy =GetDeviceCaps(printerDC, VERTRES)/lpp;
 // select font for cpl CharsPerLine
	printerDx =GetDeviceCaps(printerDC, HORZRES)/cpl;
	printerFont= CreateFont(
		printerDy,printerDx,
		0,			// angle of escapement
		0,			// base-line orientation angle
		FW_NORMAL,		// font weight
		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
		printer_quality == 'D'?DRAFT_QUALITY:PROOF_QUALITY,
// output quality
		FIXED_PITCH+FF_MODERN,	// pitch and family
		NULL		 	// pointer to typeface name 
	);