Udskrive en text fil via VB

Jeg tror at du bare kan nøjes, med at smide indholdet i en stren, og derefter bruge:
Printer.Print streng

thesurfer.

Hvad mener du med streng, hvis det er en text streng så virker den sikkert. Nu er det sådanne at i mit eksempel er det en "testfil.txt" fil som jeg gerne vil printe ud.

c:\test\testfil.txt

Du læser bare indholdet af testfil.txt ind i en streng..

Lave et module og sæt denne kode ind

Option Explicit

Public Sub PrintTXTFile(FileName As String)
    Dim x As Integer
    Dim s As String

    x = FreeFile
    On Error GoTo HandleError
    Open FileName For Input As x
    Do While Not EOF(x)
        Line Input #x, s
        Printer.Print s
    Loop
    Printer.EndDoc
    Close #x
    Exit Sub
HandleError:
    MsgBox "Error :" & Err.Description, vbCritical, "Printing File..."
End Sub


sæt så en knap på din form og
skiv så denne kode ind i formen

Private Sub Command1_Click()
    PrintTXTFile "c:\test\testfil.txt"
End Sub

Tak for hjælpen.