منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تحويل صفحات الطباعة الي صور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحويل صفحات الطباعة الي صور (/showthread.php?tid=22278)

الصفحات: 1 2


تحويل صفحات الطباعة الي صور - محمد اسماعيل - 27-10-17

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

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

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

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


RE: تحويل صفحات الطباعة الي صور - a.ahmed - 27-10-17

PHP كود :
Public Class Form1

    Private PreviewPrintController1 
As New Printing.PreviewPrintController()

 
   Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
        PrintDocument1
.PrintController PreviewPrintController1
        PrintDocument1
.Print()
 
   End Sub

    Private Sub PrintDocument1_PrintPage
(ByVal sender As ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage
        
'
        '
 
       '
        '
 
       '
        '
 
   End Sub

    Private Sub PrintDocument1_EndPrint
(ByVal sender As ObjectByVal e As Printing.PrintEventArgsHandles PrintDocument1.EndPrint
        Dim folder 
As String "E:\excelfile\image\\"
 
       If Not IO.Directory.Exists(folderThen IO.Directory.CreateDirectory(folder)

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

End 
Class 
    Updated


RE: تحويل صفحات الطباعة الي صور - محمد اسماعيل - 27-10-17

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

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

 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


RE: تحويل صفحات الطباعة الي صور - a.ahmed - 27-10-17

PrintDocument1.Print
PHP كود :
Private Sub PrintDocument1_EndPrint(ByVal sender As ObjectByVal e As Printing.PrintEventArgsHandles PrintDocument1.EndPrint
    Dim folder 
As String "E:\excelfile\image\\"
 
   If Not IO.Directory.Exists(folderThen IO.Directory.CreateDirectory(folder)

 
   Dim PreviewPageInfo1() As Printing.PreviewPageInfo PreviewPrintController1.GetPreviewPageInfo()
 
   For i 0 To PreviewPageInfo1.Count 1
        PreviewPageInfo1
(i).Image.Save(folder ".jpg"Imaging.ImageFormat.Jpeg)
 
   Next
End Sub 



RE: تحويل صفحات الطباعة الي صور - محمد اسماعيل - 27-10-17

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

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

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


RE: تحويل صفحات الطباعة الي صور - a.ahmed - 27-10-17

PHP كود :
Private Sub PrintDocument1_PrintPage(ByVal sender As ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage
    e
.Graphics.Clear(Color.White)
 
   '
    ' 



RE: تحويل صفحات الطباعة الي صور - محمد اسماعيل - 27-10-17

(27-10-17, 10:12 PM)a.ahmed كتب :
PHP كود :
Private Sub PrintDocument1_PrintPage(ByVal sender As ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage
    e
.Graphics.Clear(Color.White)
 
   '
    ' 

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


RE: تحويل صفحات الطباعة الي صور - a.ahmed - 27-10-17

PHP كود :
Public Class Form1

    Private PreviewPrintController1 
As New Printing.PreviewPrintController()

 
   Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
        PrintDocument1
.PrintController PreviewPrintController1
        PrintDocument1
.Print()
 
   End Sub

    Private Sub PrintDocument1_PrintPage
(ByVal sender As ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage
        
'
        '
 
       '
        '
 
       '
        '
 
   End Sub

    Private Sub PrintDocument1_EndPrint
(ByVal sender As ObjectByVal e As Printing.PrintEventArgsHandles PrintDocument1.EndPrint
        Dim folder 
As String "E:\excelfile\image\\"
 
       If Not IO.Directory.Exists(folderThen IO.Directory.CreateDirectory(folder)

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

End 
Class 



RE: تحويل صفحات الطباعة الي صور - silverlight - 27-10-17

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


RE: تحويل صفحات الطباعة الي صور - محمد اسماعيل - 27-10-17

(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 ObjectByVal e As EventArgsHandles Button1.Click
        PrintDocument1
.PrintController PreviewPrintController1
        PrintDocument1
.Print()
 
   End Sub

    Private Sub PrintDocument1_PrintPage
(ByVal sender As ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage
        
'
        '
 
       '
        '
 
       '
        '
 
   End Sub

    Private Sub PrintDocument1_EndPrint
(ByVal sender As ObjectByVal e As Printing.PrintEventArgsHandles PrintDocument1.EndPrint
        Dim folder 
As String "E:\excelfile\image\\"
 
       If Not IO.Directory.Exists(folderThen IO.Directory.CreateDirectory(folder)

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

End 
Class 

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

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