Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: 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 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
3-1082699903
vlad_vv
2004-04-23 09:58
2004.05.16
IBQuery+IBUpdateSQL выдает "Update Failed"


8-1077878817
Spartak
2004-02-27 13:46
2004.05.16
Отчистка картинки


1-1083136882
Sectey
2004-04-28 11:21
2004.05.16
Можно ли узнать имя метода во время его выполнения


3-1082103212
RavenD
2004-04-16 12:13
2004.05.16
Как поменять кодировку?


14-1082531195
stud
2004-04-21 11:06
2004.05.16
удаление sp4 win2000