... or less): ndummyaltura := ( ::oPrn:CmVertPhySize() / 2 ) + ( ::oPrn:CmtrGetTextWidth( AllTrim( ::oTDbfDatAmp:REGMER ), ::oFnt_Arial6V ) / 2 ) UTILPRN ::oUtil ndummyaltura, 0.5 ; SAY AllTrim(::oTDbfDatAmp:REGMER) FONT ::oFnt_Arial6V COLOR CLR_BLACK I want to center the text at half height of ...
... or less): ndummyaltura := ( ::oPrn:CmVertPhySize() / 2 ) + ( ::oPrn:CmtrGetTextWidth( AllTrim( ::oTDbfDatAmp:REGMER ), ::oFnt_Arial6V ) / 2 ) UTILPRN ::oUtil ndummyaltura, 0.5 ; SAY AllTrim(::oTDbfDatAmp:REGMER) FONT ::oFnt_Arial6V COLOR CLR_BLACK I want to center the text at half height of ...
... & (Dario & Dario), // También probé con chr(38) ... No lo puedo imprimir, me imprime _ (linea baja) Saludos Gracias (Usando la utilidad Utilprn de TheFull no tenía problema, pero estoy tratando de dejar de usar utilidades de terceros) Ruben Dario Fernandez
... caso, si han tenido problemas o errores como estos: Stack Calls =========== Called from: => ABS( 0 ) Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => ROUNDRECT( 0 ) Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => TUTILPRN:BOX( 0 ) Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg ...
Olá, Utilizo a TImprime e a UtilPrn, ótimas classes. Para gerar código de barras com elas e a barlib do caetano, faço assim: ::Salto() aCoord := ::oPrn:Cmtr2Pix( ::nLinea, 1.00 ) INT25( aCoord[ 1 ], aCoord[2], AllTrim( cCodigo_Barra ), ...
Lo solucione instalando el font code128 y usando de la siguiente manera: Define Font oFC128 name 'CODE 128' size 0,-14 of oPr UTILPRN oUtils nLinea,nColum+12 SAY oDBCheq:Barra FONT oFC128 La única contra de esto es que se debe instalar en cada maquina del cliente dicho font. Espero ...