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...