Dim fl As Long, confirm As Integer, str As String, FNum As Integer
fl = FileLen("c:\aa.txt")
If fl = 0 Then
MsgBox "zero length file."
confirm = MsgBox("Do you wish to print?", vbYesNo)
If confirm = vbYes Then
Text1.Text = ""
FNum = FreeFile
Open "c:\aa.txt" For Input As #1
str = Input(LOF(FNum), #FNum)
Text1.Text = str
MsgBox "Control passed to printer. Please verify.", vbInformation, "Print"
replace the Red marked portion with the physical location of the file that you wish to check and print.
plz let me know if this helps you to solve out ur problem.