Question

请问怎么在delphi中打印某个指定区域的屏幕

比如，将显示屏左边部分全部打印出来

Answer 1

var
ACanvas: TCanvas;
begin
ACanvas := TControlCanvas.Create;
TControlCanvas(ACanvas).Control := Panel1;
Image1.Canvas.CopyRect(Image1.ClientRect, ACanvas, Panel1.ClientRect);
end;

with Printer do
begin
BeginDoc;
Panel1.PaintTo(Handle, 10, 10);
EndDoc;
end;
http://bbs.csdn.net/topics/310211482

Answer 2

先实现截屏，保存为图片，再打印这个图片