PDA

Ver la Versión Completa : Imprimir con word en impresora en concreto


Firibiri
07-10-2003, 11:09:09
Hola a todos.Estoy haciendo una aplicación que abre un documento de word (sin ser visible para el cliente)modifico el documento y lo imprimo por una impresora en concreto "zetafax printer" para que sea enviado por fax.
El problema es que una vez finalizado el proceso se me queda ésta impresora como la predeterminada de windows.Alguien me puede decir cómo puedo dejar como predeterminada la que tenia antes del proceso...:confused:
Gracias de antemano

El código es este:

try
word := GetActiveOleObject('Word.Basic');
except
word := CreateOleObject('Word.Basic');
end;

try
word.Fileopen("nombre fichero word");
word.ViewHeader;
word.Insert('texto a insertar');
word.CenterPara;
WORD.ToolsOptionsPrint(Background:=0);//no se ve

word.Fileprint(NumCopies:='1');

word.fileprintsetup(printer:='Zetafax Printer on ZETAFAX.SPL');//pone a predeterminada la zetafaz printer
finally
WORD.ToolsOptionsPrint(Background:=1);
WORD.FILECLOSE(2);//EL 2 ES PARA SALIR SIN GUARDAR
WORD.FILEEXIT;
WORD:=UnAssigned;
end;