Visual Basic - impresion en modo DOS con Visual

alguien me puede ayudar, necesito imprimir informes en modo DOS, con Visual Basic, para que sean mas rapido, agradecere su ayuda, gracias.

Casi había olvidado que esto se podía hacer !!!!

Private Sub Command1_Click()
Open "lpt1:" For Output As #1
Print #1, "Una Linea" & vbCr
Print #1, "Otra Linea" & vbCr
Print #1, Chr(12) ' Esto es para que expulse la hoja
Close #1
End Sub