Visual Basic - como imprimir un archivo *.txt

Desde VB6.0..... necesito código para imprimir un archivo tipo *.txt

Gracias

Hola, NESTOR.

Prueba con éste código, a ver si es lo que solicitabas:

'-------------------------
'CÓDIGO
'-------------------------

'Este procedimiento toma un archivo de texto y lo imprime en
'la impresora determinada, todo mediante un código muy simple
'y eficaz

Public Sub PrintTextFile(ByVal TextFileName As String)
Dim TextToPrint As String 'Contendrá el texto del archivo *.txt

'Esta línea comprueba que el archivo sea *.txt. Si no es, sale del procedimiento.
'Se puede marcar como comentario para que acepte todo tipo de archivos
If Right(TextFileName, 3) <> "txt" Then MsgBox "El archivo no es *.txt", vbCritical + vbOKOnly, "ERROR": Exit Sub

'Se abre el archivo
Open TextFileName For Binary As #1
TextToPrint = Space(LOF(1)) 'Se crea el buffer
Get #1, , TextToPrint 'Se almacenan los datos en el buffer
Close #1 'Se cierra el archivo

Printer.Print TextToPrint 'Se imprimen los datos del buffer
Printer.EndDoc 'Se termina el documento de impresión
End Sub

'Cómo usarlo:

'La implementación de éste código no necesita explicaciones.
'Se llama a un archivo de texto que será imprimido:

'PrintTextFile "C:\texto.txt"

'-------------------------
'CÓDIGO
'-------------------------

Espero que te funcione correctamente y te ayude a resolver tu problema.

Hasta otra,

Zoto