' Como Imprimir Directamente al Puerto de la Impresora

Private Sub Command1_Click()
    Open "C:\Autoexec.Bat" For Binary As #1
    NLen = LOF(1)
    Open "LPT1" For Output As #2
    For I = 1 To NLen
        Get #1, I, Caracter
        Print #2, Chr(Caracter);
    Next
    Close #1
    Close #2
End Sub