[STOROJ]

У меня такая проблема мне надо вывести на печать содержимое компонента PageControl(или любого другого). Я использую пример из учебника

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
 i, start, stop: integer;
begin
 PrintDialog1.Options:=[poPageNums,poSelection];
 PrintDialog1.FromPage:=1;
 PrintDialog1.ToPage:=PageControl1.PageCount;
 PrintDialog1.MinPage:=1;
 PrintDialog1.MaxPage:=PageControl1.PageCount;
 if not PrintDialog1.Execute then Exit;
 if PrintDialog1.PrintRange=prAllPages
 then
  begin
   Start:=PrintDialog1.MinPage-1;
   Stop:=PrintDialog1.MaxPage-1;
  end
 else // если выбрано отличное от 'Print All'
  if PrintDialog1.PrintRange=prSelection
  then
   begin
    Start:=PageControl1.ActivePageIndex;
    Stop:=Start;
   end
 else // если выбрано отличное от 'Выделенный фрагмент'
  begin
   Start:=PrintDialog1.FromPage-1;
   Stop:=PrintDialog1.ToPage-1;
  end;
 // начало печати
 Printer.BeginDoc;
 for i:=start to stop do
  begin
   PageControl1.Pages[i].PaintTo(Printer.Handle,500,500);
   if i<>stop
   then Printer.NewPage;
  end;
 Printer.EndDoc;  
end;

компонент печатается, но оочень маленький(в углу листа).
Вопрос как мне сделать так чтобы печатало нормальным размером в центре листа?