Скачать: 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 вся ветка

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



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