紧急求救，我在Tpanel面板上放了很多东西，怎样把整个面板打印出来，对会的我不难，5分钟后给分。

Question

Tpanel不可以直接可以打印。你可以打印Form的。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    printer.BeginDoc;
    printer.Canvas.copyrect(bounds(0,0,panel1.width,panel1.Height),form1.canvas,bounds(panel1.left,panel1.top,panel1.width,panel1.height));
    printer.enddoc;
end;

Answer 2

楼上所指的printer是什么东东？

Answer 3

你可以将TPANEL上的界面，用报表形式（REPORT）表现出来，我曾经这样做过
不过花时间设计一下

Answer 4

直接打印是不可以的，只要经过拷屏，然后再打印。或者直接打印FORM

Answer 5

包含Printers单元，就有了TPrinter对象

Answer 6

不好意思，还没解决，为什么我打出来的图片是很小很小的
我打image上的图片也是一样，rect(0,0,image.width,image.height)
这样打出来的图片只有一点点大，但是image是很大的，这是为什么

Answer 7

再给你一段
procedure TForm1.Button1Click(Sender: TObject);
var
    a:byte;
begin
    a:=5;
    printer.BeginDoc;
    stretchblt(printer.canvas.handle,0,0,a*panel1.width,a*panel1.height,
               form1.canvas.handle,panel1.left,panel1.top,panel1.width,panel1.height,srccopy);
    printer.enddoc;
end;调a r的大小,想在就大,想小就小

Answer 8

网上有个控件,直接支持TPanel打印,效果很好,