Printing TEXT document

[gs.gopinath]

HOW TO PRINT text document using shell command without opening the file

Hi friends,
I am having problem with printing the text document. i here added the vb code for clarification.

repobno2.ExportReport key_def_Text, "F:\Vsquar system on gopinath\badgereport", True, False, rptRangeAllPages
Dim conn As New ADODB.Connection
Dim rsss As New ADODB.Recordset
conn.Open ("Provider=SQLOLEDB.1;User ID=gs;password= gs123;Initial Catalog=Visitor;Data Source=bdnet")
rsss.Open "SELECT TSno, Tname, Tcom, Taddr, TPhno, TVeno, TCatgry, TDept, Tcont, TReas, Tin, Tbadgno, Tcostcenter, remark FROM Timein where TSno = 1", conn, adOpenDynamic, adLockOptimistic
Dim name, company, address, vehicleno, costcenter, department, category, contact, remarks, reason As String
Dim Serialno, Bagdenophoneno As Long
Dim TimeIn As Date
Dim phoneno As Variant
Do Until rsss.EOF
Serialno = rsss.Fields("Tsno")
name = rsss.Fields("tname")
company = rsss.Fields("Tcom")
address = rsss.Fields("Taddr")
phoneno = rsss.Fields("Tphno")
vehicleno = rsss.Fields("Tveno")
category = rsss.Fields("Tcatgry")
department = rsss.Fields("Tdept")
costcenter = rsss.Fields("Tcostcenter")
contact = rsss.Fields("Tcont")
reason = rsss.Fields("Treas")
TimeIn = rsss.Fields("tin")
badgeno = rsss.Fields("Tbadgno")
remarks = rsss.Fields("remark")
rsss.MoveNext
Loop
rsss.Close
Open App.Path & "\Output\badgereport.txt" For Output As #1
    Print #1,
    Print #1, Tab(25); "Sundaram Clayton Limited"; Tab(60); Date
    Print #1, Tab(35); "DCD, PADI"
    Print #1, Tab(2); "--------------------------------------------------------------------------------"
    Print #1, Tab(35); "|"
    Print #1, Tab(2); "Serial No:"; Tab(15); Serialno; Tab(35); "|";
    Print #1, Tab(35); "|"; Tab(50); "VISITOR'S  INSTRUCTIONS"
    Print #1, Tab(2); "Badge No:"; Tab(15); badgeno; Tab(35); "|";
    Print #1, Tab(2); "--------------------------------------------------------------------------------"
1
    Print #1, Tab(2); "Name"; Tab(15); name; Tab(35); "|"; Tab(36); "1. This pass is valid  to permitted area only."
2
    Print #1, Tab(2); "Company:"; Tab(15); company; Tab(35); "|"; Tab(36); "2. Declare your personal properties Laptop, "
    Print #1, Tab(35); "|"; Tab(39); "Computers,CD's, Floppies, Drawings,"
    Print #1, Tab(35); "|"; Tab(39); "Components,etc., to security at the entry"
    Print #1, Tab(35); "|"; Tab(39); "itself and get Security endorsment."
3
    Print #1, Tab(2); "Address"; Tab(15); address; Tab(35); "|"; Tab(36); "3. Collect your pass and surrender the same"
    Print #1, Tab(35); "|"; Tab(39); "at security at exit."
4
    Print #1, Tab(35); "|"; Tab(36); "4. Adhere to safety rules and regulation when "
    Print #1, Tab(35); "|"; Tab(39); "you are in factory premises."
5
    Print #1, Tab(35); "|"; Tab(36); "5. Factory is non-smoking zone. Kindly refrain "
    Print #1, Tab(35); "|"; Tab(39); "from smoking."
6
    Print #1, Tab(2); "Phone No:"; Tab(15); phoneno; Tab(35); "|"; Tab(36); "6. Photography strictly prohibited. In case "
    Print #1, Tab(35); "|"; Tab(39); "Camera is brought, please deposit with "
    Print #1, Tab(35); "|"; Tab(39); "security at entry gate."
7
    Print #1, Tab(2); "Vehicle No:"; Tab(15); vehicleno; Tab(35); "|"; Tab(36); "7. Cell phones are not allowed inside the "
    Print #1, Tab(35); "|"; Tab(39); "factory premises,please deposit the same "
    Print #1, Tab(35); "|"; Tab(39); "with the security at the entry gate."
 
    Print #1, Tab(2); "Category"; Tab(15); category; Tab(35); "|"
    Print #1, Tab(2); "Department:"; Tab(15); department; Tab(35); "|"
    Print #1, Tab(2); "Cost Center:"; Tab(15); costcenter; Tab(35); "|"
    Print #1, Tab(2); "Contact:"; Tab(15); contact; Tab(35); "|"
    Print #1, Tab(2); "Reason"; Tab(15); reason; Tab(35); "|"
    Print #1, Tab(2); "Remarks:"; Tab(15); remarks; Tab(35); "|"
    Print #1, Tab(2); "Time In:"; Tab(15); Format$(TimeIn, "dd - MM - YYYY"); Tab(35); "|"
    Print #1, Tab(2); "Time Out:"; Tab(35); "|"
    Print #1, Tab(35); "|"
    Print #1, Tab(2); "--------------------------------------------------------------------------------"
    Print #1, Tab(35); "|"
    Print #1, Tab(35); "|"
    Print #1, Tab(2); "Issuing"; Tab(20); "Contact Person"; Tab(35); "|"
    Print #1, Tab(2); "Authority"; Tab(20); " Signature"; Tab(35); "|"
    Print #1,
    Print #1,
    Print #1,
 
    pglen = pglen + 36
     While Not rs.EOF
        sal = 0: empnm = "": acno = ""
        empnm = rs.rdoColumns(0)
        acno = rs.rdoColumns(1)
        sal = rs.rdoColumns(2)
        Print #1, Tab(2); sno; Tab(6); empnm; Tab(33); acno; Tab(50); justn(Format(sal, "####0.00"), 9)
        pglen = pglen + 2
        rs.MoveNext
        If sno Mod 13 = 0 Then
            pg = pg + 1
        If pglen > 65 And Not rs.EOF Then
            Print #1, Tab(65); "Contd..."
            pg = pg + 1
            pglen = 0
            pglen = pglen + 5
 
      Close #1
      z = Shell("C:\WINDOWS\notepad.exe " & App.Path & "\Output\badgereport.txt", vbMaximizedFocus)

Here i am opening the document and then i am printing.

waiting for reply.