| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как задать размер полей отступа при печати текста в TPrintDialog? [D5, Win2k]
Andrey007 © (2004-04-08 11:53:00)В свойствах компонента ничего такого не нашёл. Вот код:
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;
Andrey007 (2004-04-09 13:02:00) [1]Всё оказалось проще - http://delphi.vitpc.com/treasury/f01.htm
Семен Сорокин (2004-04-08 12:04:00) [2]Стандартного диалога настроек границ печати - нет (у каждой программы свои).
Для вывода текста на печать с отступами используй свойства канвы (Canvas) принтера по выводу текста (например TextRect, TextOut)
| |
