Как задать размер полей отступа при печати текста в TPrintDialog?

← →
Andrey007 (2004-04-08 11:53) [0]

В свойствах компонента ничего такого не нашёл. Вот код:
procedure TForm1.PrintClick(Sender: TObject);
var PrintText: TextFile;
begin
try
if PrintDialog1.Execute then
try
AssignPrn(PrintText);
ReWrite(PrintText);
Printer.Canvas.Font:=Memo.Font;
Printer.Canvas.Pen:=Canvas.Pen;
Printer.Canvas.Brush:=Canvas.Brush;
if PrintDialog1.PrintRange=prAllPages then WriteLn(PrintText,Memo.Text)
else WriteLn(PrintText,Memo.SelText);
CloseFile(PrintText)
finally
MessageDlg("Отправка документа на печать успешно выполнена.",mtInformation,
[mbOk],0)
end
except
on E: Exception do ShowMessage("Печать не была выполнена."+#13#13+E.Message)
end
end;

← →
Семен Сорокин © (2004-04-08 12:04) [1]

Стандартного диалога настроек границ печати - нет (у каждой программы свои).
Для вывода текста на печать с отступами используй свойства канвы (Canvas) принтера по выводу текста (например TextRect, TextOut)

← →
Andrey007 (2004-04-09 13:02) [2]

Всё оказалось проще - http://delphi.vitpc.com/treasury/f01.htm

Как задать размер полей отступа при печати текста в TPrintDialog? Найти похожие ветки