各位前輩大家好：
  小弟想把輸出到雷射列印機(600dpi)的結果轉存影像檔(BMP)，
那我該如何做？之前小弟用TPrinter之Canvas(畫布)下的功能嘗試，
可是却失敗，不曉得是我的方法不對，亦或是觀念上有問題，請先進
們指點迷津，謝謝大家！

 
    Graphics::TBitmap *BMP;
    TQRUnit StoredUnits;        QuickRep1->Prepare();
    StoredUnits = QuickRep1->Units;
    QuickRep1->Units = Pixels;       try
   {
        BMP = new Graphics::TBitmap();          for ( i =1 ; i <= QuickRep1->QRPrinter->PageCount; i   )
      {                BMP->Width = QuickRep1->Page->Width;
            BMP->Height = QuickRep1->Page->Length;                QuickRep1->QRPrinter->PageNumber = i;
            BMP->Canvas->Draw (0, 0, QuickRep1->QRPrinter->Page );
      }
   }
   __finally
   {
        delete BMP;
        PrintQuotationQR->QuickRep1->Units = StoredUnits;
   }    

感謝海星、CuteBabyBoy 大大所提供的方法及意見：    (一)我依照海星您所提供方法經小弟測試結果發現，TQuickRep元件所能生成影像是Preview用的解析度很低，不符合我的需求(歹勢，我並沒有把需求給講清楚，害您白忙一場，600dpi以上解析度才能夠用於排版用途)，或許有其他方法可以取出高解析度影像，不過小弟納悶的是既然有低解析度，何以沒有高解度的影像？一定是我的方法不對，還請大大解惑！    (二)我採納CuteBabyBoy大大意見，直接用TImage元件成生簡單的排列組合，並將程式碼貼上，供各位參考看看，還有沒有更好的方法：    LOGFONT LogFont;
TPrinter *print = Printer();
//=================================
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   char *str = "倚天屠龍，誰與爭鋒。";
   char ss[3];
   int len = strlen(str);
   int x,y=0;       //設定影像高／寬(從印表機(A4)紙張取得，單位Pixel)
   Image1->Picture->Bitmap->Width = print->PageWidth;
   Image1->Picture->Bitmap->Height = print->PageHeight;       //設定拷貝影像的尺寸
   TRect MyRect = Rect(0,0,Image1->Picture->Bitmap->Width,Image1->Picture->Bitmap->Height);       //設定排列字體解析度(從印表機取得)
   Image1->Picture->Bitmap->Canvas->Font->PixelsPerInch = GetDeviceCaps(print->Handle,LOGPIXELSX);
   Image1->Picture->Bitmap->Canvas->Font->Name = "標楷體";  //字體
   Image1->Picture->Bitmap->Canvas->Font->Size = 72;        //大小
   GetObject(Image1->Picture->Bitmap->Canvas->Font->Handle,sizeof(LOGFONT),&LogFont);
   LogFont.lfEscapement = 0;  //旋轉度
   LogFont.lfOutPrecision = OUT_TT_ONLY_PRECIS; //品質
   Image1->Picture->Bitmap->Canvas->Font->Handle = CreateFontIndirect(&LogFont);
   Image1->Picture->Bitmap->Canvas->Brush->Style = bsClear;       //以直式排列文字
   x = Image1->Picture->Bitmap->Width;
   for (int i=0;i < len ;i  = 2)
   {
     //memset(ss,0,sizeof(ss));
     ss[0] = str[i];
     ss[1] = str[i 1];
     Image1->Picture->Bitmap->Canvas->TextOut(x - Image1->Picture->Bitmap->Canvas->TextWidth("ss"),y,ss);
     y  = Image1->Picture->Bitmap->Canvas->TextHeight(ss);
   }       print->BeginDoc();
   //將影像拷貝到印表機
   print->Canvas->CopyRect(MyRect,Image1->Picture->Bitmap->Canvas,MyRect);
   print->EndDoc();
}    //存成影像檔的動作省略
//以上扺做文字的排列組合，實際上還要排上表格、圖表、影像..等等的組合