Disculpa las molestias.
Este es tu ejemplo y verás que no funciona del todo bien.
Si pones 2 &, imprime 1 y si ponere 3 & tambien imprime 1, si pones 4 imprime 2.
// C:\FWH..\SAMPLES\DARIOF.PRG
#include "fivewin.ch"
function Main()
local oPrn, oPen, oPen2, oFont, oFontV, oFontS, oFont14V, oBrush
local cSyntax := "Synt&&ax& : &" + CRLF + ;
"RoundBox( nTop, nLeft, nBottom, nRight, nRndW, nRndH, oPen, onBack, aText, cUnits )"
local cText := "aText :" + CRLF + "{ cText, oFont, nClrText, [cAlign] }"
LOCAL ctitulo9
cTitulo7 := " Gancedo & Asociados S.R.L." // FUNCIONA MUESTRA 1 &
cTitulo8 := " Gancedo && Asociados S.R.L." // FUNCIONA MUESTRA 2 &
ctitulo9 := "Gancedo && Asociados S.R.L."
DEFINE BRUSH oBrush FILE "c:\fwh1905\bitmaps\backgrnd\browback.bmp"
PRINT oPrn PREVIEW
// PRINT oPrn FILE "DARIOF.pdf"
DEFINE PEN oPen WIDTH 3 COLOR CLR_HRED OF oPrn
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_BLACK OF oPrn
DEFINE FONT oFontS NAME "ARIAL" SIZE 0,-12 OF oPrn
DEFINE FONT oFont NAME "ARIAL" SIZE 0,-20 OF oPrn
// ASI, NO GENERA EL DARIOF.PDF EL ARCHIVO RETORNA VACIO.
/*
DEFINE FONT oFontV NAME "ARIAL" SIZE 0,-20 BOLD NESCAPEMENT 900 OF oPrn
DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn
*/
DEFINE FONT oFontV NAME "ARIAL" SIZE 0,-20 BOLD OF oPrn
DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn
PAGE
// NO FUNCIONA TIENE MAS SIGNOS DE &
// FUNCIONA
oPrn:RoundBox( 1.0, 1.0, 2.0, 7.5, 0.4, 0.4, oPen, CLR_YELLOW, ;
{ "HORI&&ZONTAL&" + CRLF + "otro & texto &&7, prueba&&&&&" , { oFont, oFontS }, CLR_HRED }, "INCHES" )
/* // AQUI, genera error y no genera el PDF.
oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY, ;
{ "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )
*/
// NO FUNCIONA CUANDO TIENE UN SIGNO &
// SIN EL NESCAPEMENT FUNCIONA BIEN.
oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY, ;
{ "VERTICAL&" + CRLF + "TEXT&&", oFontV, CLR_YELLOW }, "INCHES" )
/* // AQUI, genera error y no genera el PDF.
oPrn:RoundBox( 5.9, 1.5, 7.1, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
{ "Faturas", oFont14V, CLR_BLACK }, "INCHES" )
*/
/* // AQUI, genera error y no genera el PDF.
oPrn:RoundBox( 7.1, 1.5, 8.3, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
{ "Cálculo&" + CRLF + "Impo&sto", oFont14V, CLR_BLACK }, "INCHES" )
*/
/* // AQUI, genera error y no genera el PDF.
oPrn:RoundBox( 8.3, 1.5, 10.2, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
{ "Transportador", oFont14V, CLR_BLACK }, "INCHES" )
*/
// NO FUNCIONA cSyntax tiene mas &
// FUNCIONA
oPrn:RoundBox( 2.2, 3.0, 4.2, 7.5, 0.3, 0.3, oPen, oBrush, ;
{ cSyntax, oFont, CLR_BLACK }, "INCHES" )
// FUNCIONA
oPrn:RoundBox( 4.4, 3.0, 5.9, 7.5, 0.3, 0.3, oPen, CLR_WHITE, ;
{ cText, oFont, CLR_BLACK }, "INCHES" )
// FUNCIONA
oPrn:RoundBox( 1, 1, 5, 5, .5, .5, { CLR_HRED, 3 }, oBrush, ;
{ "FIRST" + CRLF + "SECOND", oFont, CLR_BLACK, "B" }, ;
"INCHES" )
// SI Y NO, FUNCIONA PERO TIENE 2 SIGNOS && // FUNCIONA
// CUANDO TIENE UN SIGNO DE & NO FUNCIONA
oPrn:RoundBox( 1, 7.8, 1.8 , 15.50, 0.5,0.5, oPen, { CLR_WHITE, 3 }, ;
{ cTitulo9, oFont, CLR_BLACK }, "CM" )
//FUNCIONA CORRECTAMENTE Y SE VE EXACTAMENTE LO MISMO AL GENERAR EL PDF
oPrn:Say( 20, 15.5, cTitulo7 , oFont, 15, nil, nil, 1, "CM" )
oPrn:Say( 21, 15.5, cTitulo8 , oFont, 15, nil, nil, 1, "CM" )
ENDPAGE
ENDPRINT
oFontV:End()
oFontS:End()
oFont14V:End()
oBrush:End()
RETURN NIL
// fin / end
