IMPRIMIR IMAGEM ARGOX PPLA

 Tópico anterior Próximo tópico Novo tópico

IMPRIMIR IMAGEM ARGOX PPLA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#350339 - 16/08/2010 08:16:23

JAILDOCC
LAGOA DO OURO
Cadast. em:Janeiro/2006


Segue anexo as duas dll PPLA e PPLB, se vc conseguir  desenrolar essa bronca amigo, agradeço link do arquivo  http://www.sendspace.com/file/zc0sag

Jaildo C. Carvalho
Desenvolvedor de Sistemas
Visual Basic 6.0

#479352 - 27/01/2018 23:28:45

IIVANILDO
SAO PAULO
Cadast. em:Janeiro/2018


para imprimir argox na usb compartilhe ela como argox e use o codigo abaixo

Private Sub Command1_Click()
Dim SOH As String
Dim STX As String
Dim ACK As String
Dim LF As String
Dim CR As String
Dim XON As String
Dim XOFF As String
Dim NAK As String
Dim ESC As String


SOH = Chr(1)
STX = Chr(2)
ACK = Chr(6)
LF = Chr(10)
CR = Chr(13)
XON = Chr(17)
XOFF = Chr(19)
NAK = Chr(21)
ESC = Chr(27)

' ********* Gabarito das Linhas da ARGOX
'rthvoooyyyyxxxx[string de texto]
'r = Direção (1 - Retrato, 2 - Paisagem Reversa, 3 - Retrato Reverso e 4 - Paisagem )
't = Tipo de Fonte = ver tabela
'h = Escala Horizontal
'v = Escala vertical
'ooo = Tamanho do BarCode , em strings de texto simples é desconsiderado.
'yyyy = Coordenada y
'xxxx = Coordenada x
'
'
'***********[ EMISSAO DE CODIGOS DE BARRAS ]*********************************************
'
'rthvoooyyyyxxxx [string de texto]
'r = Direção (1 - Retrato, 2 - Paisagem Reversa, 3 - Retrato Reverso e 4 - Paisagem )
't = Tipo de codigo de barras
'h = Escala Horizontal
'v = Escala vertical
'ooo = Tamanho do BarCode , em strings de texto simples é desconsiderado.
'yyyy = Coordenada y
'xxxx = Coordenada x
'
'
'yyyy = coluna xxxx = linha
'
'****************************************************************************************


Close #1
'uasr diretorio manual
'crie uma pasta na unidade c: com nome de argox e crie um txt com o nome do seu pc
      DirFile = "C:\Argox\caminho.txt"
      
      'usar diretorio do sistema
      'DirFile = (App.Path & "\tema.txt")

      Open DirFile For Input As #1

       temas = Input(LOF(1), #1)
      ip = (temas)
      
      
Close #1
Open ip & "\Argox " For Output As #1

Print #1, STX & "L" ' inicia o modo de etiqueta
Print #1, STX & "D11" ' seta a Resolução da Impressora
Print #1, "H14" ' seta a intensidade do ribbon ( 02 - 20)
Print #1, "z" ' seta que os zeros saem com tracinho dentro
' Etiqueta 001
Print #1, "190000000200130" & (Text1.Text)
Print #1, "190000000000130R$" & (Text2.Text)
Print #1, "1F81020006000101357924682287"
'Print #1, "190000000100130ANEL ONIX POMBA 20X20 OURO 17q"




'Print #1, "130000002060000CODIGO DE BARRAS tipo F: EAN13"
'Print #1, "1F00050018001601357924682287"
'Print #1, "Q0002" ' seta a quantidade de copias da etiqueta
Print #1, "E" & CR ' finaliza o modo de etiqueta
Close #1

End Sub

'imprime belezinha mas não consigo alterar o código de barras e nem aumentar o tamanho da fonte




 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário