Печать изображения с PaintBox на всю страницу A4

[chandrasecar]

Есть PaintBox, рисую там отчет. Нужно его распечатать на всю страницу, чтобы читабельно было и крупно. Применяю такой код:

  var
    Bitmap,Bitmap2: TBitmap;
    Source: TRect;
    Dest: TRect;
begin
  Printer.BeginDoc;
  Bitmap := TBitmap.Create;
  try
    with Bitmap do
    begin
      Width := AdvGridPrintSettingsDialog1.Form.PreviewPaintBox.Width;
      Height := AdvGridPrintSettingsDialog1.Form.PreviewPaintBox.Height;
      Dest := Rect(0, 0, Width, Height);
    end;
    with AdvGridPrintSettingsDialog1.Form.PreviewPaintBox do
      Source := Rect(0, 0, Width, Height);
    Bitmap.Canvas.CopyRect(Dest, AdvGridPrintSettingsDialog1.Form.PreviewPaintBox.Canvas, Source);
    Printer.Canvas.Draw(0,0,Bitmap);
  finally
    Bitmap.Free;
  end;
  Printer.EndDoc;

Результат - мелкая бня размером 1 см * 2 см. Как его доработать чтобы изображение получалось на всю страницу?