[a.ahmed]

PrintDocument1.Print

PHP كود :

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 & ".jpg", Imaging.ImageFormat.Jpeg)
    Next
End Sub