Nothing is printing to the paper

int WINAPI WinMain( HINSTANCE hInst, HINSTANCE hPrev, LPSTR lpCmdLine, int nCmdShow )
{
	PRINTDLG pd;
 
	memset( &pd, 0, sizeof( pd ) );
 
	pd.lStructSize = sizeof( pd );
 
	/* 
	 * get rid of PD_RETURNDEFAULT on the line below if you'd like to
	 * see the "Printer Settings" dialog!
	 *
	 */
	pd.Flags = PD_RETURNDEFAULT | PD_RETURNDC;
 
	// try to retrieve the printer DC
	if( !PrintDlg( &pd ) )
	{
		MessageBox( NULL, "PrintDlg( &pd ) failed!", "Fatal Error", MB_OK | MB_ICONERROR );
 
		return -1;
	}
 
	DOCINFO di;
	HDC hPrinter = pd.hDC;
 
	// initialization of the printing!
	memset( &di, 0, sizeof( di ) );
	di.cbSize = sizeof( di );
	StartDoc( hPrinter, &di );
 
		// start the first and only page
		StartPage( hPrinter );
 
		// uncomment the following line to print in colour! :)
		 SetTextColor( hPrinter, 0x0000FF );
 
		// write "Hello, World!" to the printer's DC
		TextOut( hPrinter, 100, 100, "Hello, World!", 13 );
 
		// finish the first page
		EndPage( hPrinter );
 
	// end this document and release the printer's DC
	EndDoc( hPrinter );
	DeleteDC( hPrinter );
 
	return 0;
}