+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 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
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 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
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 Object, ByVal e As Printing.PrintPageEventArgs) Handles 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 Object, ByVal e As Printing.PrintPageEventArgs) Handles 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 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
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 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
مبدع بكل معني الكلمة
جزاك اللة الف خير
لو ممكن كود اعادة تصديرهم للبرنت بريفيو يعني يرجع ينقل الصور كلهم من الفولدر بنفس عددهم للبرنت بريفيو