[محمد اسماعيل]

الصور بتروح فين  ههة

انا عدلت بالطريقة دية  ومظهرتش الصور

 If (Not System.IO.Directory.Exists("E:\excelfile\image")) Then
           System.IO.Directory.CreateDirectory("E:\excelfile\image")
       End If

       Dim PreviewPageInfo1() As Printing.PreviewPageInfo = PreviewPrintController1.GetPreviewPageInfo()
       For i = 0 To PreviewPageInfo1.Count - 1
           PreviewPageInfo1(i).Image.Save("E:\excelfile\image\" & i & ".jpg", Imaging.ImageFormat.Jpeg)
         
       Next