🚀 go-pugleaf

Thomas J. wrote:

>Oh sorry I used to work with the VCL. It would be great if you could send me
>a code snippet how to open the dialog.

The following is commented out of my production code because I didn't
want to burden my users with the MS arcanea.


	HDC		printerDC;
	int		printerJob;
	/*optional*/
static	HGDIOBJ	oldPrinterFont; /*module local*/
static	HFONT		printerFont;

//RptLabel is the name that will show in the Printer Jobs queue.
BOOL _stdcall setup_printer(char*RptLabel, DWORD rows, DWORD cols)
{
	PRINTDLG pd;
	DOCINFO	lpdi;

	bPrint=TRUE;
	ReportLabel=RptLabel;

	// Initialize the PRINTDLG members. 
	pd.lStructSize = sizeof(PRINTDLG); 
	pd.hDevMode = (HANDLE) NULL; 
	pd.hDevNames = (HANDLE) NULL; 
	pd.Flags = PD_RETURNDC|PD_USEDEVMODECOPIESANDCOLLATE;
	pd.hwndOwner = hWnd; 
	pd.hDC = (HDC) NULL; 
	pd.nFromPage = 1; 
	pd.nToPage = 1; 
	pd.nMinPage = 0; 
	pd.nMaxPage = 0; 
	pd.nCopies = 1; 
	pd.hInstance = (HANDLE) NULL; 
	pd.lCustData = 0L; 
	pd.lpfnPrintHook = (LPPRINTHOOKPROC) NULL; 
	pd.lpfnSetupHook = (LPSETUPHOOKPROC) NULL; 
	pd.lpPrintTemplateName = (LPSTR) NULL; 
	pd.lpSetupTemplateName = (LPSTR)  NULL; 
	pd.hPrintTemplate = (HANDLE) NULL; 
	pd.hSetupTemplate = (HANDLE) NULL;

	if( 0==allow_PTD ) pd.Flags |= PD_DISABLEPRINTTOFILE;
	// Display the PRINT dialog box.  
	PrintDlg(&pd);
	if( 0==(printerDC=pd.hDC) ) return FALSE;

	/*my code to pick best-fit font for the report */
	/*sets printerFont*/
	/*ignore this line to use default font*/
	oldPrinterFont=setup_font(rows,cols);

	lpdi.cbSize=sizeof(DOCINFO);
	lpdi.lpszDocName=ReportLabel;
	lpdi.lpszOutput=(pd.Flags & PD_PRINTTOFILE) ? "FILE:" : NULL;
//NULL for printerDC
	lpdi.lpszDatatype="RAW";	// Windows 95 only; ignored
	lpdi.fwType=0;		// Banding: Windows 95 only;
	printerJob=StartDoc(printerDC,&lpdi);
	if( printerJob<1 )
	{	ErrorBox2(GetLastError(),"Printer (StartDoc) Error",
			 &printerfile_port);
		/*Ignore next 2 lines if using default font*/

SelectObject(printerDC,oldPrinterFont);//RestoreOriginalFont
		DeleteObject(printerFont);//DeleteMyFont
		DeleteDC(printerDC);
		return FALSE;
	};
	StartPage(printerDC);
//I use ExtTextOut to position each string, so use TA_NOUPDATECP
	SetTextAlign(printerDC,TA_LEFT+TA_TOP+TA_NOUPDATECP);
>//If Bk isn't transparent then subsequent lines/chars can clip previous data
	SetBkMode (printerDC, TRANSPARENT);
	return TRUE;
}