Ver Mensaje Individual
  #1  
Antiguo 07-10-2003
Firibiri Firibiri is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 33
Reputación: 0
Firibiri Va por buen camino
Unhappy Imprimir con word en impresora en concreto

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...
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;
Responder Con Cita