[Ama]

. Почему када пытаюсь картинку с формы отправить на печать (в моем случает печатаю в 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, а затем запустить, то все печатает. ПОЧЕМУУУ?????

[Developer]

Как вариант возможны проблемы с самим драйвером принтера. Попробуй отправить на печать например в виртуальный принтер и посмотри что будет.

[Ama]

А это как? Adobe PDF разве не виртуальный принтер?

[angvelem]

Нет, он использует тот принтер, что подставишь.