PRINT EM ARGOX

ARPRADO 31/10/2014 19:21:48
#442245
Estou fazendo um rotina para impressão de etiqueta na impressora ARGOX e o meu problema é quando executo a linha printer.enddoc salta várias etiquetas. Como faço para controlar esse salta de etiqueta. Já configurei as propriedades da impressora e nada.
MARCELOKROL 31/10/2014 21:45:41
#442246
Bom vamos la: você pode procurar na internet sobre linguagem PPLA ou PPLB, são as linguagens mais comuns para as impressoras termicas de etiquetas, ou, fazer como eu e utilizar o AcbrMonitor, que com ele voce programa apenas uma vez e libera o seu sistema para vários modelos de impressoras.

espero ter ajudado, ate mais.
WILSONJOSE 01/11/2014 12:20:34
#442249
Olá Alexandre, veja se te ajuda os arquivos em anexo
MESTRE 03/11/2014 07:54:26
#442254
Citação:

Estou fazendo um rotina para impressão de etiqueta na impressora ARGOX e o meu problema é quando executo a linha printer.enddoc salta várias etiquetas. Como faço para controlar esse salta de etiqueta. Já configurei as propriedades da impressora e nada.



Cara ja tive esse problema com a Argox daqui do serviço, isso é problema de configuração da impressora.. entre nas configurações de impressão, coloque o tamanho em cm da sua etiqueta lá.. ai depois voce calibra a impressora e já era ai ela não vai imprimir um e soltar outro.Para calibrá-la, desligue a impressora, pressione a tecla FEED e mantenha pressionada. Ligue a impressora com a tecla FEED pressionada. Quando a impressora começar a soltar etiquetas libere a tecla FEED.
A impressora soltará 03 etiquetas aproximadamente e vai parar, aqui resolveu o problema..
ARPRADO 04/11/2014 19:12:07
#442289
Citação:

:
Olá Alexandre, veja se te ajuda os arquivos em anexo




Perfeito seu anexo!
Só uma pergunta, neste exemplo abaixo de impressão de uma linha, o valor [Ô]195[Ô] seria a linha de impressão, será que devemos informar da ultima linha para a primeira, porque fiz a impressão normal e saiu uma impressão inversa.

Ex.: Call A_Prn_Text(360, 195, 3, 2, 0, 2, 2, Asc([Ô]N[Ô]), 2, valor)
ARPRADO 04/11/2014 19:18:01
#442290
DEVERIA SAIR ASSIM:
LINHA 1: NOME: ALEXANDRE R PRADO
LINHA 2: ENDEREÇO: RUA X, 3434
LINHA 3: CEP: 64000-000
LINHA 4: FONE: (86) 9921-5025

NO ENTANTO, SAIU ASSIM:
LINHA 4: FONE: (86) 9921-5025
LINHA 3: CEP: 64000-000
LINHA 2: ENDEREÇO: RUA X, 3434
LINHA 1: NOME: ALEXANDRE R PRADO
ARPRADO 04/11/2014 20:17:32
#442291
Estou usando a linguagem PPLA, agora o problema é que após a impressão de uma etiqueta, ocorre o salto de várias etiquetas, já configurei as propriedades da impressora Argox, criando uma papel de etiqueta nas medidas (95,00 m x 38,0 m) e mesmo assim, não funciona.
Estou para ficar louco com essa impressora.
MARCELO.TREZE 04/11/2014 22:03:10
#442293 Resposta escolhida
colega posta o seu código usando o printer,

ou pode mandar direto para impressora assim

                    Open [Ô]LPT1[Ô] For Output As #1
                    Print #1, Chr$(2) + [Ô]KI7[Ô] + Chr$(0)
                    Print #1, Chr$(2) + [Ô]C0200[Ô]
                    Print #1, Chr$(2) + [Ô]L[Ô]
                    Print #1, [Ô]D11[Ô]
                    Print #1, [Ô]1A5200000400095 12345679909020[Ô]
                    Print #1, [Ô]121200100050030 teste de impressao     R$ [Ô] & Format(20.00, [Ô]###,##0.00[Ô])
                    Print #1, [Ô]Q0001[Ô]
                    Print #1, [Ô]E[Ô]
                    Close #1
ARPRADO 05/11/2014 10:09:44
#442295
Estou usando agora PPLA, segue abaixo código.

Private Sub PrintARGOX2()
On Error GoTo trataerr
Dim Comprimento As Integer
Dim Altura As Integer
Dim y As Integer

y = 150
Comprimento = 1 [ô](*Comprimento da etiqueta. Valores => -1 ou 2*)
Altura = 1 [ô](*Altura da etiqueta. Valores => -1, 2 ou 3 *)

i = prn_argox.VerificaImpressoraLigada
If i = 1 Then
i = prn_argox.ImpressoraAbertura
Else
MsgBox [Ô]Problema na impressão!![Ô]
Exit Sub
End If
[ô]LINHA DE CONFIGURAÇÃO ARGOX

[ô] sample setting.
Call A_Set_DebugDialog(1)
Call A_Set_Unit(Asc([Ô]n[Ô]))
Call A_Set_Syssetting(1, 0, 0, 0, 0)
Call A_Set_Darkness(8)
Call A_Set_Backfeed(320)
Call A_Del_Graphic(1, [Ô]*[Ô]) [ô] delete all picture.
Call A_Clear_Memory [ô] clear memory.
Call A_WriteData(0, sznop2, Len(sznop2))
Call A_WriteData(1, sznop1, Len(sznop1))

