Printing Problems

[Yonatan]

Try this:

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: RZvika@netvision.net.il
ICQ: 19552879 (http://www.icq.com/19552879)
AIM: RYoni69

[jrap]

I have a list of files in a File List Box and I want to be able for the person to print the selected file in it
I currently have

commondialog1.showprinter
printer.print(fillist.FileName)

but that doesn't seem to work? Can anyone help me?

Thanks