PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 23 → Etiquetas na impressora Argox OS-214 Plus
Etiquetas na impressora Argox OS-214 Plus
Débuté par Jacques Bica, 18 juil. 2018 17:43 - 3 réponses
Posté le 18 juillet 2018 - 17:43
Bom dia.

Tenho uma rotina em WD 22 simples para impressão de etiquetas com código de barras mais uma linha de texto.
Na minha impressora aqui no escritório funciona perfeitamente, porem, se imprimir na impressora (mesmo modelo) do cliente o formulário avança, porém, não imprime nada nem o texto. A propósito, ele já utiliza esta impressora para gerar etiquetas iguais através de outro aplicativo.

Alguém já passou por este problema?
Grato.

JB
Membre enregistré
158 messages
Posté le 18 juillet 2018 - 22:12
tenho uma rotina em vb6, mas só funciona em porta COM ou LPT, não funciona em USB ... eu só oriento a usar impressora laser com aquelas folhas de etiquetas, tive muitos problemas com estas impressoras e não encontrei suporte
Dim intNumArea As Integer
Dim rstEti As Recordset
Dim intCol As Integer
On Error Resume Next

Screen.MousePointer = vbHourglass

imprimirbarras
intCol = 1

Set rstEti = vgDb(0).OpenRecordSet("SELECT Etiquetas1.Referencia_do_produto, [Valor Venda] From Etiquetas1 Where (Etiquetas1.Imprimir = True) ORDER BY Etiquetas1.[Código do produto]")
If rstEti.RecordCount > 0 Then

intNumArea = FreeFile
Open Porta_argox For Output As #intNumArea
intCol = 1

'seta parâmetros da impressora
Print #intNumArea, "c0000"
Print #intNumArea, "KI503"
Print #intNumArea, "O0220"
Print #intNumArea, "f220"
Print #intNumArea, "KW0400"
Print #intNumArea, "KI7"
Print #intNumArea, "V0"
Print #intNumArea, "L"
Print #intNumArea, "H13"
Print #intNumArea, "PC"
Print #intNumArea, "A2"
Print #intNumArea, "D11"


'exemplo fixo
'Print #intNumArea, "1E1102500200030B1234567891012345"
'Print #intNumArea, "1E1102500200160B1234567891012345"
'Print #intNumArea, "1E1102500200290B1234567891012345"
'Print #intNumArea, "101100000160058Infinity Joias"
'Print #intNumArea, "101100000160195Infinity Joias"
'Print #intNumArea, "101100000160331Infinity Joias"

Do While Not rstEti.EOF
Select Case intCol
'Argox Manual programacion impresoras Argox PPLA.pdf
'XFWH99988887777
'X = orientation, 1 represents for portrait
'F = font
'W = width multiplier
'H = height multiplier
'999 = bar code height is ignored in case of text
'8888 = y coord
'7777 = x coord
'Exemplo: 1E1102500200040B
Case 1
'etiqueta coluna 1
Print #intNumArea, Argox_config_codbarra_m1 & rstEti![Referencia_do_produto]
Print #intNumArea, Argox_config_empresa_m1 & Left(Configuracoes!Nome_fantasia, 15)
Print #intNumArea, Argox_config_vlrvenda_m1 & "Vlr Venda R$ " + CStr(Format(rstEti![Valor venda], "###,##0.00"))
intCol = 2

Case 2
'etiqueta coluna 2
Print #intNumArea, Argox_config_codbarra_m1e2 & rstEti![Referencia_do_produto]
Print #intNumArea, Argox_config_empresa_m1e2 & Left(Configuracoes!Nome_fantasia, 15)
Print #intNumArea, Argox_config_vlrvenda_m1e2 & "Vlr Venda R$ " + CStr(Format(rstEti![Valor venda], "###,##0.00"))
intCol = 3

Case 3
'etiqueta coluna 3
Print #intNumArea, Argox_config_codbarra_m1e3 & rstEti![Referencia_do_produto]
Print #intNumArea, Argox_config_empresa_m1e3 & Left(Configuracoes!Nome_fantasia, 15)
Print #intNumArea, Argox_config_vlrvenda_m1e3 & "Vlr Venda R$ " + CStr(Format(rstEti![Valor venda], "###,##0.00"))
intCol = 1
Print #intNumArea, "^07"
Print #intNumArea, "Q0001"
Print #intNumArea, "E"
Print #intNumArea, "L"
Print #intNumArea, "A2"
Print #intNumArea, "D11"

End Select
rstEti.MoveNext
Loop
Print #intNumArea, "^07"
Print #intNumArea, "Q0001"
Print #intNumArea, "E"
Close intNumArea
End If

subFinalizaRst rstEti
Screen.MousePointer = vbNormal


--
André Martini
IS2 Automotive http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive http://www.is2.inf.br/is2construtive/index.html
IS2 Store http://www.is2.inf.br/is2store/index.html
IS2 Gerent http://www.is2.inf.br/is2gerent/index.html
Posté le 18 juillet 2018 - 22:58
Agradeço a gentileza em responder.
O cliente já tem a impressora sendo usada no sistema atual.
Eu refiz a rotina a fim de substituir a já existente, porém, na impressora do cliente não imprime.
Na minha impressora que é exatamente igual não há problema algum.
A listagem é um simples report criado em WD gerando três colunas de etiquetas.
Posté le 23 juillet 2018 - 22:26
Encontrei a solução.
Poderá ser útil para alguém.