Impresion de TEXTO en Horizontal.

[Nemo22]

Hola a todo el Foro, tengo un problema. Espero me puedan ayudar.

Quiero Imprimir TEXTO en forma Horizontal y Vertical al mismo Tiempo Ejemplo


Ejemplo poner lo siguiente:

C C 1
A O 0
ARTICULO: XXXXXXX J N
Descripcion :XXXXXXXXXXXXXX A P
Z
A

que lo hago de forma normal:

oPrinter:CmSay( 010.300, 001, "ARTICULO:"+ARITUCULO->Clave_Art, oFont)

En lo Vertical no tengo problema. pero Quiero imprimir una leyenda en Horizontal

"CAJA CON 10 PZA" pero en Horizontal como lo hago con el CMSAY()

Saludos

[Nemo22]

Bueno Foro creo que ya lo resolvi, Navegando por el Foro encontre la solucion: pero en el foro en Ingles les paso la receta

Para imprimir en Forma Vertical y Horizontal en la Misma hoja :

Primero Definimos Nuestro Tipo de Letra con DEFINE incrementando NESCAPEMENT -900 para la impresion en HORIZONTAL solo para este tipo de Letra

DEFINE FONT oFntH NAME "Arial" SIZE 0, 45 BOLD NESCAPEMENT -900 OF oPrn // Font Horizontal
DEFINE FONT oFonV NAME "Arial" SIZE 0, 45 BOLD OF oPrn // Font Vertical

y Formamos la Estructura de nuestro reporte de Forma Normal el Truco esta en el NESCAPEMENT, Nuestro Programa quedara Asi

FUNCTION MAIN
LOCAL oPrn, oFontH , oFontV, cTitle := "Impresion Horizontal y Vertical"

PRINT oPrn NAME cTitle PREVIEW MODAL
DEFINE FONT oFontH NAME "Arial" SIZE 0, 20 BOLD NESCAPEMENT -900 OF oPrn // Fuente para el Estilo Horizontal
DEFINE FONT oFontV NAME "Arial" SIZE 0, 20 BOLD oF oPrn // Fuente para el Estilo Vertical

PAGE
oPrn:CmSay(05, 05, "HORIZONTAL", oFontH)
oPrn:CmSay(10, 15, "VERTICAL 1", oFontV)
ENDPAGE
ENDPRINT

oFontH:End()
oFontV:End()
RETURN nil

Espero y les sirva porque yo si batalle para poder hacerlo

Saludos FORO