This code will generate a report based on a listbox without the use of MS Access reports or a repor

Chris (9 Submissions) Files/File Controls/Input/Output VB 6.0 Unknown Difficulty Tue 20^th August 2002 Mon 8^th February 2021

This code will generate a report based on a listbox without the use of MS Access reports or a report program like Crystal Reports. It creates

API Declarations

Rate This code will generate a report based on a listbox without the use of MS Access reports or a repor

(1(1 Vote))


Private Sub cmdPrintList_Click()
    Dim strDir As String
    Dim strOut As String
    Dim intLength As Integer
    Dim strNewOut As String
    Dim iAcnt As Long
    
    'write as html to page

    intCount = 0
    strNewOut = ""
    strDir = "C:\search.html"
    'delete file if exists on system
    FileExists = Not (Dir(strDir) = "")
    If FileExists = True Then
        Kill "c:\search.html"
    End If
    Open strDir For Append As #1
    strOut = "<html><head></head><body>"
    Print #1, strOut
    Do Until intCount > g_listboxcount
        For iAcnt = 1 To Len(Me.List1.List(intCount))
            ' translate spaces to the HTML code of &nbsp; to maintain layout
            If Mid(Me.List1.List(intCount), iAcnt, 1) = " " Then
                strNewOut = strNewOut & "&nbsp;"
            Else
                strNewOut = strNewOut & Mid(Me.List1.List(intCount), iAcnt, 1)
            End If
        Next iAcnt
        'listbox has sublist within like:
        'Car Make
        '   Car Model
        '   Car Model
        'Car Make
        '   Car Model
        '   Car Model
        'below if statement keeps sublist
        If Mid(strNewOut, 1, 1) = "&" Then
            strNewOut = "<font face='courier new' size=-1>" & strNewOut & "</font><br>"
        ElseIf Mid(strNewOut, 1, 1) = "_" Then
            strNewOut = "<hr color=green>"
        Else
            strNewOut = "<h4>" & strNewOut & "</h4>"
        End If
        Print #1, strNewOut
        strNewOut = ""
        intCount = intCount + 1
    Loop
    strOut = "</body></html>"
    Print #1, strOut
    Close #1
    g_print = strDir
    'display frmPrintPreview as a Pseudo print preview screen.
    'place webbrowser control (shdocvw) on frmPrintPreview 
    frmPrintPreview.Show

End Sub


'frmPrintPreview 
'Form load contains:
 WebBrowser1.Navigate (g_print)


'Print Button contains:
'This with either print directly or give printer properties window.
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
'WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

Download snippet Save to my list

This code will generate a report based on a listbox without the use of MS Access reports or a repor Comments

No comments yet — be the first to post one!

This code will generate a report based on a listbox without the use of MS Access reports or a repor

This code will generate a report based on a listbox without the use of MS Access reports or a repor Comments

Post a Comment