C / C++ / MFC

void CPrintTestDlg::OnButtonPrint() 
{
	// Ask the user which printer they want to use
	CPrintDialog dlg (FALSE);
	if (IDOK != dlg.DoModal())
		return;

	CWaitCursor wait; // Show a busy cursor while printing

	// Get the dialog to create a printer DC for this printer
	HDC printerDC = dlg.CreatePrinterDC();

	// Create a CDC connected to this HDC
	CDC	dc;
	dc.Attach( printerDC );

	// Determine the printable area of the page
	CPoint pt( GetDeviceCaps(dc.m_hDC, HORZRES),
			   GetDeviceCaps(dc.m_hDC, VERTRES) );
	dc.DPtoLP( &pt );
	CRect rectPage( 0, 0, pt.x, pt.y );

	// Create the document information
	CString strTitle = "Document Title";
	DOCINFO docInfo;
	docInfo.cbSize = sizeof(DOCINFO);
	docInfo.lpszDocName = strTitle; 
	docInfo.lpszOutput = 0; 
	docInfo.lpszDatatype = 0;

	// Start the doc and page
	dc.StartDoc( &docInfo );
	dc.StartPage( );

	// Print out some text in our chosen font
	int currentY = 0; // Maintain our current position down the page
	// Specify a LOGFONT for the font we require
	LOGFONT* pLogFont = new LOGFONT;
	pLogFont->lfCharSet = ANSI_CHARSET;
	pLogFont->lfClipPrecision = CLIP_DEFAULT_PRECIS;
	pLogFont->lfEscapement = 0;
	CString strFaceName = "Times New Roman"; // Change font name here to whatever you need
	lstrcpy (pLogFont->lfFaceName, strFaceName);
	// Calculation allows us to specify the font size in points
	pLogFont->lfHeight = -MulDiv (16, GetDeviceCaps (dc.m_hDC, LOGPIXELSY), 72); // 16 point font
	pLogFont->lfItalic = FALSE;
	pLogFont->lfOrientation = 0;
	pLogFont->lfOutPrecision = OUT_DEFAULT_PRECIS;
	pLogFont->lfPitchAndFamily = DEFAULT_PITCH | FF_DONTCARE;
	pLogFont->lfQuality = DEFAULT_QUALITY;
	pLogFont->lfStrikeOut = FALSE;
	pLogFont->lfUnderline = TRUE;
	pLogFont->lfWeight = FW_BOLD;
	pLogFont->lfWidth = 0;

	// Create and select the font
	CFont* pFont = new CFont;
	pFont->CreateFontIndirect( pLogFont );
	CFont* pOldFont = dc.SelectObject( pFont );
	// Centre alignment
	dc.SetTextAlign( TA_CENTER );
	dc.TextOut( rectPage.Width() / 2, rectPage.top, strTitle ); // Display title line
	// Update our position down the page
	currentY += abs (pLogFont->lfHeight);

	// Change the font for the rest of the text
	dc.SelectObject (pOldFont);
	pFont->DeleteObject ();
	delete pFont;
	pFont = new CFont;
	// Update the LOGFONT
	pLogFont->lfHeight = -MulDiv (8, GetDeviceCaps (dc.m_hDC, LOGPIXELSY), 72); // 16 point font
	pLogFont->lfUnderline = FALSE;
	pLogFont->lfWeight = FW_NORMAL;
	// Change the font
	strFaceName = "Courier New";
	lstrcpy (pLogFont->lfFaceName, strFaceName);
	pFont->CreateFontIndirect( pLogFont );
	pOldFont = dc.SelectObject( pFont );
	// Add space for a blank line
	currentY += abs (pLogFont->lfHeight);
	// Change the alignment to left
	dc.SetTextAlign( TA_LEFT );
	CString strText = "Some text to output.";
	dc.TextOut (0, currentY, strText);
	
	// Print a bounding rectangle - not essential but can help when debugging
	dc.SelectObject( ::GetStockObject(NULL_BRUSH) );
	dc.Rectangle( rectPage );

	// End the page and then the doc - this will spool it to the printer
	dc.EndPage();
	dc.EndDoc();

	// And cleanup
	delete pLogFont;
	delete pFont;
	dc.Detach();
	DeleteDC( printerDC );  
}