Imprimindo codigo de Barra impressora zebra

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