IMPRESSORA TÉRMICA GC420t Zebra

Moderador: Avelino Sampaio

jamiljuniors
Mensagens: 17
Registrado em: 07 Jun 2015, 22:57

IMPRESSORA TÉRMICA GC420t Zebra

Mensagempor jamiljuniors » 11 Ago 2017, 18:03

Pessoal, boa tarde,

Não consigo adaptar o sistema para imprimir na impressora térmica GC420t zebra, campos a serem impressos (Nome, Setor) com 5cm de largura e no maximo 2,5cm de altura.
Obs.: tentei adaptar código de impressão não não fiscal, mais tive sucesso.

No aguardo,
Jamil

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


jamiljuniors
Mensagens: 17
Registrado em: 07 Jun 2015, 22:57

Re: IMPRESSORA TÉRMICA GC420t Zebra

Mensagempor jamiljuniors » 11 Ago 2017, 20:26

Código Utilizado

Código: Selecionar todos

Dim DB As DAO.Database
Dim RSP As DAO.Recordset
Dim strSQL As String
Dim Sai As String

Vias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 1)
If IsNull(Vias) Or Vias = "" Then Exit Sub
For ImprimirVias = 1 To Vias

strSQL = "SELECT tbl_Etiquetas.Codigo, tbl_Etiquetas.Nome, tbl_Etiquetas.Empresa, "
strSQL = strSQL & "tbl_Etiquetas.Chapa, tbl_Etiquetas.Setor, tbl_Etiquetas.Complemento, tbl_Etiquetas.Selecao "
strSQL = strSQL & "FROM tbl_Etiquetas "
strSQL = strSQL & "WHERE (((tbl_Etiquetas.Selecao)=-1));"

Set DB = CurrentDb
Set RSP = DB.OpenRecordset(strSQL)

strSQL = Application.CurrentProject.Path
Open strSQL & "\_TesteImp.txt" For Output As #1 '''testes"
'Open "\\USER-USER-PC\Rol" For Output As #1

With RSP
    .MoveFirst
    Do While Not .EOF
        Print #1, "" & UCase(RSP!Nome)
        Print #1, "" & UCase(RSP!Setor) & "..." & (RSP!Chapa)
        Print #1, Tab(0); "     Lavanderia Cristal"
        Print #1, Tab(0); "--------------------------------";
        .MoveNext
    Loop
End With
Close #1
Next ImprimirVias

jamiljuniors
Mensagens: 17
Registrado em: 07 Jun 2015, 22:57

Re: IMPRESSORA TÉRMICA GC420t Zebra

Mensagempor jamiljuniors » 12 Ago 2017, 13:20

Pessoal, bom dia,

Depois de pesquisar entendi que o código utilizado por essa impressora é programação ZPL, bom fiz algumas alterações no código, porem na impressão to perdendo muito papel (não imprimi um atras do outro, pra não haver perda de etiqueta, que é continua e cortada por tesoura), outra coisa também é que não ta fazendo o loop na tbl, imprimi somente 2 registros e para (piscando a luz vermelha), to ficando doido, alguém para ajudar?

Código: Selecionar todos

Dim DB As DAO.Database
Dim RSP As DAO.Recordset
Dim strSQL As String
Dim Sai As String

Vias = InputBox("Quantas cópias deseja imprimir? ", "Cópias", 1)
If IsNull(Vias) Or Vias = "" Then Exit Sub
For ImprimirVias = 1 To Vias

strSQL = "SELECT tbl_Etiquetas.Codigo, tbl_Etiquetas.Nome, tbl_Etiquetas.Empresa, "
strSQL = strSQL & "tbl_Etiquetas.Chapa, tbl_Etiquetas.Setor, tbl_Etiquetas.Complemento, tbl_Etiquetas.Selecao "
strSQL = strSQL & "FROM tbl_Etiquetas "
strSQL = strSQL & "WHERE (((tbl_Etiquetas.Selecao)=-1));"

Set DB = CurrentDb
Set RSP = DB.OpenRecordset(strSQL)

strSQL = Application.CurrentProject.Path
'Open strSQL & "\_TesteImp.txt" For Output As #1 '''testes"
Open "\\USER-USER-PC\Rol" For Output As #1

With RSP
    .MoveFirst
    Do While Not .EOF
            Print #1, "^XA" 'inicio do projeto
            Print #1, "^MD20"
            Print #1, "^LL400"
            Print #1, "^FO5,5^ADN,36,10^FD "; UCase(RSP!Nome); " ^FS"
            Print #1, "^FO5,25^ADN,25,10^FD "; UCase(RSP!Setor) & "..." & (RSP!Chapa); " ^FS"
            Print #1, "^FO5,40^ADN,18,10^FD "; "----------------------"; " ^FS"
            Print #1, "^FO5,45^ADN,20,10^FD "; "Lavanderia Cristal"; " ^FS"
            'Print #1, "^PQ"; ; "" 'numero de copias a imprimir
            Print #1, "^XZ"
        .MoveNext
    Loop
End With
Close #1
Next ImprimirVias

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Bing [Bot] e 1 visitante