|
Etiquetas na impressora Argox OS-214 Plus |
Iniciado por Jacques Bica, jul., 18 2018 5:43 PM - 3 respostas |
| |
| | | |
|
| |
Publicado em julho, 18 2018 - 5:43 PM |
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 |
| |
| |
| | | |
|
| | |
| |
Membro registado 205 mensagems Popularité : +25 (25 votes) |
|
Publicado em julho, 18 2018 - 10:12 PM |
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 |
| |
| |
| | | |
|
| | |
| |
Publicado em julho, 18 2018 - 10:58 PM |
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. |
| |
| |
| | | |
|
| | |
| |
Publicado em julho, 23 2018 - 10:26 PM |
Encontrei a solução. Poderá ser útil para alguém.
|
| |
| |
| | | |
|
| | | | |
| | |
|