FiveTech Software tech support forums

Muchas gracias... y con la clase TPRINTER como reemplazo esto: aadd( aRep, oReport:cName ) oPrn:=PrintBegin(Titulo,.F.,lPrv,,.T.) aadd( aRep, oPrn:cName ) me da error al ejecutar aadd( aRep, Titulo ) No me ningun error, pero NO me cierra la venta... ahora..... esta bien ...

Gracias por la respuesta....

el titulo que me sale en la ventana es el colocado al crear el reporte:

oPrn:=PrintBegin(Titulo,.F.,lPrv,,.T.)

ahora, deberia poner asi ?

FindWindow(Titulo)

asi no hace nada....

gracias nuevamente

david
argentina

... no estaba pintando correctamente los "bitmaps" debido a unos cambios recientes. Ahora lo hace correctamente. * Corrección: En la función PrintBegin() de la clase TPrinter, pequeña corrección que estaba causando problemas en Windows XP. Estaba funcionando correctamente en Vista :-). Ahora ...

... .f. ) works ok but PRINT oPrn NAME OemToAnsi( "test.pdf" ) TO cPrinter fails. I think that this is caused in function PrintBegin( cDoc, lUser, lPreview, xModel, lModal, lSelection ) of tPrinter class. May be that the GetProfString() calls don't give the desired results? ...

... function WBrwLine(), it was not properly painting the bitmaps due to some recent changes in it. Now it is ok. * Fix: Class TPrinter function PrintBegin(), minor fix that was causing troubles in Windows XP. It was fine in Vista. Now it is fine in both. * Fix: function CtrlDrawFocus() was not ...

... endif else ::cDir := GetWinDir() endif endif return Self I think this is what you initially stated in your first post Function PrintBegin function PrintBegin( cDoc, lUser, lPreview, xModel, lModal, lSelection ) local aPrn local cText, cDevice local nScan if xModel == nil return ...

It doesn't work. Please check this possible fix: in function PrintBegin() replace cDevice := aPrn[ nScan ] + "," + cText with cDevice := aPrn[ nScan ]// + "," + cText EMG I'm having the same problem and can confirm ...

It doesn't work. Please check this possible fix: in function PrintBegin() replace

Code: Select all  Expand view

   cDevice := aPrn[ nScan ] + "," + cText

with

Code: Select all  Expand view

   cDevice := aPrn[ nScan ]// + "," + cText

EMG

... format Any ideas ? Thanks in advance ------------ ? GetFontSize("Arial",136,"210") Function GetFontSize(cFontName,n_ColRequired,nMaxSize) oPrn:=PrintBegin("") aPoints:=oPrn:Cmtr2Pix(0,nMaxSize/10) for nFontWidth:=90 to 1 step -1 oFont:=Tfont():New(cFontName,-nFontWidth) oPrn:SetFont(oFont) llv:=oPrn:GetTextWidth(replicate("B",n_ColRequired),oFont) ...

... comparabile con Word/Windows. Qualche idea ? Grazie. ? GetFontSize("Arial",136,"210") Function GetFontSize(cFontName,n_ColRequired,nMaxSize) oPrn:=PrintBegin("") aPoints:=oPrn:Cmtr2Pix(0,nMaxSize/10) for nFontWidth:=90 to 1 step -1 oFont:=Tfont():New(cFontName,-nFontWidth) oPrn:SetFont(oFont) llv:=oPrn:GetTextWidth(replicate("B",n_ColRequired),oFont) ...

... Software Manufacturers, Inc. 1990 - 1995 All Rights Reserved. Licensed solely for use with CA-Clipper 5.3 BLINKER : 1115 : PROBA.OBJ(PROBA) : 'PRINTBEGIN' : unresolved external BLINKER : 1115 : PROBA.OBJ(PROBA) : 'PRINTEND' : unresolved external BLINKER : 0 Warning error(s), 2 Fatal error(s) ...

... oPrnDOS:write(chr(27)+chr(112)+chr(0)+chr(10)+chr(100)) oPrnDOS:cFormFeed:="0" oPrnDOS:EndPage() // optional oPrnDOS:End() else oPrn := PrintBegin("DRUCKER", .f., .f.,cPrnName ) PAGE DEFINE FONT oFntNormal NAME "ARIAL" SIZE 16,40 oPrn:Say( 0,5 , (chr(27)+chr(112)+chr(0)+chr(10)+chr(100)) ...

... Subject: Re: How to setup paper length and width? Date: Wednesday, November 22, 2000 11:06 AM Try this ... function UserFormat() oPrn:=PrintBegin("",.f.,.T.) oPrn:SetPortrait() aa:=oPrn:GetPhysize() old1:=round(aa[1],0) && actual value old2:=round(aa[2],0) && actual ...

... Antonio, he probado de un sinfin de maneras y no lo consigo. oPrn := TPreview():New() oPrn := TPrinter():New( "Factura", .F., .T., , .T. ) oPrn := PrintBegin( "Factura", .F., .T., , .T. ) Yo no estoy muy ducho en esto de las clases y escribo todo como los ejemplos que trae FWH. De momento seguiré ...

Prueba de esta forma: IF GetPrintDefault(GetActiveWindow())<>0 oPrn:=PrintBegin("",.F.,,,.T.) oPrn:SetPage(1) PrintEnd() ELSE MsgAlert("Configure una impresora como predeterminada"+CRLF+ ; "o no podrá visualizar los reportes.","Precaución!") ENDIF Saludos.