Enviar a LPT1 desde Excel

Prueba con algo parecido a:

Dim intFichero As Integer
intFichero = FreeFile(0)
Open "LPT1" For Output As intFichero
Print #intFichero, "texto" 'O el byte que sea
Close intFichero

El problema es que no puedo garantizar que te vaya a funcionar porque no puedo probar este código, debido a que las impresoras las tengo en red, no tengo ninguna conectada directamente a LPT1, ni ningún otro dispositivo.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Pepito" escribió en el mensaje news:345301c375bf$ddacd280$
Hola!!
Alguien me pudiera dar una idea sobre como enviar un byte
al puerto LPT1 o al LPT2 , ( los ejemplos que he visto en
qbasic eran así)
Out 888, var no?
pero ¿Cómo se hace esto desde VBA de Excel2000 ?
!!no sé?! .¿\'_'/?. ;-(((
Si tienen algún ejemplo práctico mejor.
Saludos
Pepito
OJO:-> Ya que estamos en este tema , las direcciones de
memoria Hex(0378(888 DEC)-037F(895 DEC) y de la 0778-
077A )las usa LPT1 para e/s, ¿Porqué tantos byte , y como
esto funciona?.
(( 8 byte por un lado y 3 por otro).Chaooo