Imprimir un TXT desde Visual Basic

[Luis Freites]

Hola a Todos !

Alguien sabe como puedo imprimir un TXT desde una aplicación de VB ...
digo, me refiero a algo que solo le pase como parametro el TXT a imprimir y
listo (como el PRINT del viejo DOS)

Gracias

Luis

Email:luis.f...@acnielsen.com

[ASMER]

usa el viejo print de DOS, pero recorre el archivo y listo.

saludos
ASMER
"Luis Freites" <luisf...@hotmail.com> escribió en el mensaje
news:OaqxivcfBHA.392@tkmsftngp02...

[Eric Garza]

No hay "varita mágica" para hacer eso.

Tendrás que usar un DLL/OCX externo que lo haga por ti o leer el archivo e
imprimirlo por código mediante el objeto Printer (método Print).

Además es muy sencillo.

--
Regards,
Eric Garza, MVP
Project manager
AMI GE

"Luis Freites" <luisf...@hotmail.com> wrote in message
news:OaqxivcfBHA.392@tkmsftngp02...

[Adrian Di Ruggiero]

-----Original Message-----
From: "Adrián Di Ruggiero" <adirug...@repsol-ypf.com>
Sent: 11/12/2001 10:29:47 AM
Subject: imprimir un archivo texto!

Prueba con esto:

Private Sub Command1_Click()
Dim nFileHandle As Integer
Dim sLine As String

nFileHandle = FreeFile

'Cambia el nombre del archivo por el que necesites...
Open "SMS.INI" For Input As #nFileHandle
Do While Not EOF(nFileHandle)
Line Input #nFileHandle, sLine
Printer.Print sLine
Loop
Close #nFileHandle
Printer.EndDoc
End Sub

Te sugiero que revises mensajes anteriores, esto ya se ha
publicado muchas veces. Hay que buscar, antes de
preguntar !!!

[Mindeye]

Tienes varias opciones. La clásica sería abrir y leer el archivo con las
instrucciones de VB (Open, Line Input...) y mandarlas a imprimir con
Printer.Print. Otra sería dejar que el programa asociado a los txt lo
imprima de manera oculta, usando ShellExecute:

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Const SW_HIDE = 0

Dim hProc As Long
hProc = ShellExecute(Me.hwnd, "Print", "C:\MiDir\Archivo.txt", "", App.Path,
SW_HIDE)

Espero que te sirva,
Mindeye

"Luis Freites" <luisf...@hotmail.com> escribió en el mensaje
news:OaqxivcfBHA.392@tkmsftngp02...

[mleon.t...@gmail.com]

Gracias me sirvió....