FiveTech 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