Imprimir open "lpt1" for output

21/04/2006 - 18:38 por joda | Informe spam

Como se puede hacer esto con vb2005

Open "lpt1:" For Output As #impresion

Print #impresion, Chr$(18)
Print #impresion, Chr$(27) & Chr$(33) & Chr$(40)
Print #impresion, " " & vcantidad & " " & midescripcion

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Open "LPT1" For Output As 1

Leer las respuestas

#1 Alberto Poblacion

21/04/2006 - 20:19 | Informe spam

"joda" wrote in message
news:

Como se puede hacer esto con vb2005

Open "lpt1:" For Output As #impresion

Print #impresion, Chr$(18)
Print #impresion, Chr$(27) & Chr$(33) & Chr$(40)
Print #impresion, " " & vcantidad & " " & midescripcion

Imports System.IO
...

Dim sw as New StreamWriter("lpt1:")
sw.Write(Chr(18))
sw.Write(Chr(27) & Chr(33) & Chr(40))
sw.Write(" " & vcantidad & " " & midescripcion)
sw.Close()

Responder a este mensaje

#2 joda

22/04/2006 - 09:16 | Informe spam

Muchas gracias.

"Alberto Poblacion" escribió:

"joda" wrote in message
news:
> Como se puede hacer esto con vb2005
>
> Open "lpt1:" For Output As #impresion
>
> Print #impresion, Chr$(18)
> Print #impresion, Chr$(27) & Chr$(33) & Chr$(40)
> Print #impresion, " " & vcantidad & " " & midescripcion

Imports System.IO

Dim sw as New StreamWriter("lpt1:")
sw.Write(Chr(18))
sw.Write(Chr(27) & Chr(33) & Chr(40))
sw.Write(" " & vcantidad & " " & midescripcion)
sw.Close()

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida