Hola Waldo.
No trabajo con Word, pero a ver si esto que encontré te sirve de ayuda:
Código Delphi
[-]
var
Word, Doc, Dlg: OleVariant;
begin
Word := CreateOleObject('Word.Application');
Dlg := Word.Dialogs.Item(wdDialogFilePrintsetup);
Dlg.Printer := 'PrinterName';
Dlg.DoNotSetAsSysDefault := True;
Dlg.Execute;
Word.Documents.Open('c:\myfilename.doc');
end;
(Tomado de
aquí)
Por otro lado y según leí, la propiedad
ActivePrinter también lo haría, pero cambiando la impresora por defecto del sistema, supongo que tendría que ser algo por el estilo:
Código Delphi
[-]
uses Printers;
...
begin
if PrintDialog1.Execute then
WordApplication1.ActivePrinter:= Printer.Printers[Printer.PrinterIndex];
...
end;
Pero no puedo comprobarlo porque al no tener Word instalado me genera el error "
Clase no registrada"
Saludos.