FiveTech Software tech support forums

... Define Font oFont Name "Arial" Size 0,-14 of oPrn oPrn:lUseHaruPDF := TRUE Page oPrn:InchSay( 1,1, "Hello World", oFont,,,,, ) Endpage EndPrint Return nil When I run this the second time I get: Error description: Error BASE/1005 Message not found: FWPDF:_LUSEHARUPDF Args: [ ...

Hi to all I have a print PRINT oPrn NAME "My Print" PREVIEW PAGE WHILE !EOF() some instruction like Prn:Say( nRow, nCol , bla bla ) ENDPAGE PAGE ENDDO ENDPAGE ENDPRINT I need some hints about the possibility to save the print into rtf for or doc You know for instance when you have a ...

... + ALLTRIM(str(oRechnung:nRgNR()))+"_"+ ALLTRIM(str(nFor))+".emf", .F.)        DeleteEnhMetafile(hMeta)EndPage(oDevice:hDC) The code snippet you provided appears to be written in a language similar to Harbour or xBase, used for database applications. ...

... in a print using for instance PRINT oPrn NAME "My Print" PREVIEW PAGE WHILE !EOF() some instruction like Prn:Say( nRow, nCol , bla bla ) ENDPAGE PAGE ENDDO ENDPAGE ENDPRINT does exist a clause that permits me to run the function without print anything only for calculate number of pages ...

... if DetVtaF->TipoDoc#2 nTotCli += DetVtaF->TotVenta ..... endif if prow > nRowStep*55 oPrn:Line(pRow ,ncolStep,pRow,ncolstep*77) EndPage Page PROW:=0 if prow == 0 prow+=nrowstep oPrn:Say(prow, pcol*4 ,'Fecha de Emisión: ' + dtoc( date() ),oCour_n_10) ..... prow+=nrowstep*1.5 endif ...

Muchas gracias João. El uso de page y endpage me permite que le impresora imprima linea a linea sin esperar al resto de lo que se vaya a imprimir.
Un saludo

... nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Say( nRow, nCol, ' ' ) nRow ++ oPrn:Endpage() //este es el grupo de comandos especificos para corte de papel oprn:Startpage() oprn:command("27","64" ) oprn:command("27","105" ...

Si todavía recuerdo esto: REVISE SU CÓDIGO, DEBE TENER UN BUCLE ETERNO DENTRO DE LA PÁGINA ... STARTPAGE, O DUPLICAR ENDPAGE. o llamando a ENDPRINT sin terminar con EndPage () (abrió una página con StartPage () y no se cerró con EndPage (), llamado ENDPRINT directamente). // If I ...

Si todavía recuerdo esto: REVISE SU CÓDIGO, DEBE TENER UN BUCLE ETERNO DENTRO DE LA PÁGINA ... STARTPAGE, O DUPLICAR ENDPAGE. o llamando a ENDPRINT sin terminar con EndPage () (abrió una página con StartPage () y no se cerró con EndPage (), llamado ENDPRINT directamente). // If I ...

no llames al oPrn:EndPage() al final solo cuando llames al encabezado del reporte Saludos artu01. Podrias explicarme el punto por favor? Quizás haya algo que no he visto. La impresion es de una factura sobre un rollo continuo de papel, ...

artu01 wrote:no llames al oPrn:EndPage() al final solo cuando llames al encabezado del reporte

És más fácil con un pequeño ejemplo, tiens? Podrias poner algo?

Muchas gracias.

Regards, saludos.

no llames al oPrn:EndPage() al final solo cuando llames al encabezado del reporte

... nRow+=nRowStep //..Genera QR llamando a TcodeBars ) BuildQR(oPrn, nRow,nMargen ,cCodBar ) // cCodbar trae la data a incluir en el QR ENDPAGE ENDPRINT //............................................ FUNCTION BuildQR( oPrn ,nRow,nCol,cCode ) local nFlags := 0 local nCode := 14 // codigo ...

En algunas que he probado, el corte de papel (si la impresora tiene) lo hace al hacer endpage

... ):Value ) Function ImprimirFoto(wfoto) PRINT oPrn PREVIEW MODAL PAGE oPrn:SayImage(0,0, wfoto, oPrn:nHorzRes(), oPrn:nVertRes() , nil, .t. ) ENDPAGE ENDPRINT retu .t. No da error, pero muestra una hoja en blanco. Saludos Jorge