MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Imprimindo codigo de Barra impressora zebra

    avatar
    jou
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/07/2011

    Imprimindo codigo de Barra impressora zebra  Empty Imprimindo codigo de Barra impressora zebra

    Mensagem  jou em 11/2/2012, 15:04

    Ola pessoa peguei uma impressora zebra pra fazer codigo de barra e consegui com seguinte codigo


    Private Sub Comando133_Click()
    Open "Lpt1" For Output As #1 'Local



    '--- Imprime Etiqueta ---
    Print #1, "OD" 'permite térmica directa modo a transferência térmica /impressoras, desativa todas as outras opções
    Print #1, "N" 'Este comando apaga a imagem buffer antes de construir uma nova imagem.
    Print #1, "D8" 'Use esse comando para selecionar a densidade de impressão /0 é a mais leve impressão e 15 é a mais escura
    Print #1, "S2" 'Use esse comando para selecionar a velocidade da impressão /S2 = 2 ips (50 mmps)
    Print #1, "ZT" 'Define a orientação do papel /ZT, ZB





    Print #1, "B200,001,0,1,3,7,100,B," & Chr(34) & Me.Prontuario & Chr(34)

    Print #1, "P1" 'Quantidade de cópias
    Print #1, "FE" 'Finaliza o formulario

    Close #1
    End Sub

      Data/hora atual: 25/11/2020, 14:20