FrmInicio es el formulario inicial de la aplicacion
Impresora es un control MsComm que apunta al puerto serie de la impresora
Public Function impCodBar(Cadena As String)
'altura del codigo de barras
frmInicio.Impresora.Output = Chr$(&H1D) & "h" & Chr$(160)
'ancho del codigo de barras
frmInicio.Impresora.Output = Chr$(&H1D) & "w" & Chr$(2.5)
'decir que es un codigo de barras
frmInicio.Impresora.Output = Chr$(&H1D) & "k" & Chr$(2)
frmInicio.Impresora.Output = Cadena & Chr$(0)
end function
Que aproveche
