为什么打印窗体上面的panel 在A4的纸上面 只有 A4 的 1/4 大小呢，该怎么样做 代码如下：

uses  printers;
procedure TF_lzdlgj.SpeedButton8Click(Sender: TObject);
var
 Bitmap: TBitmap;
 /////////打印image
 ScaleX, ScaleY: Integer;
  R: TRect;
  /////打印image
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := Panel1.Width;
 Bitmap.Height := Panel1.Height;
 try
   Panel1.PaintTo(Bitmap.Canvas,0,0);
   Bitmap.SaveToFile('c:\jjj.bmp');
   //Use Bitmap Do SomeThing..
 finally
   Bitmap.Free;
 end;
 Image1.Picture.LoadFromFile('c:\jjj.bmp');
         /////打印image
  Printer.Canvas.Font.Size := 11;
   Printer.Canvas.Font.Name := '宋体';
  Printer.BeginDoc;
  with Printer do
  try
    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
   // R := Rect(500, 100, Image1.Picture.Width * ScaleX,
     // Image1.Picture.Height * ScaleY);
    R := Rect(130, 100, 2300,3000);
    Canvas.StretchDraw(R, Image1.Picture.Graphic);
  finally
    EndDoc;
  end;
  /////打印imageend;
为什么打印窗体上面的panel 在A4的纸上面   只有 A4 的 1/4 大小呢，该怎么样做
我不管这个panel 多大，打印在 A4 纸是正好的，不知道大家明白不如果换个方法也可， 有个票据，界面在窗体上面画出来了 ，要就按照这个 要求打印出来，怎么做最好，省力