ActiveDelphi

[Eugênio]

Boa tarde a todos, estou cmo uma duvida (Prá variar) uso a rotina abaixo para imprimir um contrato do word usando o delphi (estou usando o delphi 5). Porém acontece que somente pega a impressora padrão si eu usar outra não imprimir. Será que alguém pode me ajudar?

MSWord := CreateOleObject('Word.Application');
MSWord.Documents.Open(ExtractFIlePath(Application.ExeName) + 'Contrato.dot');


MSWord.ActiveDocument.Content.Find.Execute(FindText := '<NOME>', ReplaceWith := edit2.text,Replace := 2);
MSWord.ActiveDocument.Content.Find.Execute(FindText := '<PAI>', ReplaceWith := edit3.text,Replace := 2);
MSWord.ActiveDocument.Content.Find.Execute(FindText := '<MAE>', ReplaceWith := edit4.text,Replace := 2);
if PrintDialog1.execute then
begin
MSWord.ActiveDocument.PrintOut(Copies := PrintDialog1.copies);
MSWord.ActiveDocument.Close(SaveChanges := 0);
MSWord.Quit;
limpar;
end;

[leogazio]

[wagnercabrera]

Esses componentes do Word e Excel do Delphi, principalmente o 5 tem diversos problemas desse tipo. Ja tentou migrar para uma versão mais nova do Delphi?

[leogazio]