Creo que el fallo lo tienes en el AS #file y en el Close #file
Tiene que ser AS file y Close file
Prueba así:
Código:
Open App.path & "\contable.txt" For Append As file
Print #file, "430000001" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabalb("preciopedido") + bdcabfactura("iva") & " D"
Print #file, "477000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabfactura("iva") & " H"
Print #file, "700000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabalb("preciopedido") & " H"
Close file
Ya te digo que CREO....
Pero prueba a ver que tal...
Saludos!