PC Toledo

Como substituir, sem ter fazer este teste, somente a constante HpdfPrint por Print?

If lPdf
   @ nLin, 200 HpdfPrint [Página: ] + Ltrim(Strzero(nPag, 5)) font "arial" size 8 RIGHT
Else
   @ nLin, 200 Print     [Página: ] + Ltrim(Strzero(nPag, 5)) font "arial" size 8 RIGHT
Endif

Att.

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®

http://marcelo.lx.com.br
http://www.marazambon.blogspot.com/
Email / Skype: malcarli@life.com.br

Complicado, dá uma olhada no que eles traduzem.

À primeira vista, criar um terceiro.
Mais ou menos isto:

Código: Selecionar todos

#command PRINTREL <lin>, <col> <expr> FONT <cFont> SIZE <nSize> <alignment> =>
@ nLin, 200 HpdfPrint [Página: ] + Ltrim(Strzero(nPag, 5)) font "arial" size 8 RIGHT

PRINTREL nLin, 200 cText FONT cFont SIZE nSize RIGHT

FUNCTION PrintRel( nLin, 200, cText, cFont, nSize, cAlignment )

   IF lPDF
      @ nLin, 200 HpdfPrint cText font cFont size nSize cAligment )
   ELSE
     @ nLin, 200 Print cText font cFont Size nSize cAligment )
   ENDIF

   RETURN NIL

PC Toledo

HpdfPrint x Print

HpdfPrint x Print

HpdfPrint x Print