Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object,
                          ByVal e As System.EventArgs)
                          Handles Button1.Click

    Me.printResultsPreview.Document = Me.printResults
    Me.printResultsPreview.ShowDialog()
End Sub


Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object,
         ByVal e As System.Drawing.Printing.PrintPageEventArgs)
         Handles printResults.PrintPage


    Dim currentTab As Integer          'Horizontal Posistion
    Dim currentLine As Integer         'Verticle Posistion
    Const ROW_HEIGHT As Integer = 15   'Line Height

    Dim totalRows As Integer           'Total number of rows in the data grid
        totalRows = Me.DataGridView1.Rows.Count
    Static currentRow As Integer       'Current row in the data grid
    Dim currentCell As Integer         'Current cell in the data grid

    Static pageCount As Integer = 1    'Counts Number of pages
    Static printedRows As Integer = 0  'Counts the number of rows per page

    Const MAX_ROWS As Integer = 33     'Maximumn number of rows on a page

    Dim x As Integer                   'For printing the Horizontal Lines


    'Reset Horz and Vert Posistion
        currentLine = 10
        currentTab = 25

    'Print the header
        e.Graphics.DrawString("| Last Update", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Food Name", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Food Group", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Amount", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150
        e.Graphics.DrawString("| Units", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
            currentTab += 150

    'Move down one line, and reset Horz Posistion
        currentLine += ROW_HEIGHT
        currentTab = 25

    'Print Horizontal Line
        For x = 25 To 800
            e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
        Next

    'Move down one line and reset Horz Posistion
        currentLine += ROW_HEIGHT
        currentTab = 25

        For printedRows = 0 To MAX_ROWS

            'Leave loop if you have reached the end of the data grid
                If (Me.DataGridView1.Rows(currentRow).Cells(1).Value = String.Empty) Then
                    Exit For
                End If
            'Print the data
                    For currentCell = 0 To 4
                        e.Graphics.DrawString("| " & Me.DataGridView1.Rows(currentRow).Cells(currentCell).Value, New Font("Georgia", 10), Brushes.Black, currentTab, currentLine)
                        currentTab += 150
                    Next

            'Move down one line
                currentLine += ROW_HEIGHT

            'Print Horizontal Lines
                For x = 25 To 800
                    e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
                Next

            'Move down one line, change your current row, and reset Horz Posistion
                currentLine += ROW_HEIGHT
                currentTab = 25
                currentRow += 1
        Next


        'Print footer
            e.Graphics.DrawString(Now.ToString("M/dd/yyyy") & " - " & Now.ToShortTimeString(), New Font("Georgia", 10), Brushes.Black, 25, 1060)
            e.Graphics.DrawString("Page:" & pageCount, New Font("Georgia", 10), Brushes.Black, 750, 1060)

        'Check if your at the end of a page
            If (printedRows = MAX_ROWS + 1) Then
                e.HasMorePages = True
                pageCount += 1

            Else
                e.HasMorePages = False
            End If
End Sub

''' <summary>
''' Check for download and if one, download it
''' </summary>
''' <param name="HTTPPath">that basepath where all files will be found on the internet</param>
''' <remarks></remarks>
Function sCheckUpdate(ByVal HTTPPath As String) As Boolean
    Dim wc As Net.WebClient = Nothing
    Dim bReturn As Boolean
    Try
        Dim fileProgram As String = New IO.FileInfo(Application.ExecutablePath).FullName
        Dim fi As New IO.FileInfo(fileProgram)
        Dim VerUri As String = Left(fi.Name, fi.Name.Length - fi.Extension.Length) & ".txt"
        VerUri = IO.Path.Combine(HTTPPath, VerUri).Replace("\", "/")
        Dim dest As String = Left(fi.FullName, fi.FullName.Length - fi.Extension.Length) & ".zip"
        If Not HTTPPath.EndsWith("/") Then HTTPPath &= "/"
        HTTPPath &= Left(fi.Name, fi.Name.Length - fi.Extension.Length) & ".zip"

        Dim png As New System.Net.NetworkInformation.Ping
        Dim rep As System.Net.NetworkInformation.PingReply
        rep = png.Send("74.125.47.118", 3000)   'google / 193.191.180.197=post
        If rep.Status = Net.NetworkInformation.IPStatus.Success Then
            wc = New Net.WebClient
            'Dim pProxy As Net.WebProxy = Net.HttpWebRequest.DefaultWebProxy
            'wc.Proxy = pProxy
            Dim version As Byte() = wc.DownloadData(VerUri)
            Dim sHTTPver As String = System.Text.ASCIIEncoding.ASCII.GetString(version)
  Dim vnCurrentVersion As System.Version = fVersionNumber()
            Dim nVersion As Double = Val(vnCurrentVersion.Build & "." & vnCurrentVersion.Revision.ToString("00000"))
            Dim nhttpVer As Double = Val(sHTTPver)
            If nhttpVer > nVersion Then
                If MessageBox.Show(LangSet.Update.NewExist, LangSet.Update.Available, _
                 MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                    wc.DownloadFile(HTTPPath, dest)
                    bReturn = True
                End If
            ElseIf nhttpVer < nVersion Then
                MessageBox.Show("Your version is better than on the internet", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show(LangSet.Update.NewestVersion, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Else
            MessageBox.Show(LangSet.Update.NetWorkError & Environment.NewLine & Environment.NewLine & rep.Status.ToString)
        End If
        png.Dispose()
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
    If Not wc Is Nothing Then
        wc.Dispose()
    End If
    Return bReturn
End Function