topic-8399

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

AYUDA URGENTE - URGENTE
Posted: Thu Oct 04, 2007 06:15 PM

Estoy usando la clase TDosPrint de Ignacio y funciona OK.

Mi problema grave es como se puede imprimir en una impresora en red.
Ejemplo \server\laser1

( usando la misma clase o similar )

Utilice poner en los terminales la instruccion:

net use lpt1 \server\epson1
net use lpt2 \server\epson2

pero no funciona !!

Alguien conoce como hacerlo o alguno truco magico u otra clase,
me urge una ayuda. Disculpen mi apuro, pero es algo apurado :-( (

Uso esta clase por la velocidad para imprimir boletas, vales, etc.

Saludos

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

mantonio_08

Posts: 330

Joined: Fri May 25, 2007 09:06 PM

Re: AYUDA URGENTE - URGENTE
Posted: Thu Oct 04, 2007 07:43 PM

Amigo:

Que tipo de Red usas?

jcaro wrote:Estoy usando la clase TDosPrint de Ignacio y funciona OK.

Mi problema grave es como se puede imprimir en una impresora en red.
Ejemplo \\server\laser1

( usando la misma clase o similar )

Utilice poner en los terminales la instruccion:

net use lpt1 \\server\epson1
net use lpt2 \\server\epson2

pero no funciona !!

Alguien conoce como hacerlo o alguno truco magico u otra clase,
me urge una ayuda. Disculpen mi apuro, pero es algo apurado (

Uso esta clase por la velocidad para imprimir boletas, vales, etc.

Saludos

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

AYUDA URGENTE - URGENTE
Posted: Thu Oct 04, 2007 07:58 PM

Utilizo red windows con tcp/ip !!

Alguna idea ??

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

ricardog

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

AYUDA URGENTE - URGENTE
Posted: Thu Oct 04, 2007 08:09 PM

Yo lo utilizo de esta forma en un bat

net use LPT1 \Fabian\impresora5
Dsinco.exe
net use lpt1 /delete

En cada una de las terminales.

Espero que te sirva

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

AYUDA URGENTE - URGENTE
Posted: Thu Oct 04, 2007 08:44 PM

GRACIAS Ricardo funciono OK !!

Si miras yo hacia lo mismo, pero no ponia en el bat el EXE.
Yo lo ponia en el config del terminal, los capture.

Lo hice asi y funciono perfecto.

TE agradesco mucho la ayuda, estaba instalando donde el cliente,
y no podia solucionar esto.

Saludos,

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

ricardog

Posts: 158

Joined: Tue Oct 11, 2005 03:10 PM

AYUDA URGENTE - URGENTE
Posted: Thu Oct 04, 2007 08:46 PM

Que bueno que pudiste solucionar tu problema.

Saludos.

jacgsoft

Posts: 114

Joined: Fri Nov 24, 2006 09:03 PM

AYUDA URGENTE - URGENTE
Posted: Fri Oct 05, 2007 08:32 PM

no es necesario usar NET USE LPT1, yo lo uso asi:

Select A
Use Configur

G_port:=A->Puerto ** ( \Servidor\Hp-6300)

oPrn:=TDosPrn():New(G_port)
..
..
..
oPrn:End()

Si por algun motivo cambian la impresora o quiero imprimir de modo local simplemente modifico el Campo PUERTO de la tabla Configur

Jaime

mantonio_08

Posts: 330

Joined: Fri May 25, 2007 09:06 PM

AYUDA URGENTE - URGENTE
Posted: Sat Oct 06, 2007 12:27 AM

Amigo:

Comparto como te indica "jacgsoft", yo lo uso igual, tengo una base donde puedo definir las impresoras y los diferentes puertos para cada uno, incluso si esta estuviera usando una red novell, teniendo una opcion el usuario donde pueda seleccionar la impresora a usar, con un browser y posteriormente captura la printer deseada. Esto me permite incluso poder imprimir en diferentes colas en un mismo programa, por ejemplo, una Factura para el vendedor y una orden de despacho a bodega.

En lo particular, no me gustan los BAT, me recuerda DOS, el sistema debe ser mas dinamico.

Bueno, es solo mi forma de programar y una altrnativa mas.

Saludos,
Antonio

jcaro

Posts: 270

Joined: Fri Nov 11, 2005 07:39 PM

AYUDA URGENTE - URGENTE
Posted: Tue Oct 09, 2007 06:18 PM

GRACIAS Mantonio y jacksoft :

Me parece muy buena idea tambien, la voy a probar como funciona.

Disculpen no responder pronto, pero no habia podido, por estar fuera de mi ciudad.

Saludos ,

Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

AYUDA URGENTE - URGENTE
Posted: Tue Oct 09, 2007 08:45 PM

Puedes Usar la libreria CT.LIB y utilizar las funciones de red

Code: Select all Collapse

//NETREDIR( cLocalDevice, cSharedDevice, [ cPassword ], [ lShowError] ) -> lSuccess

ALERT(NETREDIR( "LPT1", "\\REPUESTOS\OK320TURBO" ))
//seria con net use lpt1: \\repuestos\ok320turbo

//si quieres saber si existe el puerto compartido..
//NETRMTNAME( cLocalDevice ) -> cSharedName
ALERT(NETRMTNAME( "LPT1" ))

//Si quieres eliminar una conexion,..
//NETCANCEL( <cLocalDevice> ) -> lReleased
alert( NETCANCEL( "LPT1" ) )

Ahi puedes jugar con esas funciones..

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion