Page 2 of 2
Re: TDOSPRN y XP WINDOWS
Posted:
Tue Jan 25, 2011 1:08 am
by artu01
Armando haz probado si funciona en windows 7?
Antes de imprimir haces un preview o envias directo?
Antes de imprimir pones NET USE LPT1: /d y NET USE LPT1: \\maquina\nombre-impresora
Re: TDOSPRN y XP WINDOWS
Posted:
Tue Jan 25, 2011 1:38 am
by Armando Picon
Artu01
No he podido probar en W7 proque no dispongo de la plataforma. El codigo lo modifiqué para que no indique la opción de preview y, por consiguiente, salga directamente a la impresora. Tal como están las modificaciones que hice, me funciona al 100% en XP-SP2. ¡Ah! Y no necesita de ninguna sentencia referida a NET USE, etc., etc.
Saludos
Armando
Re: TDOSPRN y XP WINDOWS
Posted:
Tue Jan 25, 2011 1:43 am
by artu01
Ok, Armando
te lo preguntaba por que a mi en windows 7 me funciona a medias, yo primero veo el reporte y cuando imprimo en modo grafico si imprime
pero en modo texto no lo hace
Quitare la sentencia NET USE; que yo si la invoco cada vez que listo , hasta win xp creo yo ; era necesario, probare quitandolo a ver que pasa
y ya te avisare como me fue
Gracias
Re: TDOSPRN y XP WINDOWS
Posted:
Tue Jan 25, 2011 2:13 am
by Armando Picon
Artu01
Debo hacerte conocer que, quien me proporcionó el codigo del TDOSPRN, me indicó que él, particularmente utilizaba este codigo para imprimir tipo DOS en impresoras LASER, porque no tiene ninguna que sea matriz de puntos. Por ello es que yo inactivé la modalidad Preview. Y me funciona, como digo, 100% bien. En tu caso puedes inactivar las lineas que tienen las iniciales APS y volver a activar las originales.
Saludos
Armando
Re: TDOSPRN y XP WINDOWS
Posted:
Thu Jan 27, 2011 3:52 am
by artu01
Armando, un favor me puedes enviar un ejemplo de listado usando la clase tdosprn para usb
mil Gracias
Re: TDOSPRN y XP WINDOWS
Posted:
Sun Apr 24, 2011 2:41 pm
by leandro
Kleyber, Excelente este codigo funciona de maravilla y hasta en windows 7.
Muchas Gracias por el dato.
Kleyber wrote:Armando,
Un gusto hablar contigo. No tengo ni idea de lo que este pasando con estes equipos, pero en mi caso tuve problemas en algunos clientes porque las impresoras usaban USB, entonces hice una rutina que funciona en ambos los casos, usando TDosprn. Te muestro:
Enla cabecera de mi rutina de impresión hice esto:
- Code: Select all Expand view
cPorta := PrnGetPort()
cPrinter := PrinterPortToName( cPorta )
if empty(cPrinter)
cPrinter := PrinterPortToName( "USB002" )
if empty(cPrinter)
cPrinter := PrinterPortToName( "USB001" )
endif
endif
Despues empiezo la impresión, preo creando un archivo:
- Code: Select all Expand view
oPrin := TDosPrn():New("minuta.txt")
oPrin:StartPage()
...
...
Y en el fin de la rutina hago esto:
- Code: Select all Expand view
...
...
oPrin:EndPage()
oPrin:End()
PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Vendas" )
Intentalo y me comentas.
Re: TDOSPRN y XP WINDOWS
Posted:
Mon Apr 25, 2011 12:27 pm
by Kleyber
De nada amigo.