|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
По странному печатает
. Почему када пытаюсь картинку с формы отправить на печать (в моем случает печатаю в Adobe PDF) в режиме Runtime отправляет пустой лист. Но только мне стоит остановить выполнение процы для печати, трассировкой, а потом запустить продолжение, то все нормально, картинка печатается......................ПОЧЕМУ???????????? ? . Код процедуры печати:
Код:
procedure TForm1.PrintDocum; var ScX, ScY: integer; R: TRect; begin if PrDialog1.Execute then begin Printer.Title:= 'bla bla bla'; Printer.BeginDoc; Printer.NewPage; Printer.Canvas.Refresh; Printer.Canvas.Font:= Font; R:= Rect(0, 0, Printer.PageWidth, Printer.PageHeight); Printer.Canvas.StretchDraw(R, Image1.Picture.Bitmap); Printer.EndDoc; end; end; Вот в режиме Runtime, ниче, зараза, не печатает. Но стоит мне к примеру в строке Printer.Title:= 'bla bla bla'; поставить BreakPoint, а затем запустить, то все печатает. ПОЧЕМУУУ????? APPLICATION.TERMINATOR |
#2
|
||||
|
||||
Как вариант возможны проблемы с самим драйвером принтера. Попробуй отправить на печать например в виртуальный принтер и посмотри что будет.
|
#3
|
|||
|
|||
А это как? Adobe PDF разве не виртуальный принтер?
APPLICATION.TERMINATOR |
#4
|
||||
|
||||
Нет, он использует тот принтер, что подставишь.
|