FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Quitar dialogo de impresora
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Quitar dialogo de impresora
Posted: Mon Jul 15, 2013 07:21 PM
Hola a todos

Tengo una aplicaci贸n en la que obtengo las impresoras instaladas con aGetPrinters() y guardo en un campo la impresora que voy a utilizar para imprimir los reportes, facturas o tickets, hasta ahi todo esta perfecto. Mi problema viene al momento de crear el objeto Printer donde le indico que utilice la impresora que anteriormente guarde y me genere la impresi贸n y no logro quitar el dialogo para seleccionar impresora, necesito que haga la impresion directamente sin que aparezca ese dialogo, ya cambie el nombre de la impresora, cambie a lUser := .f. en el objeto print y nada, alguna idea de como hago para eliminar ese bendito dialogo??

Este es mi codigo:

Code (fw): Select all Collapse
 
cImpresora := oPublic:oEmpresa:cImpresoraTicket

聽 PRINT 聽 聽oPrn 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽NAME 聽 聽 "Impresion de ticket" 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽TO 聽 聽 聽 cImpresora


el mismo problema lo tengo al generar un reporte con REPORT.

Saludos y gracias

LCP Eduardo Borond贸n Mu帽iz

FWH 1209
Harbour 3.2.0dev (rev 17516)
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Quitar dialogo de impresora
Posted: Mon Jul 15, 2013 11:07 PM
Una sugerencia Eduardo, tal vez te pueda dar una luz:
Este c贸digo lee las impresoras y las guarda en un arreglo, luego indicas el indice, y no muestra el di谩logo de seleccionar impresora.
Code (fw): Select all Collapse
nImpresora := oPublic:oEmpresa:nImpresoraTicket
aPrinters 聽:= aGetPrinters()

聽 PRINT 聽 聽oPrn 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽NAME 聽 聽 "Impresion de ticket" 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽TO 聽 聽 聽 aPrinters[nImpresora]

Espero te sirva
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Re: Quitar dialogo de impresora
Posted: Wed Jul 24, 2013 01:36 PM

Hola cmsoft

Gracias por responder, con tu c贸digo me dio una pista de por donde pudiera estar el problema ya que yo obtengo el nombre de la impresora con aGetPrinter() al igual que tu, as铆 que no entend铆a por que tu c贸digo si funcionaba y el mio no, me di cuenta que al grabar el nombre de la impresora en la tabla y despu茅s al recuperar el nombre, se agregaban "espacios" al final del nombre de la impresora por el ancho del campo y eso era lo que hacia que no encontrara la impresora correcta, la soluci贸n fue un simple AllTrim( cImpresora ).

Muchas gracias por tu tiempo y tu inter茅s.

Saludos!!!

LCP Eduardo Borond贸n Mu帽iz

Continue the discussion