[ô]***************************

Dim texto As String
Dim temp [ô]Variavel para conter o array
Dim TextoPronto As String
Dim ietq As Integer
Dim Contagem As Integer
Dim mTexto1 As String
Dim iContador As Integer
Dim mCodSeg As String
Dim mSQL1 As String
Dim mImpCab As String
DoEvents

RegPrint
mSQL1 = [Ô]Select intContador from tbAberturaAutenticacao Where dtmData = [ô][Ô] & format(gDataSistema, [Ô]yyyymmdd[Ô]) & [Ô][ô][Ô]

mCodSeg = GeraCtrlAutentica & [Ô]/[Ô] & Conexao.Execute(mSQL1).Fields!intContador

y = y - 10
texto = txtImpresso.Text
temp = Split(texto, [Ô] [Ô])
mImpCab = ReadINI([Ô]Firmas[Ô], [Ô]Cab_Etiqueta[Ô], Diretorio & [Ô]C11.INI[Ô])
[ô]For iContador = 1 To CInt(txtQte.Text)

[ô]IMPRESSÃO DO CABECALHO

If mImpCab = [Ô]N[Ô] Then
mTexto1 = ConvertAcentos(DadosCartorio.NomeFantasia)
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, mTexto1)
y = y - 10
mTexto1 = ConvertAcentos(DadosCartorio.Endereco & [Ô] - [Ô] & DadosCartorio.Cidade & [Ô]-[Ô] & DadosCartorio.UF)
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, mTexto1)
y = y - 10
mTexto1 = ConvertAcentos(DadosCartorio.Tabelia)
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, mTexto1)
y = y - 10
End If
For ietq = 1 To mQLinhasInicial
[ô]Printer.Print
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, [Ô][Ô])
y = y - 10
Next ietq
If Not mOcultaNomeAutenticacao Then
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, [Ô]A U T E N T I C A C A O[Ô])
y = y - 10
End If

TextoPronto = [Ô][Ô]
Contagem = 0

For i% = 0 To UBound(temp)
TextoPronto = TextoPronto & temp(i%) & [Ô] [Ô]
Contagem = Contagem + Len(temp(i%)) + 1
If Contagem > LimiteColuna Then
TextoPronto = Mid(TextoPronto, 1, Len(TextoPronto) - Len(temp(i%)) - 2)
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, TextoJustificado(ConvertAcentos(TextoPronto), LimiteColuna))
y = y - 10
TextoPronto = temp(i%) & [Ô] [Ô]
Contagem = Len(temp(i%)) + 1
End If
Next i%

If Contagem > 0 Then
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, ConvertAcentos(TextoPronto))
y = y - 10
End If

If mOcultaTestemunha Then
mTexto1 = DadosCartorio.Cidade & [Ô]-[Ô] & DadosCartorio.UF & [Ô], [Ô] & gDataSistema & [Ô].[Ô]
mTexto1 = Space(LimiteColuna - Len(mTexto1)) & mTexto1
Else
mTexto1 = [Ô]EM TEST._________ DA VERDADE. [Ô] & DadosCartorio.Cidade & [Ô]-[Ô] & DadosCartorio.UF & [Ô], [Ô] & gDataSistema & [Ô].[Ô]
End If
mTexto1 = ConvertAcentos(mTexto1)
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, mTexto1)
y = y - 10

Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, [Ô]__________________________________________________[Ô])
y = y - 10
If Not mOcultaNSP Then
SQLQuery = [Ô]Select * from tbUsuario where intCodigoUsuario = [Ô] & cboUsuario.ItemData(cboUsuario.ListIndex)
If Not Conexao.Execute(SQLQuery).EOF Then
mTexto1 = Trim(Conexao.Execute(SQLQuery).Fields!strnome) & [Ô]-[Ô] & Trim(Conexao.Execute(SQLQuery).Fields!strFuncao)
mTexto1 = ConvertAcentos(mTexto1)
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, mTexto1)
y = y - 10
End If
End If
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, PrintValores & [Ô] ([Ô] & CodUsuPrint(UsuarioAtual) & [Ô])[Ô])
y = y - 10
If Not mOcultaChaveProtecao Then
Call A_Prn_Text(20, y, 1, 2, 0, 1, 1, Asc([Ô]N[Ô]), 2, mCodSeg)
y = y - 10
End If
Call A_Print_Out(Comprimento, Altura, CInt(txtQte.Text), 1)
Call A_ClosePrn
[ô]Next iContador
Exit Sub

trataerr:
MsgBox err.Description, vbCritical, [Ô]Atenção[Ô]
Exit Sub
End Sub
ARPRADO 10/11/2014 15:44:05
#442396
Após a linha de comando abaixo o impressão fica legal, o problema é o excesso de salto de etiquetas.

Call A_Print_Out(Comprimento, Altura, CInt(txtQte.Text), 1)
Call A_ClosePrn

Alguém pode me ajudar com relação ao salto de etiquetas?
ARPRADO 13/11/2014 19:42:43
#442496
Como faço para especificar o tamanho da etiqueta em PPLA?

Será essa linha de comando... Call A_Set_Syssetting(2, 0, 1200, 1, 2)
Tópico encerrado , respostas não são mais permitidas
Voltar