FiveTech Software tech support forums

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

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