Comandar a impressão com o World de um .DOC já pronto

Em um novo projeto coloque um botão e um OpenDialog. No click
do botão faça o seguinte:

procedure TForm1.Button1Click(Sender: TObject);

var MsWord : Variant;

begin
if OpenDialog1.Execute then
begin
MSWord := CreateOleObject(´Word.Application´);
MSWord.Documents.Open(OpenDialog1.FileName);
MSWord.ActiveDocument.PrintOut;
MSWord.ActiveDocument.Close;
end;
end;

Obs: Tem que dar uses em ComObj

Obrigado pela atenção [b:d8db6de5a7]antseralves[/b:d8db6de5a7].

Na verdade eu nem preciso do OpenDialog, pois a impressão será de um DOC especifico.
Por exemplo:

Tenho os arquivos [b:d8db6de5a7]Modelo_1.doc[/b:d8db6de5a7], [b:d8db6de5a7]Modelo_2.doc [/b:d8db6de5a7]e [b:d8db6de5a7]Modelo_3.doc [/b:d8db6de5a7]na pasta [b:d8db6de5a7]C:\Modelos[/b:d8db6de5a7]

Terei 3 botões, [b:d8db6de5a7]IMPRIMIR MODELEO_1.DOC[/b:d8db6de5a7], [b:d8db6de5a7]IMPRIMIR MODELO_2.DOC[/b:d8db6de5a7] e [b:d8db6de5a7]IMPRIMIR MODELO_3.DOC[/b:d8db6de5a7].

Então quando se clicar num dos botões, a impressão será a do documento daquele botão.

Acho que basta alterar o código que você exemplificou acima que dará certo, porem eu não tenho muito conhecimento em comandos de impressão e gostaria que me ajudasse.

Muito obrigado.

Com esse codigo dá pra fazer certinho... a questao dos arquivos vc pode pssar por paramentros.

ex:
procedure TForm1.Button1Click(Sender: TObject);

var MsWord : Variant;

begin

MSWord := CreateOleObject(´Word.Application´);
MSWord.Documents.Open(´c:\teste.doc´);
MSWord.ActiveDocument.PrintOut;
MSWord.ActiveDocument.Close;

Valeu.
Com a dica do [b:bb49b5bfc7]antseralves[/b:bb49b5bfc7], cheguei na sugestão do [b:bb49b5bfc7]mazzi[/b:bb49b5bfc7].
Brigadão, pessoal.

Agora estou tentando alterar o [b:bb49b5bfc7]items.strings [/b:bb49b5bfc7]de uma [b:bb49b5bfc7]ComboBox[/b:bb49b5bfc7] em tempo de execução.

É possível?

Qualquer ajuda é bem vinda.

Abraços