Member Avatar for swaleh_sundus

my code is printing directly to the printer but i want to see the preview

Dim vlineCount As Integer
    Dim vpageCount As Integer
    Dim SN As Integer
    Dim sqlp As String
    vlineCount = 0
    vpageCount = 1
    SN = 0
    
    '//NOTE : Report file name should never contain blank space.
    Open App.Path & "\Report.txt" For Output As #1 '//Report file Creation
    
    '//Create Report Heading
    '//chr(27) & chr(71) & chr(14) - for Enlarge letter and bold
    '//chr(27) & chr(45) & chr(1) - for Enlarge letter and bold
   
    Print #1, Space(20) & Chr(27) & Chr(71) & Chr(14) & _
              Chr(27) & Chr(45) & Chr(1) & _
              "LABOUR DATA" & _
              Chr(27) & Chr(72) & Chr(20) & _
              Chr(27) & Chr(45) & Chr(0)        '//Bold Off

             
               
              
    '//Printing the header for Page
    Print #1, Space(3) & RepeatString("=", 123)
    Print #1, Chr(27) & Chr(27) & _
              Space(3) & AlignLeft("SNo.", 5) & Space(1) & _
              Space(1) & AlignLeft("NAME", 20) & Space(1) & _
              Space(1) & AlignRight("AGE", 5) & Space(1) & _
              Space(1) & AlignLeft("ADDRESS", 20) & Space(1) & _
              Space(1) & AlignLeft("Martial Status", 15) & Space(1) & _
              Space(1) & AlignLeft("Reg. No.", 12) & Space(1) & _
              Space(1) & AlignLeft("Reg. Officer's Sign.", 25) & _
              Chr(27) & Chr(72)  '//Bold Ends
    Print #1, Space(3) & RepeatString("=", 123)
    Set cn_pall = New ADODB.Connection
    With cn_pall
        .ConnectionString = cmd
        .Open
    End With
    sqlp = "select * from labour_main where reg_no=" & Val(Text13.Text)
    
    Set rs_pall = New ADODB.Recordset
    If rs_pall.State = 1 Then rs_pall.Close
    rs_pall.CursorLocation = adUseClient
    rs_pall.Open sqlp, cn_pall, adOpenDynamic, adLockOptimistic
    Do While Not rs_pall.EOF
        'SN = SN + 1
        If vlineCount >= 50 Then '//Set number of lines per page according to yours
            vlineCount = 0
            
            '//ending this page
            Print #1, Space(3) & RepeatString("=", 123)
            Print #1, Space(3) & AlignRight("Page: " & vpageCount, 123)
            Print #1, Chr(13) '//Line break
            
            vpageCount = vpageCount + 1

            '//Printing the header for next Page
            Print #1, Space(3) & RepeatString("=", 123)
            Print #1, Chr$(27) & Chr$(27) & _
                    Space(3) & AlignLeft("SNo.", 5) & Space(3) & _
                    Space(3) & AlignLeft("NAME", 20) & Space(3) & _
                    Space(3) & AlignRight("AGE", 5) & Space(3) & _
                    Space(3) & AlignLeft("ADDRESS", 20) & Space(3) & _
                    Space(3) & AlignLeft("Martial Status", 15) & Space(2) & _
                    Space(3) & AlignLeft("Reg. No.", 14) & Space(3) & _
                    Space(3) & AlignLeft("Reg. Officer's Sign.", 25) & _
                    Chr$(27) & Chr$(72)  '//Bold Ends
            Print #1, Space(3) & RepeatString("=", 123)
        End If
        
        Print #1, Space(3) & AlignRight(rs_pall.Fields(0).Value, 5) & Space(1) & _
                  Space(1) & AlignLeft(UCase(rs_pall.Fields(1).Value), 20) & Space(1) & _
                  Space(1) & AlignRight(rs_pall.Fields(2).Value, 5) & Space(1) & _
                  Space(1) & AlignLeft(UCase(rs_pall.Fields(3).Value), 20) & Space(1) & _
                  Space(1) & AlignLeft(UCase(rs_pall.Fields(7).Value), 15) & Space(1) & _
                  Space(1) & AlignLeft(rs_pall.Fields(8).Value, 14) & Space(1) & _
                  Space(1) & AlignLeft(rs_pall.Fields(10).Value, 25)
                  
                  
        
        Print #1, Space(39) & AlignLeft(UCase(rs_pall.Fields(4).Value), 20)
        Print #1, Space(39) & AlignLeft(UCase(rs_pall.Fields(5).Value), 20)
        Print #1, Space(39) & AlignLeft(UCase(rs_pall.Fields(6).Value), 20)
        Print #1,
        '// printing Family Detail
        '/////////////////////////
        Set cn_child = New ADODB.Connection
        With cn_child
            .ConnectionString = cmd
            .Open
        End With
        sql_child = "select * from labour_child1 where reg_no=" & Val(rs_pall.Fields(8))
        Set rs_child = New ADODB.Recordset
        If rs_child.State = 1 Then rs_child.Close
        rs_child.CursorLocation = adUseClient
        rs_child.Open sql_child, cn_child, adOpenDynamic, adLockOptimistic
        If rs_child.EOF = False Then
            Print #1, Space(3) & AlignLeft("FAMILY DETAILS", 15)
            Print #1, Space(3) & RepeatString("-", 135)
            Print #1, Space(3) & AlignLeft("NAME", 20) & Space(3) & _
                    Space(3) & AlignRight("AGE", 5) & Space(3) & _
                    Space(3) & AlignLeft("RELATION", 10)
            Print #1, Space(3) & RepeatString("-", 123)
        End If

        Do While Not rs_child.EOF
            Print #1, Space(3) & AlignLeft(UCase(rs_child.Fields(1).Value), 20) & Space(3) & _
                        Space(3) & AlignRight(rs_child.Fields(2).Value, 5) & Space(3) & _
                        Space(3) & AlignLeft(UCase(rs_child.Fields(3).Value), 10)
            
            rs_child.MoveNext
        Loop
        Print #1,
        rs_child.Close
        Set rs_child = Nothing
        cn_child.Close
        Set cn_child = Nothing
        '//end of Family Detail
        '//////////////////////
        
        '// Printing reg detai
        '/////////////////////
        Set cn_child = New ADODB.Connection
        With cn_child
            .ConnectionString = cmd
            .Open
        End With
        sql_child = "select * from labour_child2 where reg_no=" & Val(rs_pall.Fields(8))
        Set rs_child = New ADODB.Recordset
        If rs_child.State = 1 Then rs_child.Close
        rs_child.CursorLocation = adUseClient
        rs_child.Open sql_child, cn_child, adOpenDynamic, adLockOptimistic
        If rs_child.EOF = False Then
            Print #1, Space(3) & AlignLeft("REGISTRATION DETAILS", 22)
            Print #1, Space(3) & RepeatString("-", 123)
            Print #1, Space(3) & AlignLeft("REG./RENEW. DATE", 20) & Space(3) & _
                    Space(3) & AlignLeft("BANK/CASH", 20) & Space(3) & _
                    Space(3) & AlignRight("AMOUNT", 10) & Space(3) & _
                    Space(3) & AlignRight("BILL No.", 10)
            Print #1, Space(3) & RepeatString("-", 123)
        End If

        Do While Not rs_child.EOF
            Print #1, Space(3) & AlignLeft(Format(rs_child.Fields(1).Value, "dd/MM/yyyy"), 20) & Space(3) & _
                        Space(3) & AlignLeft(UCase(rs_child.Fields(2).Value), 20) & Space(3) & _
                        Space(3) & AlignRight(rs_child.Fields(3).Value, 10) & Space(3) & _
                        Space(3) & AlignRight(rs_child.Fields(4).Value, 10)
            rs_child.MoveNext
        Loop
        rs_child.Close
        Set rs_child = Nothing
        cn_child.Close
        Set cn_child = Nothing
        
        '//end of registration detail
        '////////////////////////////
        Print #1,
        Print #1, Space(3) & AlignLeft("Remark :", 9) & _
                  AlignLeft(rs_pall.Fields(9).Value, 20)
        Print #1, Space(3) & RepeatString("=", 123)
        Print #1,
        vlineCount = vlineCount + 1
        rs_pall.MoveNext
    Loop
    
    '//End of the report
    Print #1, Space(3) & RepeatString("=", 123)
    Print #1, AlignRight("Page: " & vpageCount, 70)
    
    Close #1 '//Closing the file
    MsgBox "Report file generated" & vbCrLf & "Click OK to Print Report on Paper"
    Open App.Path & "\repo.bat" For Output As #1 '//Creating Batch file
    
    Print #1, "TYPE " & App.Path & "\Report.txt > PRN"
    Print #1, "EXIT"
    Close #1
    rs_pall.Close
    Set rs_pall = Nothing
    cn_pall.Close
    Set cn_pall = Nothing
    '//HERE write the proper path where your command.com file exist
    Shell "C:\WINDOWS\system32\COMMAND.COM /C " & App.Path & "\REPO.BAT", vbHide
  • 3 Contributors
  • 2 Replies
  • 414 Views
  • 12 Hours Discussion Span
  • Latest Post Latest Post by ChrisPadgham

Recommended Answers

All 2 Replies

Member Avatar for BitBlt

Depends on how you want to see it. Simplest would be to just take the report.txt file, open it, line input it, then dump it into a textbox. Of course, there's the whole size limit thing to worry about.

Next possibility is to have a "Preview" button that creates the text file, then instead of your REPO.BAT file using "TYPE report.txt > PRN", you could just use "TYPE report.txt | MORE". This will display the output to the console and pause when the screen fills. If they don't want to go through the entire file, they can use the <ctrl>-<c> keystroke combination to abort.

Hope this helps! Good luck!

Member Avatar for ChrisPadgham

I don't really think that shelling out to a batch file is particularly good. It might be better to write to the printer directly yourself. you can open it as follows

open PRN for output as #2

As far as previewing, why don't you load the lines from the file into a list box then your user could scroll up and down through the report.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.