Печать в Delphi

[danka123]

Всем привет. Нужны мысли знающих людей...))
Есть к примеру бланк в ворде, или же скриншот из него в виде картинки, не важно...
Есть список данных (фио и тп). Хочется сделать так, чтобы все подставлялось в бланк, печаталось, и все это происходило столько раз, сколько есть данных.

Меня интересует сама идея распечатки, куда это выводить? как заставить печатать все как единое целое?

Мысль была выводить данные в шаблон (картинку) в QReport. но там же каждый раз вылазит окно о настройке документа, выборе принтера и тп. как это дело обойти? Может вообще както иначе все делать..

[Человек_Борща]

Получайте итог QReport как картинку, далее рисуйте его на Canvas у TPrinter'а и печатайте. Все эт диалоги - навес над TPrinter

[Stilet]

не важно...

Нет важно. Ворд это одно - тут на VBA можно отписаться и послать его средствами на печать, а картинка это совсем другое.

[danka123]

так а зачем тогда вообще QReport ?? можно сразу кинуть шаблон в Image на форме, на Image с помощью Canvas выводить нужный текст в нужных местах, а уже с помощью TPrinter отправить на печать, и так в цикле по всем людям

[Аватар]

далее рисуйте его на Canvas у TPrinter'а и печатайте

Ну да, самый сложный подход. Зачем велосипед изобретать. Как Виталий предлагает, или тоже самое из дельфи через OleVariant Word.Application. Если как картинку в QReport - там скорее всего есть умолчания и возможность обхода окна настройки, обычно бывают у других генераторов отчетов. Не пользуюсь им, точнее не скажу

[northener]

Мысль была выводить данные в шаблон (картинку) в QReport. но там же каждый раз вылазит окно о настройке документа, выборе принтера и тп. как это дело обойти?

Самое смешное, что это окно автор QR сделал скорее в качестве примера, чем как что-то необходимое. Его даже "обходить"-то и не надо. Просто вызывать не Preview, а сразу Print.

[danka123]

Ладно) всем спасибо, отпишусь позже

[danka123]

northener, вы не правы, вот что получается..
КОД

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 5 do
  begin
    QRLabel1.Top := QRLabel1.Top + 10;
    QuickRep1.Print;
  end;
end;

для разницы идентификации каждого изображения меняю высоту лейбла.
и в каждом шаге, вылазит то о чем я говорил, такое вот окошко о результате сохранения

[northener]

и в каждом шаге, вылазит то о чем я говорил, такое вот окошко о результате сохранения

QR от меня сейчас далеко, а версия его у вас судя по всему гораздо более новая, чем я пользовал. Попробую вечером, дома посмотреть что там автор QR начудил.

[Dush]

а может дело в том, что принтер по умолчанию - виртуальный?