Private Sub PrintDocumentToImage(ByVal Document As Printing.PrintDocument, ByVal Filename As String)
        Dim controller As New Printing.PreviewPrintController
        controller.UseAntiAlias = False

        Document.PrintController = controller
        Document.Print()

        Dim pages As Printing.PreviewPageInfo() = controller.GetPreviewPageInfo()

        Dim IndexPag As Integer
        For IndexPag = 0 To pages.Length - 1
                    Dim filenameA As String = String.Format("{0}.jpg", Filename, IndexPag)
                    'String.Format("{0}.jpg", Filename, IndexPag)
                    pages(IndexPag).Image.Save(filenameA, System.Drawing.Imaging.ImageFormat.Jpeg)
                    ', System.Drawing.Imaging.ImageFormat.Jpeg)
                Next IndexPag
        Document.PrintController = Nothing
end sub