|
현재 실행중인 폼을 프린터로 출력하려고 합니다. 출력은 되는데 사이즈가 작게 나와서요.
프린터 출력 사이즈를 크게 할 수 있는 방법 좀 가르쳐 주세요 고수님들의 답변 기다리겠습니다.
작성은 아래와 같이 했습니다.
void __fastcall TForm4::BitBtn3Click(TObject *Sender)
{
Graphics::TBitmap *FormImage = this->GetFormImage();
if( PrintDialog1->Execute()==true )
{
Printer()->Orientation = poLandscape;
Printer()->BeginDoc();
Printer()->Canvas->Draw((Printer()->PageWidth, this->Width)/2, (Printer()->PageHeight, this->Height)/2, FormImage);
Printer()->EndDoc();
}
delete FormImage;
}
//---------------------------------------------------------------------------
부탁 드립니다. 그럼 수고들 하세요.
추신 프린터에 따라서 작게 나오는 화면도 출력이 되었다 안되었다하는데 그부분도 고수님들의 조언 부탁드립니다.
|