tPrinter en vertical

[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.

[cnavarro]

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

[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

[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

[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

[karinha]

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

[karinha]

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

Saludos.

[VitalJavier]

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

[img]

[/img]

[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.

[VitalJavier]

Haber si te sirve

Code: Select all  Expand view

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.
 

[img]

[/img]

[fullpaint]

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

[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