tPrinter en vertical

Post Reply
User avatar
fullpaint
Posts: 9
Joined: Tue May 23, 2006 10:05 pm
Contact:

tPrinter en vertical

Post by fullpaint »

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.
Eduardo Rizzolo

Eldorado Misiones Argentina
fullpaint@pinturas-misioneras.com.ar
Secundario:fullpaint@gmail.com
Grupo PuertoSUR
Telegram.@Fullpaint
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: tPrinter en vertical

Post by cnavarro »

C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
fullpaint
Posts: 9
Joined: Tue May 23, 2006 10:05 pm
Contact:

Re: tPrinter en vertical

Post by fullpaint »

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
Eduardo Rizzolo

Eldorado Misiones Argentina
fullpaint@pinturas-misioneras.com.ar
Secundario:fullpaint@gmail.com
Grupo PuertoSUR
Telegram.@Fullpaint
VitalJavier
Posts: 188
Joined: Mon Jun 10, 2013 6:40 pm

Re: tPrinter en vertical

Post by VitalJavier »

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
User avatar
fullpaint
Posts: 9
Joined: Tue May 23, 2006 10:05 pm
Contact:

Re: tPrinter en vertical

Post by fullpaint »

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
Eduardo Rizzolo

Eldorado Misiones Argentina
fullpaint@pinturas-misioneras.com.ar
Secundario:fullpaint@gmail.com
Grupo PuertoSUR
Telegram.@Fullpaint
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: tPrinter en vertical

Post by karinha »

Holá, en la configuración de la impresora, tién el rotation=“Left” ?
João Santos - São Paulo - Brasil
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: tPrinter en vertical

Post by karinha »

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

Saludos.
João Santos - São Paulo - Brasil
VitalJavier
Posts: 188
Joined: Mon Jun 10, 2013 6:40 pm

Re: tPrinter en vertical

Post by VitalJavier »

En las preferencias de impresion
Este es un ejemplo de la impresora que tengo.

Image
[/img]
User avatar
fullpaint
Posts: 9
Joined: Tue May 23, 2006 10:05 pm
Contact:

Re: tPrinter en vertical

Post by fullpaint »

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.
Eduardo Rizzolo

Eldorado Misiones Argentina
fullpaint@pinturas-misioneras.com.ar
Secundario:fullpaint@gmail.com
Grupo PuertoSUR
Telegram.@Fullpaint
VitalJavier
Posts: 188
Joined: Mon Jun 10, 2013 6:40 pm

Re: tPrinter en vertical

Post by VitalJavier »

Haber si te sirve

Code: Select all

FUNCTION PRUEBA_BARRAS_VERTICAL
    LOCAL Ren_ := 1
    PRIVATE nAncho := 0.7, nAlto := 0.02    
    PRINT oPrn TITLE "PRUEBA VERTICAL" PREVIEW
        Define Font Let2 Name "TAHOMA" Size 0,10 OF oPrn NESCAPEMENT 900  // Esta es la letra vertical
        PAGE
            c_Code128( Ren_,1.0, "A12311231", oPrn,,,.F.,nAlto,nAncho)  
            Ren_ += 0.6
            oPrn:CmSay(Ren_+2,2, "Ejemplo Vertical----",Let2)           
        ENDPAGE
    ENDPRINT
RETURN .T.
 
Image
[/img]
User avatar
fullpaint
Posts: 9
Joined: Tue May 23, 2006 10:05 pm
Contact:

Re: tPrinter en vertical

Post by fullpaint »

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

Eldorado Misiones Argentina
fullpaint@pinturas-misioneras.com.ar
Secundario:fullpaint@gmail.com
Grupo PuertoSUR
Telegram.@Fullpaint
User avatar
fullpaint
Posts: 9
Joined: Tue May 23, 2006 10:05 pm
Contact:

Re: tPrinter en vertical

Post by fullpaint »

funciona perfectamente...

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

Mil gracias
Eduardo Rizzolo

Eldorado Misiones Argentina
fullpaint@pinturas-misioneras.com.ar
Secundario:fullpaint@gmail.com
Grupo PuertoSUR
Telegram.@Fullpaint
Post Reply