Modificada CLASSE TPRINTER

[edutraini]

Pessoal alguem teria a rotina para imprimir etiqueta com codigo de barra nesse modelo de impressora

FW24 + xharbour

email :edutraini@uol.com.br

[edutraini]

Pessoal alguem teria a rotina para imprimir etiqueta com codigo de barra nesse modelo de impressora

FW24 + xharbour

email :edutraini@uol.com.br

[Geo_sts]

Bom dia Edu

Eu criei a rotina pelo previw32 e uso até hj, se tui quizer te passo a rotina.

abraço.

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

[edutraini]

gostaria sim

edutraini@uol.com.br

FW24 + xharbour

email :edutraini@uol.com.br

[Geo_sts]

mandei para o seu email!

abç.

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

[CleitonSH]

Geovanni esta rotina sua imprime na porta USB ou LPT?

O que tenho aqui pra esta impressora é só utilizando LPT.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

[evertonlb]

Edu.. tenho as rotinas que usso em Clipper, se quizer te envio elas tambem!

Everton - Chapecó-SC

XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS

[CleitonSH]

Geovanni, tem como me enviar também pra eu testar na porta USB?

citação:

Bom dia Edu

Eu criei a rotina pelo previw32 e uso até hj, se tui quizer te passo a rotina.

abraço.

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

---

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

[Geo_sts]

MANDEI CLEITON!

ABRAÇO

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

[CleitonSH]

Valeu !

citação:

MANDEI CLEITON!

ABRAÇO

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

---

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

[Decker]

Ola amigos....

Seria possivel enviar essa rotina para mim.

Impressao em Argox por usb e lpt1.

e-mail: celeyendecker@hotmail.com

Agradeço desde ja...

Abraços.

Decker

celeyendecker@hotmail.com

São Paulo - S.P.

FWH 6.12 Free - xHarbour - BCC55 - Pelles C - xDev

[oribeiro]

// Imprime os textos da etiqueta na "ARGOX" //

// CHR(002)+"L"+CHR(13) = Comando de entrada do formato da etiqueta

// Formato Texto:

// 1.2.1.1.000.0100.0050, onde:

// 1 = Orientação da etiqueta

// 2 = Fonte (0-8 com Subtipo 000 /ou/ 9 com Subtipo de 000 a 007 /ou/ : com subtipo 000 a 005)

// 1 = Multiplicador Horizontal

// 1 = Multiplicador Vertical

// 000 = Subtipo da Fonte (000 a 007, depende da Fonte) - Quanto maior o número maior a fonte.

// 0100 = Posição inicial Y (linha) máximo=101.6

// 0050 = Posição inicial X (coluna) máximo=762

// Exemplo: = oPrn:Say(1,1,CHR(002)+"L"+CHR(13)+"121100001000050"+"Esta é uma etiqueta teste"+CHR(13)+"E"+CHR(13))

//

// Formato CodBar:

// 1.2.1.1.000.0100.0050, onde:

// 1 = Orientação da etiqueta

// 2 = Tipo da Barra EAN13, 2-5

// 1 = Largura da Barra Largua

// 1 = Largura da Barra Fina

// 000 = Altura do Código de Barras

// 0100 = Posição inicial Y (linha) máximo=101.6

// 0050 = Posição inicial X (coluna) máximo=762

// msginfo(cLin1+chr(13)+cLin2+chr(13)+cLin3+chr(13)+cLin4+chr(13)+cLin5+chr(13), cBar)

IF Left(cEtqMod,1) == "A" // => ( 50 x 25 x 2 )

contador++ // Contador das (duas) Etiquetas na linha

if contador=1

oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta

oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade

oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade

oPrn:Say(1, 1, "1X1100300780010L200018" ) // Negrito

oPrn:Say(1, 1, "131100000780030"+cLin1+CHR(13) ) // nome da empresa

oPrn:Say(1, 1, "141100000560030"+cLin2+CHR(13) ) // valor

// oPrn:Say(1, 1, "121100000540030"+cLin3+CHR(13) ) // codigo

oPrn:Say(1, 1, "121100000420030"+cLin4+CHR(13) ) // descricao1

oPrn:Say(1, 1, "121100000320030"+cLin5+CHR(13) ) // descricao2

oPrn:Say(1, 1, "1"+cTipBar+"5201800000030"+cBar +CHR(13) ) // Código de Barras

elseif contador=2

oPrn:Say(1, 1, "1X1100300780220L200018" ) // Negrito

oPrn:Say(1, 1, "131100000780240"+cLin1+CHR(13) ) // nome da empresa

oPrn:Say(1, 1, "141100000560240"+cLin2+CHR(13) ) // valor

// oPrn:Say(1, 1, "121100000540240"+cLin3+CHR(13) ) // codigo

oPrn:Say(1, 1, "121100000420240"+cLin4+CHR(13) ) // descricao1

oPrn:Say(1, 1, "121100000320240"+cLin5+CHR(13) ) // descricao2

oPrn:Say(1, 1, "1"+cTipBar+"5201800000240"+cBar +CHR(13) ) // Código de Barras

oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta

contador = 0

endif

ELSEIF Left(cEtqMod,1) == "B" // => ( 80 x 35 x 1 )

oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta

oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade

oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade

// oPrn:Say(1, 1, "1X1100500950010L200018" ) // Negrito

// oPrn:Say(1, 1, "131100000950050"+cLin1+CHR(13) ) // nome da empresa

oPrn:Say(1, 1, "161100000800050"+cLin2+CHR(13) ) // valor

