我想列印出表單(Form1)的畫面,但用下面程式碼的方式雖有列印動作,但實際上卻無輸出任何圖形(空白),但是如果先將表單上的畫面儲存後再讀取,就可列印出畫面?兩者皆將最後輸出畫面存檔後,以圖像軟體看到的畫面卻相同(但由Win200的[內容][摘要]到的資訊卻不相同)??請問要如何在不讀/存檔的條件下,直接列印表單上的指定區域?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Graphics::TBitmap *Bmp = new Graphics::TBitmap();
    TRect  ImgRect, PrintRect;
    int Left, Top;        // 若不先執行此行,則列印輸出為空白 //
//    Bmp->LoadFromFile("C:\\Sp\\sky.bmp");        Bmp->Width = 800;
    Bmp->Height = 600;
    Bmp->Canvas->CopyRect(Rect(0,0,800,600), Form1->Canvas, Rect(0,0,320,240));
    Left = (Printer()->PageWidth - Bmp->Width*4) / 2;
    Top =(Printer()->PageHeight - Bmp->Height*4) / 2;
    ImgRect= Rect(0, 0, Bmp->Width, Bmp->Height);
    PrintRect = Rect(10, 10, Left   Bmp->Width*4, Top   Bmp->Height*4);        Printer()->BeginDoc();
    Printer()->Canvas->CopyRect(PrintRect, Bmp->Canvas, ImgRect);
    // 測試輸出的結果 //
    Bmp->SaveToFile("C:\\Output.bmp");
    Printer()->EndDoc();
    delete Bmp;
}

發表人 - kenlee 於 2004/10/20 14:01:52

kenlee您好..用以下的方法比較直接..也比較簡單.. < class="code"> Graphics::TBitmap*Bmp1=new Graphics::TBitmap(); TCanvas *MyCanvas= new TCanvas; TRect rect = Form1->ClientRect; HDC dc = GetDC(Form1->Handle); MyCanvas->Handle = dc; Bmp1->Width = rect.Right - rect.Left; Bmp1->Height = rect.Bottom - rect.Top; Bmp1->Canvas->CopyRect(rect,MyCanvas,rect); 寫下您的PRINT程式區段 delete MyCanvas; delete Bmp1; 這樣就能順利的從記憶體取得FORM1的畫面了

很抱歉讓你又貼了一次,詳細討論結果如下: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=58171