    Private mImage As System.Drawing.Image
    Private mDimension As Drawing.Imaging.FrameDimension
    Private miPageNumber As Integer

    Private Sub PagePrintFunction(ByVal sender As Object, ByVal e As Drawing.Printing.PrintPageEventArgs)
        mImage.SelectActiveFrame(mDimension.Page, miPageNumber)      ' 0 is first page
        miPageNumber += 1
        e.Graphics.DrawImage(mImage, 0, 0)
        If miPageNumber < mImage.GetFrameCount(mDimension.Page()) Then
            e.HasMorePages = True
        End If
    End Sub


    Public Function PrintImage(sFileName as String) As Boolean
        Dim prDoc As New Drawing.Printing.PrintDocument()
        Dim prSettings As New Drawing.Printing.PrinterSettings()

        ' Dimensions have a page property that we need to change pages on the TIF image
        mDimension = New System.Drawing.Imaging.FrameDimension(New System.Guid())
        miPageNumber = 0

        Try
            mImage = System.Drawing.Image.FromFile(sFileName)
        Catch e As System.IO.FileNotFoundException
            MsgBox ("Image file " & e.Message & " not found.")
            Return (False)
        Catch e As Exception
            MsgBox ("Unexpected error getting image file: " & e.ToString)
            Return (False)
        End Try

        Try
            prDoc.DocumentName = "PDF Conversion"
            AddHandler prDoc.PrintPage, AddressOf Me.PagePrintFunction
            prSettings.PrinterName = "Faxer PDF Converter"
            prDoc.PrinterSettings = prSettings
            prDoc.Print()
            prDoc.Dispose()
        Catch e As Exception
            MsgBox (e.ToString)
            Return (False)
        End Try
        mImage.Dispose()
        Return (True)
    End Function
