Private Sub CmdTestSerial_Click()
MSComm1.PortOpen = True ' abre puerto paralelo
MSComm1.Output = Chr$(27) + Chr$(64) ' inicializa printer
MSComm1.Output = vbCrLf
MSComm1.Output = Chr$(&H1B) + Chr$(&H21) + Chr$(0) ' Selecciona font
' MSComm1.Output = Chr$(27) + Chr$(33) + Chr$(0) ' Selecciona font
MSComm1.Output = "Hola Mundo" & vbCrLf
MSComm1.Output = Chr$(&H1D) + "h" + Chr$(80) ' Set height
MSComm1.Output = Chr$(&H1D) + "k" + Chr$(2) ' Print bar code
MSComm1.Output = "496595707379" + Chr$(0)
MSComm1.Output = Chr$(&HA)
MSComm1.Output = Chr$(29) + Chr$(86) + Chr$(1) ' Corte de ticket
MSComm1.PortOpen = False ' cierra puerto serial
End Sub
Crear cuenta
