Private Sub PrintDocumentToImage(ByVal Document As Printing.PrintDocument, ByVal Filename As String, ByVal FilterIndex As Integer)
        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
        Select Case FilterIndex
            Case 1
                For IndexPag = 0 To pages.Length - 1
                    Dim filenameA As String = String.Format("{0}-{1}.bmp", Filename, IndexPag)
                    
                    pages(IndexPag).Image.Save(filenameA)    
',  system.Drawing.Imaging.ImageFormat.Bmp)
                Next IndexPag

            Case 2
                For IndexPag = 0 To pages.Length - 1
                    Dim filenameA As String = String.Format("{0}-{1}.gif", Filename, IndexPag)
                    pages(IndexPag).Image.Save(filenameA) ', System.Drawing.Imaging.ImageFormat.Gif)
                Next IndexPag

            Case 3 ' da sistemare Tiff
                '  For IndexPag = 0 To pages.Length - 1
                ' dim filenameA As String = String.Format("{0}-{1}.tiff", Filename, IndexPag)
                'pages(IndexPag).Image.Save(filenameA) 
 ',System.Drawing.Imaging.ImageFormat.tiff)
                'Next IndexPag

            Case 4
                For IndexPag = 0 To pages.Length - 1
                    Dim filenameA As String = String.Format("{0}-{1}.jpg", Filename, IndexPag)
                    pages(IndexPag).Image.Save(filenameA) 
', System.Drawing.Imaging.ImageFormat.Jpeg)
                Next IndexPag
        End Select


    End Sub