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();
    }
  }
---------------------------------------------------------------

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)