Delphi 打印,设置在打印机画布的位置和大小,设置打印预览的大小

Printer.BeginDoc;  
//   设置   MyRect1   在打印机画布的位置和大小  
Printer.Canvas.StretchDraw(MyRect1,Image1.Picture.Bitmap);  

//   设置   MyRect2   在打印机画布的位置和大小  
Printer.Canvas.StretchDraw(MyRect2,Image2.Picture.Bitmap);  
.... 

Printer.EndDoc ;

注释：MyRect1是TRect 类型，图片要打印到打印机画布上的矩形位置，
调整MyRect1大小，以适应你的打印输出比例。
Printer.Canvas是一块“布”，你想画什么，
在Image2.Picture.Bitmap里定义，画在哪里，在MyRect2中定义

设置打印预览大小:
打印预览的代码改成下面的可以了（form2上加个image，并设为alClient）.如果是打印的图象小,则需要用GetDeviceCaps取得打印机的分辨率并转换,计算出打印图像的大小

var  
r1:TRect;  
begin  
r1:=Rect(0,0,97,81);  
form2.image1.Canvas.StretchDraw(r1,image1.Picture.Graphic);  
form2.ShowModal;  
end; 

黑色头发:http://heisetoufa.iteye.com/