Hola amigo, aquí te pongo la respuesa que le he dado a otro camarada:
Después de investigar en Internet me enteré que los puertos USB no tienen soporte en el MS-DOS y que por lo tanto todos los programas que corren en MS-DOS como Turbo Pascal 7.0 no pueden mandar a imprimir a impresoras conectadas por puerto USB y solo es posible hacerlo a impresoras con puerto paralelo. Por eso es que resulta el Run-Time error 160: Divice write fault.
El programa DOS2USB que descargue de aquí: http://www.dos2usb.com/index.htm es el programa que me ha permitido hacer uso de la impresora desde el entorno de Turbo Pascal 7.0; una vez instalado el programa DOS2USB me ha sido posible imprimir en papel mis programas fuente .PAS (repito desde el entorno Turbo Pascal 7.0) y también imprimir en papel los resultados de Salida (Output) al ejecutar mis programas .EXE que pueden estar situados en cualquier lugar.
Por otra parte es importante recordar que para poder hacer uso de la impresora y poder imprimir los archivos fuente .PAS que estamos leyendo desde el entorno Turbo Pascal 7.0; el archivo .PAS debe de estar situado previamente en la carpeta BIN de tp que es donde se encuentran los programas PRNFLTR.PAS y PRNFLTR.EXE que son los que permiten el uso de la impresora desde el entorno Turbo Pascal 7.0, de otro modo resultará el mensaje de error: “Could not find printer filter PRNFLTR” .
El programa DOS2USB es de verdad que muy, muy bueno pues entre otras cosas permite cambiar el tipo de letra, el tamaño, el color, los márgenes de impresión, cambiar la codificación etc. Solo hay un detalle, el programa no es gratuito y tiene un costo de 20 dólares americanos pero, se puede descargar una versión de prueba totalmente funcional y usarse por unos días. Para ser franco vale la pena hacer el gasto pues no es muy caro y es extraordinariamente útil!!!!
Ya para finalizar, yo simplemente instalé el programa DOS2USB y no hice ninguna modificación de configuración ni en Turbo Pascal, ni en el programa que controla mi impresora y ni siquiera en el programa mismo de DOS2USB!! es decir, solo instalé el programa y todo funcionó! y eso que mi impresora es una HP LaserJet P1006 y Turbo Pascal 7.0 tiene predefinida una impresora EPSON (File>Printer setup...>Command line: $NOSWAP /EPSON) De todos modos el programa viene con un manual.
