Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

Отчего нет печати   Найти похожие ветки 

 
AlexLines   (2005-11-20 12:06) [0]

Уважаемые знатоки

1) пишу следующий текст

if PrintDialog1.Execute then
     RichEdit1.Print(RichEdit1.Text); или lines.text

не печатает

печатает - RichEdit1.Print("Привет всем");

Не могу понять в чем проблема

2) Как проверить установлен ли принтер в системе?

Спасибо


 
Separator ©   (2005-11-20 12:38) [1]

The title displayed in the Print Manager (and
   on network header pages) is determined by the Title property.
Title - The title used by Windows in the Print Manager and for network
     title pages.


Через Title задается имя документа

Для справки:
   Удерживая клавишу Ctrl, левой кнопкой мыши нажми на слово Print, попадешь в модуль ComCtrls к процедуре Print:

procedure TCustomRichEdit.Print(const Caption: string);
var
 Range: TFormatRange;
 LastChar, MaxLen, LogX, LogY, OldMap: Integer;
 SaveRect: TRect;
begin
 FillChar(Range, SizeOf(TFormatRange), 0);
 with Printer, Range do
 begin
   Title := Caption;


вот, в последней строчке видим, что значение Caption присваевается значению Title, далее тем же способом нажимаем на Title и попадаем в модуль Printers и там, в самом верху находится описание модуля. Если этого мало, то поиском ищем все вхождения Title и вот что находим:

 with DocInfo do
 begin
   cbSize := SizeOf(DocInfo);
   lpszDocName := PChar(Title);
 end;


Дальше объяснять?


 
Virgo_Style ©   (2005-11-20 12:45) [2]

1. Неужели печатает "Привет всем"? Вообще-то должен печатать содержимое Richedit в обоих случаях. Может быть (совершенно не уверен), что в первом случае где-то внутри делается попытка присвоить заголовку задания печати значение Richedit1.Text, которое совершенно для этого не предназначено, что и вызывает ошибку.

2. TPrinter.Printers?



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

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

Наверх




Память: 0.47 MB
Время: 0.059 c
2-1132289333
Officeman
2005-11-18 07:48
2005.12.04
Многострочный hint ????????


6-1124662253
Delphi_is_cool
2005-08-22 02:10
2005.12.04
WinSock. Как отправить файлы ?


2-1132486039
pussycat
2005-11-20 14:27
2005.12.04
Создание отдельного юнита


5-1115307035
Mutex
2005-05-05 19:30
2005.12.04
Проблема с экспертом (IOTAFormEditor)


14-1131638827
Yura32
2005-11-10 19:07
2005.12.04
GeForce AGP