[RESOLVED] Display text file in frame

[rahulpqr]

I have a form and I want to display a text file inside a frame in the form ... Outside the frame , I want to give a print button pressing which we can print the text file ... Please help .... how can I do it ?? Thanks in Advance ....

[Hack]

Put a textbox in the frame, open the text file in the textbox then print the contents of the textbox.

[rahulpqr]

but how to open the file in a text box ?? I am using the datasource property but it is not working ...

[Hack]

No no...you don't need to use a property...write the code

Open "c:\rahulpgr.txt" For Input As #1    
    Text1.Text = Input(LOF(1), 1)
Close #1

[rahulpqr]

A problem is occurring ... the display is not same as in text file ... all lines are displayed in a single line and newline is displayed as ||

[Hack]

Set the Multiline to True in the textbox property page.

[Keithuk]

A problem is occurring ... the display is not same as in text file ... all lines are displayed in a single line and newline is displayed as ||

Set the TextBox.MultiLine property to True.

Oh you beat me Hack.

[rahulpqr]

Many Many thanks ... only one thing more ... can u plzz tell me what is the meaning of LOF(1),1 in the parameter of input .... and can you plzz give me the code of print button ?? Thanks again .

[Hack]

LOF = Length Of File

[rahulpqr]

Thank you very much ... can You give me the code of print button ?? I am very grateful to you for giving your valuable time to me . Thanks again.

[Hack]

Here is a reusable print function

Private Function PrintTextFile(sTextFile As String) As String
If Dir(sTextFile) <> vbNullString Then
    Open sTextFile For Binary As #1
    PrintTextFile = Input(LOF(1), 1)
    Close #1
End If
End Function
 
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
Printer.Print PrintTextFile("c:\rahulpqr.txt")
Printer.EndDoc
Screen.MousePointer = vbDefault
End Sub

[rahulpqr]

Thanku Thanku Thanku .......... My problems are resolved