Impresion resaltada

[Santiago]

Estimados

Tengo el siguiente inconveniente, quiero imprimir en una línea un texto y quiero resaltar una palabra del mismo.Cómo lo puedo solucionar ?

Gracias

[Santiago]

Transcribo las instrucciones en las que quiero que la palabra "impresion" salga en negrita en una impresora epson pero no logro el efecto. Necesito si alguien me puede dar una mano.


function Main()

local oPrn, oFont
local nRow := 0, nCol := 0, n, m
local Negrita,Normal

PRINT oPrn NAME "XX"

DEFINE FONT oFont NAME "Arial" SIZE 0, -20 OF oPrn

Negrita:= Chr(27)+Chr(69)
Normal:=Chr(27)+Chr(70)

PAGE

oPrn:Say(nRow,Ncol, 'Mi primer '+NEGRITA+'impresion'+NORMAL,oFont)

ENDPAGE

ENDPRINT

oFont:End()

return nil

[wmormar]

Transcribo las instrucciones en las que quiero que la palabra "impresion" salga en negrita en una impresora epson pero no logro el efecto. Necesito si alguien me puede dar una mano.


function Main()

local oPrn, oFont
local nRow := 0, nCol := 0, n, m
local Negrita,Normal

PRINT oPrn NAME "XX"

DEFINE FONT oFont NAME "Arial" SIZE 0, -20 OF oPrn

Negrita:= Chr(27)+Chr(69)
Normal:=Chr(27)+Chr(70)

PAGE

oPrn:Say(nRow,Ncol, 'Mi primer '+NEGRITA+'impresion'+NORMAL,oFont)

ENDPAGE

ENDPRINT

oFont:End()

return nil

Prueba de esta manera

Code: Select all  Expand view

function Main()

   local oPrn, oFont1,oFont2
   local nRow := 0, nCol := 0, n, m
   local Negrita,Normal

   PRINT oPrn NAME "XX"

   DEFINE FONT oFont1 NAME "Arial" SIZE 0, -20 OF oPrn
   DEFINE FONT oFont2 NAME "Arial" BOLD SIZE 0, -20 OF oPrn

   PAGE

oPrn:Say(nRow,Ncol, 'Mi primer',oFont1)
oPrn:Say(nRow,Ncol+10, 'impresion',oFont2)
 
   ENDPAGE

   ENDPRINT

   oFont:End()     

return nil