oPrn:Say(1, 1, "141100000500050"+cLin3+CHR(13) ) // codigo

oPrn:Say(1, 1, "141100000250050"+cLin4+CHR(13) ) // descricao1

oPrn:Say(1, 1, "141100000040050"+cLin5+CHR(13) ) // descricao2

// oPrn:Say(1, 1, "1"+cTipBar+"0001800000050"+cBar +CHR(13) ) // Código de Barras

oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta

ELSEIF Left(cEtqMod,1) == "C" // => ( 35 x 25 x 3 )

contador++ // Contador das (tres) Etiquetas na linha

if contador=1

oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta

oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade

oPrn:Say(1, 1, "D11"+CHR(13) ) // Densidade

oPrn:Say(1, 1, "1X1100300780010L120018" ) // Negrito

oPrn:Say(1, 1, "121100000810012"+cLin1+CHR(13) ) // nome da empresa

oPrn:Say(1, 1, "141100000560010"+cLin2+CHR(13) ) // valor

// oPrn:Say(1, 1, "121100000540010"+cLin3+CHR(13) ) // codigo

oPrn:Say(1, 1, "121100000420010"+cLin4+CHR(13) ) // descricao1

oPrn:Say(1, 1, "121100000310010"+cLin5+CHR(13) ) // descricao2

oPrn:Say(1, 1, "1"+cTipBar+"5201800020010"+cBar +CHR(13) ) // Código de Barras

elseif contador=2

oPrn:Say(1, 1, "1X1100300780146L120018" ) // Negrito

oPrn:Say(1, 1, "121100000810148"+cLin1+CHR(13) ) // nome da empresa

oPrn:Say(1, 1, "141100000560146"+cLin2+CHR(13) ) // valor

// oPrn:Say(1, 1, "121100000540146"+cLin3+CHR(13) ) // codigo

oPrn:Say(1, 1, "121100000420146"+cLin4+CHR(13) ) // descricao1

oPrn:Say(1, 1, "121100000310146"+cLin5+CHR(13) ) // descricao2

oPrn:Say(1, 1, "1"+cTipBar+"5201800020146"+cBar +CHR(13) ) // Código de Barras

elseif contador=3

oPrn:Say(1, 1, "1X1100300780282L120018" ) // Negrito

oPrn:Say(1, 1, "121100000810284"+cLin1+CHR(13) ) // nome da empresa

oPrn:Say(1, 1, "141100000560282"+cLin2+CHR(13) ) // valor

// oPrn:Say(1, 1, "121100000540282"+cLin3+CHR(13) ) // codigo

oPrn:Say(1, 1, "121100000420282"+cLin4+CHR(13) ) // descricao1

oPrn:Say(1, 1, "121100000310282"+cLin5+CHR(13) ) // descricao2

oPrn:Say(1, 1, "1"+cTipBar+"5201800020282"+cBar +CHR(13) ) // Código de Barras

oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta

contador = 0

endif

ENDIF

id=code>id=code>

Oscar Ribeiroid=size4>

OASyS Informáticaid=blue>id=size4>

Fwh+xHb1.0.0+BCC55+WorkShopid=size1>

[Decker]

Karaca Oscar...

Melhor que isso, só se viesse já compilado...kkkkk

Obrigadão mesmo, com isso vai ficar facil fazer o que estou querendo...

Decker

celeyendecker@hotmail.com

São Paulo - S.P.

FWH 6.12 Free - xHarbour - BCC55 - Pelles C - xDev

[leo@lhsistemas.com]

Fiz modificações na classe TPRINTER, aí compila mas não linka a "danada" com as minhas alterações.

O que estar acontecendo gente !!!

Utilizo o FW/xDevStudio/xHarbour

Leonardo Guimarães

Vitória-ES

FWH + xDevStudio + xHarbour

[leo@lhsistemas.com]

Fiz modificações na classe TPRINTER, aí compila mas não linka a "danada" com as minhas alterações.

O que estar acontecendo gente !!!

Utilizo o FW/xDevStudio/xHarbour

Leonardo Guimarães

Vitória-ES

FWH + xDevStudio + xHarbour

[aferra]

VC acrescentou a "danada" no seu projeto? tem certeza? olhou novamente? conferiu se está no projeto do lado esquerdo da tela na xDev?

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

[joaosolution]

Leonardo

No xDev Acesse Projeto->Propriedades

Na opção Módulos do sistema, coloque a classe no início utilizando a seta Mover para cima.

Att

João Bosco

Contagem/MG

FWH 10.6b xHb 1.2.1 WorkShop 4.5

PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql

[leo@lhsistemas.com]

João Bosco, boa tarde.

Valeu mesmo pela sua ajuda.

Deu certo, agora está compilando e linkando a PRINTER e RPREVIEW modificada.

Estou fazendo alguns ajustes nelas.

Daí o usuário poderá salvar em XLS o relatório no vídeo.

Abraços.

Leonardo Guimarães

Vitória-ES

FWH + xDevStudio + xHarbour

[silvanof]

Olá Leonardo. Estou estreando aqui no Forum. Eu utilizo o xHarbour Comercial e as vezes acontece isso tb. No compilador dele tem uma opção para forçar o link (Force Re-link), daí costuma funcionar. Veja se no seu compilador ou linkeditor existe esta opção tb.

 

Silvano Bispo Faria

xHarbour.com/SQLRdd/FWH 13.02

[Theotokos]

Vc add o TPrinter modificada ao seu projeto?