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.

[si_the_geek]

Moved from FAQ forum, and added VBCode tags so we can read the code more easily.

The simple answer is that you do not use Shell, but instead use ShellExecute, which allows you to run the methods on a file that are shown when you right-click on it in Explorer (such as Open/Edit/Print).

This is untested, but will at least be close to what you want:

'in Declarations section:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
  ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
 
'The code:
    ShellExecute Me.hwnd, "Print", App.Path & "\Output\badgereport.txt", vbNullString, "C:\", SW_SHOWNORMAL

[Al42]

Or you could use the Printer object and print the file directly from VB, without using Notepad. There are plenty of examples in the forum.