11/01/2006, 05:16
|
| | | Fecha de Ingreso: enero-2006
Mensajes: 1
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| Impresión directa a LPT1
Para hacer lo que tu quieres, yo no utilizo impresora de Windows (pasaría a través del driver). Prueba este código:
Dim liLPT As Integer
liLPT = FreeFile
Open "LPT1:" For Output As #liLPT
Print #liLPT, "CODIGOS1"
Print #liLPT, "CODIGOS2"
Print #liLPT, "CODIGOS3"
Print #liLPT, "CODIGOS4"
'...
Close #liLPT
Suerte. |