Graphics::TBitmap *All_Image = new Graphics::TBitmap;
All_Image->Width = Screen->Width;
All_Image->Height = Screen->Height;

BitBlt( All_Image->Canvas->Handle, 0, 0, Screen->Width, Screen->Height, GetDC(0), 0, 0, SRCCOPY );

Graphics::TBitmap *Part_Image = new Graphics::TBitmap;
TRect Paste_Rect;
TRect Copy_Rect;

if(frmChild->Parent!= NULL)
{
	//ShowMessage("ºÎ¸ðÀÖ´Ù.");
	Part_Image->Width = frmMain->Width;
	Part_Image->Height = frmMain->Height;
	
	Paste_Rect = Rect(0, 0, frmMain->Width, frmMain->Height);
	Copy_Rect = Rect(frmMain->Left, frmMain->Top,
				frmMain->Left + frmMain->Width, frmMain->Top + frmMain->Height);

}else
{
	//ShowMessage("ºÎ¸ð¾ø´Ù.");
	Part_Image->Width = frmChild->Width;
	Part_Image->Height = frmChild->Height;

	Paste_Rect = Rect(0, 0, frmChild->Width, frmChild->Height);
	Copy_Rect = Rect(frmChild->Left, frmChild->Top,
				frmChild->Left + frmChild->Width, frmChild->Top + frmChild->Height);

}

Part_Image->Canvas->CopyRect(Paste_Rect, All_Image->Canvas, Copy_Rect);

if(PrintDialog->Execute())
{
	Printer()->BeginDoc();
	Printer()->Canvas->StretchDraw(Rect(50,50,4700,3000),Part_Image);
}

ShowMessage("Ãâ·Â¿Ï·á!!");