' 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