Печать в delphi

[RomanSway]

Подскажите каким образом при печати содержимого формы, можно масштабировать это содержимое в данном случае image на ней находящийся. Я использую всего два оператора по событию onclick
Form1.PrintScale := poPrintToFit;
Form1.Print;
При печати просто image'а с формы масштабирование удается:
procedure TForm1.Button1Click(Sender: TObject);
var
X1,X2,Y1,Y2:Integer;
PointsX,PointsYouble;
PrintDlg:TPrintDialog;
begin
PrintDlg:=TPrintDialog.Create(Owner );
if PrintDlg.Execute then
begin
Printer.BeginDoc;
Printer.Canvas.Refresh;
PointsX:=GetDeviceCaps(Printer.Canv as.Handle,LOGPIXELSX)/70;
PointsY:=GetDeviceCaps(Printer.Canv as.Handle,LOGPIXELSY)/70;

X1:=round((Printer.PageWidth - Image1.Picture.Bitmap.Width*PointsX )/2);
Y1:=round((Printer.PageHeight - Image1.Picture.Bitmap.Height*Points Y)/2);
X2:=round(X1+Image1.Picture.Bitmap. Width*PointsX);
Y2:=round(Y1+Image1.Picture.Bitmap. Height*PointsY);
Printer.Canvas.CopyRect(Rect(X1,Y1, X2,Y2),Image1.Picture.Bitmap.Canvas ,
Rect(0,0,Image1.Picture.Bitmap.Widt h,Image1.Picture.Bitmap.Height));

Printer.EndDoc;
end;
PrintDlg.Free;
end;

PHP код:

[PHP] 


[/PHP]