Скачать: CL | DM;

Как задать размер полей отступа при печати текста в 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c