FiveTech Software tech support forums

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

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

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

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

Armando, un favor me puedes enviar un ejemplo de listado usando la clase tdosprn para usb

mil Gracias

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.

De nada amigo.