Try this:
Code:
Option Explicit


Function AddSlash(ByVal sString As String) As String
    If Right(sString, 1) = "\" Then AddSlash = "\"
    AddSlash = sString & AddSlash
End Function


Private Sub Command1_Click()
    Dim lFileNum As Long
    On Error Resume Next
    With CommonDialog1
        .CancelError = True
        .Flags = cdlPDDisablePrintToFile Or cdlPDNoPageNums Or cdlPDNoSelection Or cdlPDNoPageNums
        Call .ShowPrinter
        If Err.Number = cdlCancel Then Exit Sub
        Printer.Copies = .Copies
        Printer.Orientation = .Orientation
    End With
    lFileNum = FreeFile
    Open AddSlash(filList.Path) & filList.filename For Input As #lFileNum
        Printer.Print Input(LOF(lFileNum), #lFileNum)
    Close #lFileNum
    Call Printer.EndDoc
End Sub
------------------
Yonatan
Teenage Programmer
E-Mail: [email protected]
ICQ: 19552879
AIM: RYoni69