Hola,
aqui tienes otra opción:
Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
Dim psi As New ProcessStartInfo
Try
With psi
.FileName = "C:\Archivo.txt"
.Verb = "print"
.WindowStyle = ProcessWindowStyle.Hidden
End With
Process.Start(psi)
Catch Err As Exception
MsgBox(Err.Message)
End Try
End Sub
Este código imprime directamente el archivo, si quieres una vista previa, cambia la propiedad de 'ProcessWindowStyle a 'Normal'
