Clipper/FiveWin - impresion resaltada en FW

 
Vista:

impresion resaltada en FW

Publicado por santiago (3 intervenciones) el 30/07/2007 18:24:17
Estimados,

Tengo que imprimir en una linea de un texto, una palabra en forma resaltada. Cómo lo puedo hacer ?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:impresion resaltada en FW

Publicado por santago (3 intervenciones) el 30/07/2007 20:57:59
Es Clipper 5.2e + FW2.4

Lo que quiero hacer es por ejemplo, imprimir la siguiente linea donde la palabra ("impresion") quiero que esté resaltada.

MI PRIMER LINEA DE IMPRESION

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:impresion resaltada en FW

Publicado por Ruben Francisco Mucino Gutierr (14 intervenciones) el 30/07/2007 21:20:59
EN CLIPPER
ES:
SET PRINTER ON
SET DEVICE TO PRINT

@01,05 SAY "MI PRIMERA LINEA DE IMPRESION"
@01,05 SAY "MI PRIMERA LINEA DE IMPRESION"

Y EN FW DEBES USAR:

DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-7
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:impresion resaltada en FW

Publicado por santiago (3 intervenciones) el 30/07/2007 21:46:18
Ruben, solamente necesito imprimir resaltado la palabra IMPRESION y no toda la linea. Intenté con secuencias de escape y no logro el efecto. Transcribo lo que hice.

function Main()

local oPrn, oFont
local nRow := 0, nCol := 0
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 linea de'+NEGRITA+'Impresion'+NORMAL,oFont)

ENDPAGE

ENDPRINT

oFont:End()

return nil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar