Delphi. Печать. Не работает Printer.Canvas.TextOut

[Alexander Karpenko]

Доброго времени суток.

Прошу у посетителей форума помощи по казалось-бы простому вопросу. Написал свою программу, реализовал печать через Excel используя OLE, но возникла потребность ручной регулировки печати. Пытаюсь реализовать у себя простейший пример ручной печати следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
begin

if PrintDialog1.Execute then
  with Printer do
  begin
    BeginDoc;
    Canvas.TextOut(100,100,'Это тест принтера !!!');
    EndDoc;
  end;
end;

В результате задача принтеру ставиться, но он ничего не печатает. Принтер HP LJ P1006 (USB). Подскажите пожалуйста куда смотреть и где копать.

Заранее спасибо всем откликнувшимся.

[zmey31313]

Вот пример обычной печати из компонента RichEdit:

  If PrintDialog.Execute then
      PrintStrings(RichEdit.Lines);

Код рабочий

[Kotofff]

Твой код верен.
Проблемы в принтере.

[Alexander Karpenko]

To Zmey31313: Спасибо за подсказку, но у меня нет процедуры PrintStrings, кроме того в конечном варианте печать по строках из RichEdit не подойдет, нужно более точно позиционировать вертикаль .

Что касается работоспособности принтера, то во всех приложениях работал без проблем, и кроме того распечатал следующее:

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Print('Заголовок');
end;

Новая информация. После выполнения RichEdit1.Print('Заголовок'); TextOut работает отлично.

procedure TForm1.Button1Click(Sender: TObject);
begin

RichEdit1.Print('ddd');

if PrintDialog1.Execute then
  with Printer do
  begin
    BeginDoc;
    Canvas.Font:=label1.font;
    Canvas.TextOut(300,300,'Тест принтера !!!');
    EndDoc;
  end;
end;

Я так понимаю, что RichEdit1.Print как то инициализирует принтер.

Fom Stilet: Неужели так сложно код оформить тегом по кнопке # ?

[Alexander Karpenko]

Всем спасибо за участие, вопрос решен
Все дело было в Title
Работающий код выглядит так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if PrintDialog1.Execute then
  with Printer do
  begin
    BeginDoc;
    Title:='Название задачи на принтере!!!'  // -- вот корень зла :)
    Canvas.TextOut(100,100,'Это тест принтера !!!');
    EndDoc;
  end;
end;