FiveTech Software tech support forums

... notas 2.- Una pequeña de tickets para unos comprobantes que se dan Asi imprimo sobre la impresora que esta por default determinada sPrinterName := PRNGETNAME() <<= Esto lo pongo al inicio del programa para tomar la impresora por default SetPrintDefault(sPrinterName) <<= Esto al momento ...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

gracias por contestar function BoletaPdf(cFilePdf) *---------------------------- local cSumatra := ".\SumatraPdf.exe" local cPrinter := PrnGetName() local cFile,cCmd cFile := cFilePdf cCmd := cSumatra + ' -Print-to "' + ; alltrim( StrToken( cPrinter, 1, "," ) ) + ; '" ...

... la ruta a la misma. El tema es que les tengo puesto un botoncito para que puedan seleccionarla/configurarla con el típico PrinterSetup(), cprn := prngetname(), que solo devuelve el nombre de la impresora. ¿Hay alguna función que devuelva la ruta completa ? Saludos

I now realize the source of my error. I was using prngetname() to check if I had successfully changed the default printer, but changing the default printer doesn't change prngetname(). Whew.

I just tested getDefaultPrinter() here and it works fine with Windows 8.1, FW13.04, xHarbour and Borland 5.82. prnGetName() returns the current printer, which may, or may not, be the Windows default printer. When any app is run, the current printer of that app is the Windows default ...

... VA A IMPRIMIR: '+cTitulo1,'IMPRIMIR') cImpresoraSalida:=SeleccionaPrn() if len(cImpresoraSalida) == 0 return NIL endif else cImpresoraSalida:=PrnGetName() endif // Genera el informe. if .not. empty(nLtrSize) DEFINE FONT oFontNorm NAME "ARIAL" SIZE 0,-nLtrSize DEFINE FONT oFontNegr ...

... under Terminal Server to set a default printer. This code runs on local but not under TS: function main MsgInfo( "Current printer: "+PrnGetName() ) cPrinter:="PDF24 PDF" oPrn:=PrintBegin("",.f.,.T.,cPrinter) oPrn:End() MsgInfo( "Current printer: "+PrnGetName() ...

The ComDlgErr() printer.prg class works correctly to detect if there is printer installed in Windows?

I did numerous tests and noticed that in a few cases it fails indicating that there is printer, in this cases error occurs and in the PRNGETNAME() command.

Gracias, gracias amigos. Solucionado con un poco de todos. Cambie lo que dice karinha y ademas hice.. claImpreAnterior := PrnGetName() nImprePDF:= AScan(aPrinters, "PDF") cLaImpre :=aPrinters[nImprePDF] cLaImpre := xTrim(cLaImpre) (ltrim+rTrim) SetPrintDefault( cLaImpre ) ...

I found! eureka The problem is the command PrnGetName() . Please test with the following code within an application and run it twice: Perform close viewing and rerun without leaving the application. PRINT oPrn NAME "TESTING"+" ("+ ...

HI ORibeiro, Yes, I confirm this problem. So I change my code like this : coldprinter := prnGetName() // default printer WriteProfString( "windows", "device",cnewprinter) // change to new printer SetPrintDefault(cnewprinter) PrinterInit() SysRefresh() ...

Excelente Antonio,

Haremos la prueba

Gracias..

César,

Modificando asi el método Setup() de la Clase TPrinter:

METHOD Setup() BLOCK { | Self, hDC | hDC := PrinterSetup(), ::Rebuild(), hDC != 0 }

devuelve un valor lógico, lo que te permite hacer:

Code: Select all  Expand view

if ! oPrinter:Setup()
   return nil
endif
 

ya que andamos en este tema: PRINTER oPrn PREVIEW oPrn:Setup()* ......* .....ENDPRINT  Amigos el method oPrn:Setup() de la class tprinter presenta 2 botones: [ Acepta ], [ Cancelar ] abra forma de configurar las class para que cuando demos CANCELAR se regrese y no prosiga con el reporte...