FiveTech Support Forums

Hola muy buenas saludos a todos hace tiempo q no participo.

favor si me pueden dar una mano para resolver.
Uso tPrinter con fwh (2.5) y xh (1.00).
Hice un código hace como 10 años.
Pero me piden una modificación usando BARLIB imprimir códigos de barra.
lo q me piden es q imprima VERTICAL, estoy imprimiendo horizontal.

Bien el CB le puse una clausula "Vertical" y solucionado.
Pero no encuentro como imprimir VERTICA las palabras con tPrinter. Hay alguna forma?

oPrn:cmsay(nArriba+.2, nIzq+2, ;
left(cCod,4) ,oFont3 ,, CLR_BLACK,,PAD_LEFT)
Asi me imprime horizontal, hay alguna forma para q me imprima vertical?

Desde ya mil gracias

Eduardo Rizzolo
fullpaint

PD:
El codigo de ejemplo es el siguiente:

func ImpCB()
local oPrn
local oFont
local oFont1
local oFont2
local oFont3

local nArriba := 0
local nIzq := .5
local nAbajo := 0
local nDerecha := 0
local nRen
local nCodeLeft2 := 4.5
local cCod := "1234"

PRINTER oPrn PREVIEW

DEFINE FONT oFont  NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn
DEFINE FONT oFont1 NAME "TIME NEW ROMAN" SIZE 0,-58 OF oPrn
DEFINE FONT oFont2 NAME "TIME NEW ROMAN" SIZE 0,-7 OF oPrn
DEFINE FONT oFont3  NAME "TIME NEW ROMAN" SIZE 0,-16 OF oPrn



page

cCod += "999"

xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
    @ xCor[1], xCor[2]  ean8 cCod of oPrn    SIZE 0.8  Vertical // WIDTH   0.04


oPrn:cmsay(nArriba+.2, nIzq+2,   ;
            left(cCod,4) ,oFont3 ,, CLR_BLACK,,PAD_LEFT)


// 2do CB
xCor := oPrn:Cmtr2Pix(nArriba,nIzq+ nCodeLeft2)

@ xCor[1], xCor[2]  ean8 cCod of oPrn    SIZE 0.8  // WIDTH   0.03 // WIDTH   0.025


endpage


oFont:end()
oFont1:end()
oFont2:end()


endprint

return .T.

Look

viewtopic.php?f=3t=32365p=189940hilit=nescapement#p189940

&&&

Hola muy buenas. gracias por responder.
Por ahi no me esprese bien necesito IMPRIMIR en una IMPRESORO de Codigos de Barra.
Pero eso no es dificil, el problema es q tengo q cambiar la HORIENTACION de la impresion esta en HORIZONTAL y pasar a VERTICAL la IMPRESION

Esta es la muestra de lo que sale, pero necesito que salga VERTICAL.

https://lh3.googleusercontent.com/t__6m ... 5TQHM=s170

Hice un intento con el codigo de muestra :

http://prntscr.com/v15x1n

El CB cambio bien a VERTICAL, pero el 1234 que es el codigo no logro poder escribir en VERTICAL, o no encuentro como.
Si alguien sabe u otro metodo?

http://prntscr.com/v15ywy

mil gracias

Edu

Edu, buen dia
No seria mas fácil que lo hicieras desde las características de la impresora
Yo tengo unos códigos de barras y solo configure la impresora y adapte la impresión

hola VitalJavier

A q te referis "desde las características"?
La verdad es q no tengo la impresora cerca, esta a 200 km y este modelo nunca lo tuve cerca, hice los ajustes a la misma impresion, antes hacia lo mismo pero en planchas de A4 cuando usabamos Impresoras Laser, luego ajuste la impresion para 2 lineas en vez de 5 para A4.
Y hace mas de 10 años q uso con la BARCODE sin problemas, hasta que me piden ahora impresion Vertical, pq compraron una etiqueteadora semi automatica q pone la etiqueta y el CB si mal no entendi en 2 paso. Dira para un lado pone etiqueta, gira para el otro y pone el CB. Este CB ahora tiene q ir VERTICAL cortan como una tira larga y la aplica la maquina esta en vez de un operador y por la diposicion quedaria mal al colocar como esta ahora impresos los CBs.

Favor me podes tirar una idea mas clara de q puedo hacer?
Vi que viene un tipo programa para hacer un diseño manual de cada itiqueta con su CB, pero es una opcion muy mala, salvo q tenga pocos codigos.
Aqui tenemos muchos productos y distintos tamaños, no es una opcion el diseño uno por uno y mandar a la IMPRESION.
Desde el sistema acediendo al MYSQL (MariaDB ahora) selecciona el ART por busqueda, indica cual y cantidad a imprimir mas un codigo de fabricacion para saber si hay un reclamo que partida es y ver la contra muestra que tiene control de calidad...
Digamos q ese aplicativo lindo, no es una opcion...

Bueno espero puedas darme una mano.

Mil gracias

Holá, en la configuración de la impresora, tién el rotation=“Left” ?

También intente generar el código de barras, con el patrón: CODE128.

Saludos.

Hola
Estoy pensado que si como tu indicas y giro la imagen
me giraria los dos CBs juntos pq salen 2 CB en linea HORIZONTAL

CB         CB

Quedaria mal lo mismo pq tengo q girar cada una 90%
Aun asi aca te muestro la impresion para q veas mi problema:

http://prntscr.com/v2kcae
Se imprimen usando pruebas de 4 CB con cada orientación q permite el SOFT de la impresora de CB...

Configuracion del Driver de IMPRESION:

http://prntscr.com/v2kmqh

Esta son las pruebas que estoy haciendo:

http://prntscr.com/v2kgsk

Desde ya si se te ocurre otra idea, aun no logro imprimir vertical palabras...

Gracias

PD: Codigo de prueba:
func ImpCB()
local oPrn
local oFont
local oFont1
local oFont2
local oFont3

local nArriba := 0
local nIzq := .5
local nAbajo := 0
local nDerecha := 0
local nRen
local nCodeLeft2 := 4.5
local cCod := "1234"

PRINTER oPrn PREVIEW

DEFINE FONT oFont  NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn
DEFINE FONT oFont1 NAME "TIME NEW ROMAN" SIZE 0,-58 OF oPrn
DEFINE FONT oFont2 NAME "TIME NEW ROMAN" SIZE 0,-7 OF oPrn
DEFINE FONT oFont3  NAME "TIME NEW ROMAN" SIZE 0,-16 OF oPrn



page

cCod += "999"

xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
    @ xCor[1], xCor[2]  ean8 cCod of oPrn    SIZE 0.8  Vertical // WIDTH   0.04


oPrn:cmsay(nArriba+.2, nIzq+2,   ;
            left(cCod,4) ,oFont3 ,, CLR_BLACK,,PAD_LEFT)


// 2do CB
xCor := oPrn:Cmtr2Pix(nArriba,nIzq+ nCodeLeft2)

@ xCor[1], xCor[2]  ean8 cCod of oPrn    SIZE 0.8  // WIDTH   0.03 // WIDTH   0.025


endpage


oFont:end()
oFont1:end()
oFont2:end()


endprint

return .T.

hola mil gracias voy a probar como sale...!!

funciona perfectamente...

http://prntscr.com/v374dz
No se como haces para pegar la foto aqui, asi q sigo colocando en la web...?

Mil gracias