Q: 如何控制印出圖形的大小?
A: try this...
---------------------------------------------------------------
TPrinter *Printer;
TRect StretchRect;
int TempHeight;
int TempWidth;
Printer=Printers::Printer();
TempHeight=Image->Picture->Height;
TempWidth=Image->Picture->Width;
while (TempHeightPageHeight/2) &&
(TempWidthPageWidth/2))
{
TempHeight*=2;
TempWidth*=2;
}
StretchRect.Left=(Printer->PageWidth-TempWidth)/2;
StretchRect.Top=(Printer->PageHeight-TempHeight)/2;
StretchRect.Right=StretchRect.Left+TempWidth;
StretchRect.Bottom=StretchRect.Top+TempHeight;
if(PrintDialog->Execute())
{
try
{
Printer->BeginDoc();
Printer->Canvas->StretchDraw(StretchRect,
Image->Picture->Graphic);
}
catch(...)
{
Printer->EndDoc();
}
}
---------------------------------------------------------------
               (
geocities.com/huanlin_tsai)