Preview & print in Dos Mode Using VB 6.0

[praveenhathwar]

Hi,

I have a flexgrid with few data. Now I want that to be print in DOS Mode (To be print on Notepad), Preview it for the user and prevent the user from modifying the data in it. Is there any Idea to implement this.. ?

My Code is as follows:
-------------------------------------------------------------------------
Private Sub cmdPrint_Click()
stat = "PRINT"
Open App.Path & "\ProductList.txt" For Output As #1
Write #1, Space(5) & "Company Name"
Write #1, Space(5) & "Address1" & Space(15 - Len("Address1")) & vbTab & "Address2"
Write #1, Space(5) & "City" & Space(20 - Len("City")) & "Ph: 22222222"
Write #1, "------------------------------------------------------------------------------------------------------"
Write #1,
Write #1, Space(5) & vbTab & "Products List"
Write #1, Space(5) & vbTab & "--------------------"
Write #1,
rws = msfProductsList.Rows - 2
i = 1
Do Until rws = 0
msfProductsList.Row = i
msfProductsList.Col = 1
prodlist = Trim(msfProductsList.Text) & Space(4 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 2
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(10 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 3
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(50 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 4
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(10 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 5
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(10 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 6
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(10 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 7
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(10 - Len(Trim(msfProductsList.Text)))
msfProductsList.Col = 8
prodlist = prodlist & vbTab & Trim(msfProductsList.Text) & Space(10 - Len(Trim(msfProductsList.Text)))
Write #1, prodlist
rws = rws - 1
i = i + 1
Loop
Close #1
MsgBox "Printed Successfully"
End Sub
----------------------------------------------------------------
And I ve attached a Text File, which is output im getting...