Imprimir a puerto LPT de otro equipo en red

[lucasarts_18]

Hola compañeros:

Tengo la necesidad de poder dirigir la impresión a otro PC específicamente al puerto LPT1, con el código siguiente imprimo sin problemas al puerto LPT1 de mi equipo.

Código:

Public Sub crearEtiqueta(nroOrden, nomMuestra, idEtiqueta, nomPaci)

   Dim f As Integer
   f = FreeFile()
   Open "LPT1" For Output As #f
   
   Print #f, "N"
   
   Print #f, "A500,10,1,3,1,1,B,""" & nroOrden & """"
   Print #f, "B80,40,0,3,2,4,110,B,""" & nroOrden & idEtiqueta & """"
   Print #f, "A80,180,0,2,1,1,N,""" & nomMuestra & """"
   Print #f, "A80,10,0,2,1,1,N,""" & nomPaci & """"
   Print #f, "P1"
   
   Close #f
End Sub

Espero que se pueda, gracias...

[lucasarts_18]

.................................................. ...........................

[kadosh]

Mira, yo hace unos aÑs hice un codigo que necesitaba esto, y la verdad es que si tenes instalada la impresora en tu maquina, como impresora de red en windows, y luedo cuando imprimis con un boton por ejemplo, le decis en printers que tal impresora y listo, sale sola como si fuera una en tu maquina, no se pero win lo hace sola, yo probe y salio asi que ahi lo deje... Jejej hace aÑos que usa esa aplicacion y anda barbaro ...

[kadosh]

Perdon , me olvide, no le das al puesto lpt1 , sino que llamas a la impresora diractamente como si fuera tu maquina
saludos

[Txoco]

Qué tal?

Supongo que sería más sencillo crear la impresora con el controlador Genérico/Sólo texto y compartirla para los equipos que la necesiten.
Luego, en el programa, en lugar de imprimir escribiendo directamente en el puerto, se pueden utilizar los métodos del objeto Printer.

Además, de esta manera, desvinculamos el código y el hardware... si pasado mañana esa impresora se cambia por una USB, habría que modificar y recompilar el programa, mientras que si se utiliza Printer (y se escribe algún mecanismo para guardar la configuración de la aplicación), no haría falta.