Call tabfile()
        Dim piStart As New ProcessStartInfo
        With piStart
            .FileName = System.Windows.Forms.Application.StartupPath & "\tabhamlog.txt"
            .Verb = "print"
            .WindowStyle = ProcessWindowStyle.Hidden
        End With
        Process.Start(piStart)

Private WithEvents doc As New Printing.PrintDocument

    ' Set the properties of the PrintDocument
    'before showing the dialog
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            ' Setting to tru allows user to select range
            'of pager to print
            'set to false if you want the user to print whole documdnt only
            testPrintDialog.AllowSomePages = True

            ' Show the help button.
            testPrintDialog.ShowHelp = True

            ' Set the Document property to the PrintDocument for
            ' which the PrintPage Event has been handled. To display the
            ' dialog, either this property or the PrinterSettings property
            ' must be set
            testPrintDialog.Document = doc
            'Create property to show the dialog
            Dim printResults As DialogprintResults = testPrintDialog.ShowDialog()

            ' If the printResults is OK then print the document.
            If (printResults = DialogprintResults.OK) Then
                doc.Print()
            End If
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try
     End Sub