Главная страница
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.054 c
14-1131950684
DelphiN!
2005-11-14 09:44
2005.12.04
Компонент для записи изображения с Web камеры


1-1131431865
Youta
2005-11-08 09:37
2005.12.04
Помогите, люди добрые! Какой модуль нужно подключить, чтобы функц


14-1131967528
WondeRu
2005-11-14 14:25
2005.12.04
Новый год в Москве. Где остановиться? :)


2-1132220629
IAMDANIL
2005-11-17 12:43
2005.12.04
Типы файлов


14-1131842407
Gero
2005-11-13 03:40
2005.12.04
Запрет анонимам постить в «Потрепаться»