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
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.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 80 guests