Imprimir una linea con varias fuentes. - SOLUCIONADO

[Garbi]

Hola,

Necesito imprimir una parte de una alinea en negrita (el codigo), y la siguiente parte (concepto) normal, he estado haciendo pruebas y revisando el foro, pero no consigo hacerlo pongo la linea que necesito imprimir.

oPrn:cmSay( linea,3.6,memoline(alltrim((cpptod)->codigo)+" - "+alltrim((cpptod)->concepto),nlongitudlineat,nlineactualt),oFont)

He intentado esto :
Imprimir el codigo :

oPrn:cmSay( linea,3.6,alltrim((cpptod)->codigo),oFontnegrita)

Averiguar el ancho con

nsize:=oPrn:GetTextWidth(alltrim((cpptod)->codigo),oFontnegrita)

pero me lo da en pixeles y lo paso a cm así :

nancho:=oPrn:Cmtr2Pix(nsize, 0)

y despues imprimo la linea normal :

oPrn:cmSay( linea,3.6+nancho[1]," - "+alltrim((cpptod)->concepto),nlongitudlineat,nlineactualt,oFont)

Pero me da error, no consigo hacerlo.

¿Alguna sugerencia?

Muchas gracias

[cmsoft]

Puedes hacerlo cambiando de font, pero en un ancho en CM fijo

Code: Select all  Expand view

@ 5.5, 1   PRINT TO oPrn TEXT "C.U.I.T.:"  SIZE 3,.5 CM FONT oFont3 ALIGN "R" //Ancho de 3 cm x 0.5 cm de alto alineado a la derecha
@ 5.5, 4.1 PRINT TO oPrn TEXT oQryVen1:cuit SIZE 6,.5 CM FONT oFont ALIGN "L" //Ancho de 6 cm x 0.5 cm de alto alineado a la izquierda
 

Espero te de una pista

[Garbi]

Eso lo he probado, pero el inconveniente es que el código es variable, pueden contener un carácter o varios y a la hora de imprimirse no queda bien. no me acaba de convencer.

No creo que sea muy difícil saber lo que ocupa el código impreso en negrita para sumarlo al largo de la continuación del código (concepto) pero no consigo sacarlo.

Gracias.

[karinha]

Buen dia. Haga un ejemplo simples, más completo para testes, evite publicar fragmentos de programas, no hay forma de probar fragmentos de programas.

Regards, saludos.

[Garbi]

Asi lo he solucionado :

Code: Select all  Expand view

               if fv =="oFont" .and. nlineactualt = 1 .and. (!empty((cpptod)->codigo) .or. !empty((cpptod)->concepto))
                   ncolcm:=0
                   oPrn:cmSay( linea,3.6,alltrim((cpptod)->codigo),ofontnegrita)
                   nsize:=oPrn:GetTextWidth(alltrim((cpptod)->codigo),oFontnegrita)
                   ncolmm:= nsize * 25.4 / oPrn:nLogPixelX() // convierto los pixeles en mm
                   ncolcm := ncolmm/10 // convierto los mm en cm.
                   oPrn:cmSay( linea,3.6+ncolcm,memoline(" - "+alltrim((cpptod)->concepto),nlongitudlineat,nlineactualt),oFont)
               elseif  (!empty((cpptod)->codigo) .or. !empty((cpptod)->concepto))
                   oPrn:cmSay( linea,3.6,memoline(alltrim((cpptod)->codigo)+" - "+alltrim((cpptod)->concepto),nlongitudlineat,nlineactualt),&(fv))
               else
                   oPrn:cmSay( linea,3.6,memoline(alltrim((cpptod)->codigo)+alltrim((cpptod)->concepto),nlongitudlineat,nlineactualt),&(fv))
               endif