При печати получаю exeption :-(((

← →
Fredericco © (2001-11-24 00:38) [0]

Не мог бы кто-нибудь подсказать что за ошибка с сообщением "Printing in progress", откуда она берется и как с ней справиться? Заранее огромное спасибо!!!
Fredericco.

← →
Anatoly Podgoretsky © (2001-11-24 09:48) [1]

Откуда берется неизвестно, но паверно ты сам сделал, что бы справиться с помощью форума надо привести больще информации

← →
Fredericco © (2001-11-24 12:11) [2]

Anatoly Podgoretsky>> Понял, не дурак :-)).
if PrintDialog1.Execute then
begin
Printer.Orientation:=poLandscape;
Printer.BeginDoc;
try
DrawOnePage(Printer.Canvas,
Printer.PageWidth, Printer.PageHeight, False,
PpiX, PpiY);
finally
Printer.EndDoc;
end;
end;
Вчера вечером у меня Printer.Orientation:=poLandscape стоял после BeginDoc.
Сегодня поменял их местами и ошибка исчезла, однако печатается не то что текст в другой кодировке, а какой-то абстракционизм из чернил. В других приложениях (не моих) ситуация иная: помимо обычного текста в верху страницы печатается несколько значков ANSI - сердечко, два вида рожец(черная и бела) и др. Может помимо меня еще и принтер виноват(HP DeskJet 420)?

Ну для правильной печати на канве, как минимум надо настроить фонт, локализацию
По другим приложения, явно не порядок с драйвером, посылаются управляющие последовательности, которые принтер не понимает.
Наверно надо с этого и начинать, заставить принтер нормально печатать, глядишь и другие ошибки исчезнут.
Так как в WinApi и в Delphi нет функции, то можно предположить, что это твоя и в ней тоже могут быть ошибки.

При печати получаю exeption :-((( Найти похожие ветки