Печать с помощью TPrint - Общие вопросы Delphi

Napste® · 05.06.2009, 16:26

Решил сделать распечатку через TPrint, но толком не разобрался, подскажите чего не хватает в коде. Он отправляет лист на печать, но не печатает.

Код:

t:=ADOTable1.FieldByName('Question').AsString+#13+#13+ADOTable1.FieldByName('Answer').AsString;
Printer.BeginDoc;
Printer.Canvas.Font:=DBMemo1.Font;
Printer.Canvas.TextOut(0,0,t);
Printer.EndDoc;

Alex Cones · 05.06.2009, 16:35

Цитата:

#13+#13

Замени на 10, разумеется это не решение проблемы, а мелкая ошибка. (10 - конец строки, 13 - переход каретки на след строку)

Ntlegend · 05.06.2009, 18:20

тут может быть 2 но
1) DBMemo1.Font задает одниковій цвет фона и букв.. тоесть хоть текст и есть - всеравно его не видно..
2) t:=ADOTable1.FieldByName('Question' ).AsString+#13+#13+ADOTable1.FieldB yName('Answer').AsString переменная t после этого пустая.. и на печать выводится пустая строка.. тоесть снова кажется что ничего не печатается..

Napste® · 05.06.2009, 22:09

t не пустая, и даже если убрать Printer.Canvas.Font:=DBMemo1.Font; все равно отправляет на печать но не печатает

Ntlegend · 06.06.2009, 12:28

если документ отправился на печать - то он уже не во власти рпограммы, а во власте диспетчера очереди печати и, вчастности, драйвера принтера.. может с принтером что то не то.. или не на тот принтер отправляешь..

я твой код проверял.. у меня было все нормально.. писал так

Код:

t:='абракадабра';
Printer.BeginDoc;
Printer.Canvas.Font.Size:=50;
Printer.Canvas.TextOut(0,0,t);
Printer.EndDoc;

Napste® · 06.06.2009, 14:26

получаеться так, что принтер ставит его в очередь(уровень=1), ожидание и не печатает и отменяет печать, и не знаю что даже делать.

05.06.2009, 18:20	#3
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	тут может быть 2 но 1) DBMemo1.Font задает одниковій цвет фона и букв.. тоесть хоть текст и есть - всеравно его не видно.. 2) t:=ADOTable1.FieldByName('Question' ).AsString+#13+#13+ADOTable1.FieldB yName('Answer').AsString переменная t после этого пустая.. и на печать выводится пустая строка.. тоесть снова кажется что ничего не печатается.. Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!"

06.06.2009, 12:28	#5
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	если документ отправился на печать - то он уже не во власти рпограммы, а во власте диспетчера очереди печати и, вчастности, драйвера принтера.. может с принтером что то не то.. или не на тот принтер отправляешь.. я твой код проверял.. у меня было все нормально.. писал так Код: `t:='абракадабра'; Printer.BeginDoc; Printer.Canvas.Font.Size:=50; Printer.Canvas.TextOut(0,0,t); Printer.EndDoc;` Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
печать jpeg с помощью Rave	Konfiti	БД в Delphi	0	27.04.2009 19:36
Печать	<<>>KaRaPuz<<>>	Общие вопросы Delphi	3	31.05.2008 20:59
Печать	lacost	Общие вопросы C/C++	2	09.12.2007 22:55
печать	Илюха	Общие вопросы Delphi	2	23.10.2007 21:15
Печать строк	VladimirAleks	БД в Delphi	2	12.09.2007 16:42

05.06.2009, 16:26	#1
Napste® Пользователь Регистрация: 23.04.2009 Сообщений: 27	Печать с помощью TPrint Решил сделать распечатку через TPrint, но толком не разобрался, подскажите чего не хватает в коде. Он отправляет лист на печать, но не печатает. Код: `t:=ADOTable1.FieldByName('Question').AsString+#13+#13+ADOTable1.FieldByName('Answer').AsString; Printer.BeginDoc; Printer.Canvas.Font:=DBMemo1.Font; Printer.Canvas.TextOut(0,0,t); Printer.EndDoc;`

05.06.2009, 22:09	#4
Napste® Пользователь Регистрация: 23.04.2009 Сообщений: 27	t не пустая, и даже если убрать Printer.Canvas.Font:=DBMemo1.Font; все равно отправляет на печать но не печатает

06.06.2009, 14:26	#6
Napste® Пользователь Регистрация: 23.04.2009 Сообщений: 27	получаеться так, что принтер ставит его в очередь(уровень=1), ожидание и не печатает и отменяет печать, и не знаю что даже делать.