請教各位大大: 我本來想用TQRChart元件在報表裡放圖表,結果不知怎麼搞的一執行就當機, 後來我就想用TPanel裡的PaintTo直接把畫面印出來, 程式碼: Panel1.PaintTo(Handle,10,10); 結果印出來的畫面,只有大約火柴盒大小... 請問要怎麼讓它印出來有A4那麼大啊?

我覺得您需在TQRChart元件再試試,畢竟用點陣放大會失真    Panel裡的圖形要放大, 可以使用Canvas裡StretchDraw對TGraphic目標 對象做放大繪製 然而您的目標是印表機TPrinter的Canvas    所以需用Win32 StretchBlt 這個 api 並且動一些迂迴的技巧    完整的範例如下, 提供您參考

  TMyPanel=class(TPanel);    uses printers;    procedure TForm1.Button1Click(Sender: TObject);
var
  ptr:TPrinter;
  rct:TRect;
  cns:TCanvas;
begin
  ptr:=TPrinter.Create;
  ptr.BeginDoc;
  cns:=TMyPanel(Panel1).Canvas;
  StretchBlt(ptr.Canvas.Handle,0,0,ptr.PageWidth,ptr.PageHeight,cns.Handle,0,0,
    panel1.Width,panel1.Height,srccopy);
  ptr.EndDoc;
  ptr.Free;
end;

P大哥: 我試了您的方法,結果不知為何會出現vcl50什麼的好像是記憶體錯誤的訊息. 後來我試用下面這個方法就可以了,謝謝您~ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44051

speedup幫我做了一次複習 TPrinter物件delphi已經幫我們Create了 所以像TApplication及TScreen 不必再建第二個了 另外若您使用bmp, 那麼是繪製二次, 第一次從panel到bmp 第二次是bmp到printer 而使用我給的提示是僅用一次功 不過您的問題speedup解決就好, 這點小差異不算什麼 差不多啦