모니터 해상도 : 72dpi

프린터 해상도 : 600dpi 이상

도라지 님이 쓰신 글 :
: 안녕하세요^^;;
: 모니터상으로는 이뿌게.. 잘 나오는데...폼을 프린트하는데... 너무 뿌옇게 나와서 속이 상합니다. ㅠ
:
: 소스는 여기 포럼에 있던 소스를 이용했구요;;
: 조금 편집해서 아래와 같이 만들었습니다.
:
: 어떻게 하면 쨍(?) 하게 표시할 수 있을까요? ㅠㅠ
:
:

: 	if (ActiveMDIChild) {
: 		TForm * pForm = ((TChildFrm*)ActiveMDIChild); // Set Printing Form
: 
: 		Graphics::TBitmap *mjbmp = new Graphics::TBitmap();
: 		mjbmp->Width = pForm->ClientWidth;
: 		mjbmp->Height = pForm->ClientHeight;
: 		mjbmp->Canvas->CopyRect(Rect(0, 0, mjbmp->Width, mjbmp->Height),
: 			pForm->Canvas, Rect(0, 0, pForm->ClientWidth, pForm->ClientHeight));
: 
: 		if (!PrintDialog1->Execute())
: 			return;
: 		// Graphics::TBitmap *mjbmp= FormMain->GetFormImage();
: 		TPrinter *prt = Printer();
: 		mjbmp->HandleType = bmDIB; // This is *VERY* important
: 		double h = mjbmp->Height, w = mjbmp->Width, fct, wf;
: 		if (w > h)
: 			prt->Orientation = poLandscape;
: 		else
: 			prt->Orientation = poPortrait;
: 
: 		// 프린트 에러상태 검출해야함...
: 
: 		prt->Title = "SPINDLE TEST PRINT";
: 		wf = (double)prt->PageWidth / w;
: 		fct = (double)prt->PageHeight / h;
: 		if (fct > wf)
: 			fct = wf;
: 
: 		prt->BeginDoc();
: 		prt->Canvas->StretchDraw(Rect(0, 0, fct * w - 1, fct * h - 1), mjbmp);
: 		prt->Canvas->TextOut(0, 0, "PRINT OK");
: 		prt->EndDoc();
: 		delete mjbmp;
: 	}
: 	else {
: 		ShowMessage("프린트할 내용이 없습니다.");
: 	}
: