Печать

[adidas_pro]

Хочу сделать примерно следующее. Есть заготовка вордовского документа, в котором одно поле пустое. В это поле нужно что бы по очереди брались слова и подставлились и документ распечатывался, и по кругу. Это возможно? Если можно ссылки на нужные статьи, веб-русурсы.

[GoodDA]

http://delphisite.ru/faq/shablony-i-otchety-ms-word

[adidas_pro]

Написал замену строчки в документе.
Теперь надо что бы по таймеру фаилии по очереди брались из ListBox и документ печатался. Подскажите.
Т.е. Вставляется фамилия, ждем 20 сек - пока док. печатается, потом берем слел. фамилию и т.д.

 procedure TForm1.Button1Click(Sender: TObject); 
 var 
 word, doc: OleVariant; 
 str, text : string; 
begin 
getdir(0,str); 
word:=CreateOleObject('Word.Application'); 
word.Documents.Open(str+'\1.dot'); // открываем шаблон 
doc:=word.Documents.Item(1); 
text:=doc.Paragraphs.Item(2).Range.Text; // выделяем абзац 
text:=Replace(text, 'fio', ListBox1.Items[0]); // замена фамилии 
doc.Paragraphs.Item(2).Range.text:=text; 
word.Visible:= True; 
// ShowMessage(ListBox1.Items[0]); 
end; 

end.

[adidas_pro]

upupupupupup

[Вадим Мошев]

Сообщение от adidas_pro

Написал замену строчки в документе.
Теперь надо что бы по таймеру фаилии по очереди брались из ListBox и документ печатался. Подскажите.
Т.е. Вставляется фамилия, ждем 20 сек - пока док. печатается, потом берем слел. фамилию и т.д.

А что если создать временный файл, создать там N одинаковых страниц, при этом фамилии будут менять от страницы к странице, вывести этот документ на печать и удалить этот временный файл?
Не придётся выжидать время