منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

استخدم الفيجول بيسك دوت نت

انا اقوم بطباعة بعض البيانات قد تكون صفحة او عددة صفح  استخد م الاحداث  printdocument   ,  prentpreview

اريد تحويلهم الي صورة لو صفحة واحدة او عدة صور لو عدة صفح  وانشاء فولدر  باسم ياتي من تيكست بوكس

بكل عملية طباعة  بمعني يقوم بوضع الالصورة او الصور داخل الفولدر

    Updated

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

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

 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

PrintDocument1.Print

ظهر عدد اكبر من الموجود بالبرنت بريفيو يعني الموجود 3 صفح الكود ظهر 8
الصورة جزء واضح والاخر اسود كلة

---

عدلت مكان الكود وظهر نفس عدد الصور ولكن الصورة تظهر باللون الاسود رابط شكل الصورة

https://www.dropbox.com/s/egidd6pal3ouzp8/0.jpg?dl=0

(27-10-17, 10:12 PM)a.ahmed كتب : [ -> ]

PHP كود :

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    e.Graphics.Clear(Color.White)
    '
    ' 


الصفحة ظهرت بيضاء كلها

ممكن أتفرج علي الصورة الأصلية المطلوب طباعتها

(27-10-17, 10:29 PM)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 


مبدع بكل معني الكلمة
 جزاك اللة الف خير

لو ممكن كود اعادة تصديرهم للبرنت بريفيو  يعني يرجع ينقل الصور كلهم من الفولدر بنفس عددهم للبرنت بريفيو