Visual Basic - Impresion Puerto USB

Life is soft - evento anual de software empresarial

Pos: 157

Val: 10

Impresion Puerto USB

Publicado por Juan Carlos C (130 intervenciones) el 28/10/2008 17:35:00

con los puertos LPT hago lo siguiente:

intCanalImpresion = FreeFile
Open "LPT1" for Output As #intCanalImpresion
Print #intCanalImpresion, "Hola Mundo"

sucede que ahora las impresoras de punto de venta vienen para puerto USB y los computadores de ahora tampoco traen el puerto Paralelo. Al reemplazar el puerto LPT1 en la instruccion por USB001 solo me crea un archivo en el disco llamado USB001.

mi pregunta para los duros de la programacion es:

Como imprimir en puerto Usb desde el VB?

Gracias por la atencion.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Impresion Puerto USB

Publicado por Isidoro (1 intervención) el 27/11/2014 18:58:42

Hola, yo tengo exactamente el mismo problema y he probado ya un montón de cosas.

Ya probé a poner Open "\\NombrePC\NombreImpresora" y tampoco funciona. Eso solo funciona si la impresora está en red, por cierto. También probé a compartirla

Sin embargo, probé lo que pone aquí y me ha ido bien:

http://www.compartir-tecnologias.es/respuesta/como-pudedo-imprimir-msdos-una-impresora-usb-ayuda-200179351.html#r

Un saludo

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 190

Val: 8

Impresion Puerto USB

Publicado por Wilfredo Patricio Castillo (260 intervenciones) el 28/11/2014 22:17:58

Si bien es cierto que las impresoras ahora vienen con puerto USB, pero también traen conector paralelo, y lo que te queda es comprar el cable paralelo y si la compuradora no tiene puerto paralelo, tarjeta pci con puerto paralelo y asunto solucionado, justamente ayer compré un cable paralelo para una impresora EPSON-LX-350 ya que quería imprimir al estilo de las aplicaciones para DOS, rápido,nítido, comprimido y todo ello y via USB no se podía y con el cable paralelo todo bien, la programación va como lo indica con el open lpt1 sin problemas. Usando VS 2013.

Saludos

Valora esta respuesta

Comentar

Impresion Puerto USB

Publicado por alejandro (1 intervención) el 05/07/2023 01:34:14

comparte tu impresora matriz con un nombre ejemplo : epson tm-

Open \\ip impresora compartida\epson tm- For Output As #1

Imprimir Log, " Hola"
Imprimir Log, " -----------------------"

Nota: Escribe la ip del equipo donde compartiste la impresora y tienes que poder ver la impresora compartida (epson tm-)

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

Impresion Puerto USB

Publicado por Andres Leonardo (1798 intervenciones) el 05/07/2023 23:13:35

Se comparte la impresora y luego solo pones

Open "\\NOMBREMAQUINA\NOMBREIMPRESORA" For Output As #1

Con eso mantas los comnado recuerda que solo estas direccionando a la impresora
Luego te falta indicarle que hacer y como a la impresora. puedes leer los comando ESC de impresoras EPSON te mando unos ejemplos

Private Sub Command2_Click()

Open "\\NOMBREMAQUINA\NOMBREIMPRESORA" For Output As #1

Print #1, Chr$(27); "@"; 'Initializes the printer (ESC @)

'Print #1, Chr$(27); "!"; Chr$(15); 'Specifies font A (ESC !)

'Print #1, Chr$(27) & Chr(120) & Chr(0) 'Draft

'Print #1, Chr$(27) & Chr(77) '12 CPI

'Print #1, Chr$(27) & Chr(80) '10 CPI

Print #1, Chr$(27); "!"; Chr$(15);   'Comprimido

'Print #1, Chr$(27) & Chr(18) 'Cancela COmprimido

Print #1, Chr$(27) & "!"; Chr$(14); 'Ancho Double

'Print #1, Chr$(27) & Chr(20) 'Cancela Ancho double

'Print #1, Chr$(27) & Chr(69) 'Negrita

'Print #1, Chr$(27) & Chr(70) 'Cancela negrita

'Print #1, Chr$(14) 'Agrandar

'Print #1, Chr$(18) 'Cancela Agrandar

Print #1, "TM-U210B $20.00"; Chr$(10);

Print #1, "TM-U210D $21.00"; Chr$(10);

Print #1, "PS-170   $17.00"; Chr$(10);

Print #1, Chr$(10); 'Line feeding (LF)

Print #1, Chr$(29); "V"; Chr$(66); Chr$(0); 'Feeds paper & cut

Private Sub Command3_Click()

Open "\\aguerrero\EPSONTM" For Output As #1

Print #1, Chr$(27); "@"; 'Initializes the printer (ESC @)

Print #1, Chr$(27); "a"; Chr$(1); 'Specifies a centered printing position (ESC a)

Print #1, Chr$(27); "!"; Chr$(0); 'Specifies font A (ESC !)

Print #1, "Fecha: " & Format(Date, "dd-MMMM-YYYY") & " Hora: " & Format(Time, "HH:MM:SS")

Print #1, Chr$(27); "d"; Chr$(3); 'Prints and 3 line feeding (ESC d)

Print #1, Chr$(27); "a"; Chr$(0); 'Selects the left print position (ESC a)

Print #1, Chr$(27); "F"; Chr$(1); 'Selects font B

Print #1, "TM-U210B $20.00"; Chr$(10);

Print #1, Chr$(27); "!"; Chr$(66); 'Selects font B

Print #1, "TM-U210D $21.00"; Chr$(10);

Print #1, "PS-170   $17.00"; Chr$(10);

Print #1, Chr$(10); 'Line feeding (LF)

Print #1, Chr$(27); "!"; Chr$(53); 'Selects double-height mode

Print #1, "TOTAL $58.00"; Chr$(10);

Print #1, Chr$(27); "!"; Chr$(0); 'Cancels double-height mode

Print #1, Chr$(27); "a"; Chr$(2); 'Specifies a Full justification printing position (ESC a)

Print #1, "------------------------------"; Chr$(10);

Print #1, "PAID $60.00"; Chr$(10);

Print #1, "CHANGE $ 2.00"; Chr$(10);

'Print #1, Chr$(27); " r "; Chr$(1); "HOLA";

Print #1, Chr$(29); "V"; Chr$(66); Chr$(0); 'Feeds paper & cut

Close #1

End Sub

Valora esta respuesta

Comentar

Reproductor de Musica

Control para graficar