imprimir al puerto de pc en red

[roortiz]

Hola amigos:

He intentado imprimir en le puerto LPT1 de una pc de la red sin resultados. Para imprimir utilizo el puerto LPT1 pero de la maquina en donde esta la impresora (que se llama Dep2) pero intento imprimir desde la dep1 en el puerto de la dep2 y nada.....

intente poniendo lo siguiente:
primero el puerto

printer.port="\\dep2\LPT1:"

o tambien la direccion de red de la impresora

printer.port ="\\dep2\Epson810"

y nada. Ustedes me pueden ayudar???

[roortiz]

He consultado con alguien que conoce el tema y me indico que la ruta correcta es "\\dep2\Epson810" , pero a mi me sigue saliendo un mensaje que dice que que hay un error al acceder a la ruta o al archivo.

mmmmm, no se que hacer.....

[tazzito]

prueba con

\\Maquina\LPT1

sin los 2 puntos xD

[roortiz]

no, tampoco funciona asi.... ya lo habia probado antes

[roortiz]

consulte con EPSON porque tenia dudas si las impresoras en las que estaba haciendo la prueda podian imprimir en red, pero me contestaron que SI pueden hacerlo, entonces no se porque no puedo lograr imprimir a traves de la red en el puerto de otra PC...

[tazzito]

hola ahora estuve leyendo mas detenidamente tu pregutna (perdon por la primera respuesta) y te comento algo

\\maquina\lpt1 es para imprimir en forma directa via
open "\\maquina\lpt1" for output as #1
print #1 "mi primera linea de impresion"
close #1

el print ocupa la impresora por defecto asociada a windows osea si tienes la epson como determinada simplemente tendras que enviar
printer.print "mi primera linea de impresion"
puedes cambiar la impresora por defecto pero eso ya es harina de otro costan tendrias que buscar la forma de recorrer la coleccion printer hasta encontrar el nombre que buscas y dejar la que tenia por defecto para restaurarla despues de la impresion... espero haber ayudado algo ahora

[roortiz]

Si, eso acabo de probarlo, pero en realidad la cuestion es que no encuentra la ruta de la impresora, tengo el siguiente codigo que no logro hacer funcionar:


Private Sub Command1_Click()
Dim Linea As Integer
Dim Port As String

Linea = FreeFile

Port = "\\dep2\lpt1" & ":"
Open Port For Output As #Linea
Print #Linea, "Esta es mi primera linea"
Close #Linea
End Sub
cuando cambio
Port = "\\dep2\lpt1" & ":"
por
Port = "lpt1" & ":"

imprime bien en la impresora que corresponde, pero el programa debe permitir tambien poder imprimir desde otras pc en la pc que tiene la impresora, y la unica manera es poniendo la ruta de la impresora, pero no logro asertar con esto.... :C

[kortiz]

Yo he usado el print para imprimir en impresoras en red, y me funciona bien, primero comparto la impresora (Si esta pegada a una Pc).

La instalo en mi Pc y le coloco un nombre amigable por ejemplo "ImpresoraRed" o le dejo el que sale (Epson LX-300 on Pc2).

Uso este procedimiento en VB6
Private Sub SeleccionaImpresora(ByVal Impresora As String)
Dim Prt As Printer

For Each Prt In Printers
If Prt.DeviceName = Impresora Then
Set Printer = Prt
Exit For
End If
Next

End Sub

Y lo uso de esta forma:
SeleccionaImpresora "ImpresoraRed"

De esta forma ya tengo destinado el lugar a donde se iran los trabajos de impresion mediante el objeto printer.

[antonio2005pe]

digamos k uso el
Open Port For Output As #Linea
Print #Linea, "Esta es mi primera linea"
Close #Linea

como establesco el tamaño de fuente a imprimir?

[roortiz]

creo que solo puedes utilizar las fuentes disponibles en la impresora, por ejemplo yo en la impresora que imprimo tengo varias fuentes pero uso "roman 12CPI", probe con otras pero no resultó. Solo puedo usar roman, san serif y draft que son las que trae incorporadas la impresora

[tazzito]

depende como mandes a imprimir, prueba con el printer.print (te imprime a la impresora por defecto) puedes buscar en internet como recorrer la coleccion printer y activar como predeterminada la que tu quieras......

[antonio2005pe]

si de hecho yo se como usar el printer.print, pero si yo kiero usar el
Open Port For Output As #Linea
Print #Linea, "Esta es mi primera linea"
Close #Linea

k codigo pongo para establecer el tamaño de fuente?

[tazzito]

aps si mal no recuerdo era el chr(15) , chr(20) y chr(18) para agrandar y disminuir las letras y volver al normal, no me recuerdo bien eso si tendrias que probar.

[antonio2005pe]

Iniciado por tazzito

aps si mal no recuerdo era el chr(15) , chr(20) y chr(18) para agrandar y disminuir las letras y volver al normal, no me recuerdo bien eso si tendrias que probar.

como aplico el codigo asi?

Código:

Open Port For Output As #Linea
Print #Linea, chr(15) & "Esta es mi primera linea"
Close #Linea

lo probe asi y no me funciona :(

[culd]

Iniciado por kortiz

Yo he usado el print para imprimir en impresoras en red, y me funciona bien, primero comparto la impresora (Si esta pegada a una Pc).

La instalo en mi Pc y le coloco un nombre amigable por ejemplo "ImpresoraRed" o le dejo el que sale (Epson LX-300 on Pc2).

Uso este procedimiento en VB6
Private Sub SeleccionaImpresora(ByVal Impresora As String)
Dim Prt As Printer

For Each Prt In Printers
If Prt.DeviceName = Impresora Then
Set Printer = Prt
Exit For
End If
Next

End Sub

Y lo uso de esta forma:
SeleccionaImpresora "ImpresoraRed"

De esta forma ya tengo destinado el lugar a donde se iran los trabajos de impresion mediante el objeto printer.

No lo prove al codigo, pero seguro que funciona bien, muy bien pensado esta.

Lo que hace es cambiar la impresora predeterminada para el Pinter, muy muy bueno, me facilitaste ARTO trabajo.

Y la verdad que es muy util. Roortiz esta es la solucion a tu problema. No te olvides como dice kortiz de compartir la impresora en la red, y que en la maquina que vas a imprimir este agregada...