|
Hola Oliverinf. Te cuento que yo también tengo el mismo problema. Luego de mucha prueba y error he encontrado un método para que desaparezca el problema pero no se justificar bien que es lo que hace. En el evento OnClose asigno a la variable PrnFisc el valor nulo, vuelvo a crear el objeto Com y lo vuelvo a poner Nulo, de esta forma:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
PrnFisc:=Nil;
PrnFisc := CreateComObject(CLASS_PrinterFiscal) as _PrinterFiscalDisp;
PrnFisc := Nil;
Application.ProcessMessages;
Action:=caFree;
end;
Espero que te sea de alguna ayuda
|