Delphi. Печать работает через раз.
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Delphi. Печать работает через раз. - 2010-04-08 02:25:23.716666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Это просто пипец, киплю весь - один и тот же код с мааленькими переделками то работает,то нет в разных программах. Дело всё в печати. Помимо мелочей, вроде размера шрифта и расположения надписей не меняю ничего. Код уже упростил максимально. Так ведь нет - документ идет на печать и там зависает,хотя не так давно в другой программе всё прекрасно работало. В uses дописал Printers. Сейчас код примерно такой:
procedure TFrmMain.PrintData();
var
----------
begin
with Printer do
begin
Title:='Doc';
BeginDoc;
Canvas.Font.Size:=20;
Canvas.TextOut(PageWidth div 3,100, 'текст');
----------------------
Canvas.TextOut(2*PageWidth div 3,250,'какая-то строка');
Canvas.Font.Size:=16;
for i:=0 to N do //до некоего числа
begin
Canvas.TextOut(100,300+i*70,'ещё строка тут' );
end;
end;
Printer.EndDoc;
end; Код показал схематично,чтобы читать только суть,а не всякую кучу переменных. Совсем недавно целую таблицу смог нарисовать, сейчас опять стопорится(( Укажите,пожалуйста,в чем дело то??
|
|
|
RE: Delphi. Печать работает через раз. - 2010-04-08 11:52:30.676666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
В очередь печати доходит? Есть мнение, что должно быть какие-то api типа "конец страницы" (Printer.EndDoc; - оно?).
|
|
|
RE: Delphi. Печать работает через раз. - 2010-04-09 01:20:17.096666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Да-да,оно. ————————— Блиииин….. [sm=bu.gif][sm=bu.gif][sm=bu.gif] Докатился. Снесите топик,пожалуйста. В принтере шнур питания отошел(((
|
|
|
|
|