[a.ahmed]

PHP كود :

Public Class Form1

    Private PreviewPrintController1 As New Printing.PreviewPrintController()

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        PrintDocument1.PrintController = PreviewPrintController1
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        '
        '
        '
        '
        '
        '
    End Sub

    Private Sub PrintDocument1_EndPrint(ByVal sender As Object, ByVal e As Printing.PrintEventArgs) Handles PrintDocument1.EndPrint
        Dim folder As String = "E:\excelfile\image\\"
        If Not IO.Directory.Exists(folder) Then IO.Directory.CreateDirectory(folder)

        Dim PreviewPageInfo1() As Printing.PreviewPageInfo = PreviewPrintController1.GetPreviewPageInfo()
        For i = 0 To PreviewPageInfo1.Count - 1
            PreviewPageInfo1(i).Image.Save(folder & i & ".png", Imaging.ImageFormat.Png)
        Next
    End Sub

End Class