как выставить поля при печати из richedit

[buket]

подскажите как выставить поля при выводе на печать из richedit
при таком раскладе получаются минимальные поля

procedure TForm2.Button1Click(Sender: TObject);
begin
 if PrintDialog.Execute then
 begin
 richedit1.Print(richedit1.Text);
 end;
end;

[SERG1980]

Попробуйте использовать компонент PageSetupDialog

[buket]

Сообщение от SERG1980

Попробуйте использовать компонент PageSetupDialog

пробовал, ничего не вышло

[SERG1980]

Тогда используйте генератор отчётов например FastReport (дополнительный компонент для delphi)

[buket]

какие есть еще варианты печати текста с ричедита с полями?

[mihali4]

Пример из штатного хэлпа (когда ж вы начнете видеть, что у вас под ногами лежит ???):

This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed, with a 200-pixel border around the page. 
To run this example successfully, you must add the Printers unit to the uses clause of your unit.

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;

end;

Подставляем вместо Мемо ричэдит и "уперод"...