تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة كل محتويات الصورة بالاضافات الجديدة
#1
عندي بيكتشر واضيف الية بعد الكتابات اثناء عم البرنامج وعند الطباعة لايظهر سوي المحتوي الموجود بالبيكتشر وجميع الاضافات لاتظهر

اريد طباعة وظهور كل محتوي البيكتشر مع ضرورة وضوح الصورة

استخدم الكود الحالي لطباعة


PHP كود :
 Private Sub PrintDocument1_PrintPage(ByVal sender As System.ObjectByVal e As PrintPageEventArgsHandles Printer.PrintPage
        e
.Graphics.DrawImage(PictureBox1.ImagePictureBox1.WidthPictureBox1.Height)
 
   End Sub
    Private Sub Button5_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
        PrintPreviewDialog1
.Document Printer
        PrintPreviewDialog1
.ShowDialog()
 
   End Sub 
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub PrintDocument1_PrintPage(ByVal sender As System.ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage
    e
.Graphics.DrawImage(PictureBox1.ImagePictureBox1.WidthPictureBox1.Height)
    
e.Graphics.DrawString("Text", New Font("Arial"30FontStyle.Bold), Brushes.Blue, New Point(100100))
    
e.Graphics.DrawString(Today.ToLongDateString, New Font("Arial"30FontStyle.Bold), Brushes.Brown, New Point(100150))
End Sub
Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
    PrintPreviewDialog1
.Document PrintDocument1
    PrintPreviewDialog1
.ShowDialog()
End Sub 
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , sendbad100
#3
الف شكر الكود يعمل معي جيدا

لي سؤال اخر هل يمكن تقسيم صفحة الطباعة الي اربع صفوف وطباعة بكل صف 3 بيكتشر بحلقة تكرارية

يبقي صفحة الطباعة مثلا

1 بيكتشر 2بيكتشر 3 بيكتشر

4 بيكتشر 5بيكتشر 6بيكتشر

7 بيكتشر 8بيكتشر 9 بيكتشر

10 بيكتشر 11بيكتشر 12 بيكتشر
الرد
تم الشكر بواسطة:
#4
PHP كود :
Private Sub PrintDocument1_PrintPage(ByVal sender As System.ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage

    Dim recHeight 
As Integer e.PageSettings.PrintableArea.Height 4
    Dim recWidth 
As Integer e.PageSettings.PrintableArea.Width 3

    Dim i 
As Integer 1
    Dim img 
As Image Nothing

    
For 0 To 3
        
For 0 To 2
            
If 1 Then img PictureBox1.Image
            
If 2 Then img PictureBox2.Image
            
If 3 Then img PictureBox3.Image
            
If 4 Then img PictureBox4.Image
            
If 5 Then img PictureBox5.Image
            
If 6 Then img PictureBox6.Image
            
If 7 Then img PictureBox7.Image
            
If 8 Then img PictureBox8.Image
            
If 9 Then img PictureBox9.Image
            
If 10 Then img PictureBox10.Image
            
If 11 Then img PictureBox11.Image
            
If 12 Then img PictureBox12.Image
            e
.Graphics.DrawImage(img, New Rectangle((recWidth), (recHeight), recWidthrecHeight))
            
+= 1
        Next
    Next

    e
.Graphics.DrawString("Text", New Font("Arial"30FontStyle.Bold), Brushes.Blue, New Point(100100))
    
e.Graphics.DrawString(Today.ToLongDateString, New Font("Arial"30FontStyle.Bold), Brushes.Brown, New Point(100150))

End Sub 
الرد
تم الشكر بواسطة: sendbad100
#5
في مشكلة اولا ان الصور عددهم 4 فقط وليسو 12 صورة موزعة الصف الاول الصورة الاولي تظهر ثلاثة مرات بجوار بعض

بيكتشر 1 + الكتابات المضافة اليها بيكتشر 1 + الكتابات المضافة اليها بيكتشر 1 + الكتابات المضافة اليها

بيكتشر 2 + الكتابات المضافة اليها بيكتشر 2 + الكتابات المضافة اليها بيكتشر 2 + الكتابات المضافة اليها

وهكذا خطاء مني اسف

ثانيا الكود ظهر الصورة مشوة والا ضافات لم تظهر الا مرة واحدة الي الصورة الاولي فقط
الرد
تم الشكر بواسطة:
#6
PHP كود :
Private Sub PrintDocument1_PrintPage(ByVal sender As System.ObjectByVal e As Printing.PrintPageEventArgsHandles PrintDocument1.PrintPage

    Dim recHeight 
As Integer e.PageSettings.PrintableArea.Height 4
    Dim recWidth 
As Integer e.PageSettings.PrintableArea.Width 3

    Dim i 
As Integer 1
    Dim img 
As Image Nothing

    Dim z 
As New Size(recWidthrecHeight)

 
   For y 0 To 3
        For x 
0 To 2

            If i 
1 Then img getCard(zPictureBox1.Image"Text1"Today.ToLongDateString)
 
           If i 2 Then img getCard(zPictureBox1.Image"Text2"Today.ToLongDateString)
 
           If i 3 Then img getCard(zPictureBox1.Image"Text3"Today.ToLongDateString)

 
           If i 4 Then img getCard(zPictureBox2.Image"Text4"Today.ToLongDateString)
 
           If i 5 Then img getCard(zPictureBox2.Image"Text5"Today.ToLongDateString)
 
           If i 6 Then img getCard(zPictureBox2.Image"Text6"Today.ToLongDateString)

 
           If i 7 Then img getCard(zPictureBox3.Image"Text7"Today.ToLongDateString)
 
           If i 8 Then img getCard(zPictureBox3.Image"Text8"Today.ToLongDateString)
 
           If i 9 Then img getCard(zPictureBox3.Image"Text9"Today.ToLongDateString)

 
           If i 10 Then img getCard(zPictureBox4.Image"Text10"Today.ToLongDateString)
 
           If i 11 Then img getCard(zPictureBox4.Image"Text11"Today.ToLongDateString)
 
           If i 12 Then img getCard(zPictureBox4.Image"Text12"Today.ToLongDateString)

 
           e.Graphics.DrawImage(img, New Point((recWidth), (recHeight)))

 
           i += 1

        Next
    Next

End Sub

Function getCard(ByVal z As SizeByVal img As ImageByVal t1 As StringByVal t2 As String) As Image
    Using b 
As New Bitmap(z.Widthz.Height)
 
       Using g As Graphics Graphics.FromImage(b)
 
           g.Clear(Color.White)

 
           g.DrawImage(img2030)

 
           g.DrawString(t1, New Font("Arial"10FontStyle.Bold), Brushes.Blue, New Point(3070))
 
           g.DrawString(t2, New Font("Arial"10FontStyle.Bold), Brushes.Brown, New Point(3090))

 
           Return b.Clone
 
       End Using
    End Using
End 
Function 
الرد
تم الشكر بواسطة: sendbad100
#7
اولا الف شكر علي مجهودك معايا وجراك اللة خيرا

الكود بدا يظبط معايا اول صف تمام جدا الخاص بالصورة والبيكتشر 1

- في مشكلة بالصورة رقم 4 بيكتشر رقم 4 لا يظهر ويتكرر بيكتشر3 بدلا منة

- الاضافات لاو صف تماما جدا ولكن الاضافات للصورة 2و3و4 لصف الاول مكررة
الرد
تم الشكر بواسطة:
#8
تم التعديل علي الكود وحل المشكلة الف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة ملف word او text او حتى صورة يونس علي 5 146 16-05-19, 01:24 PM
آخر رد: elgokr
  حفظ الصورة بعد عملية السكنر محمد خيري 7 97 10-05-19, 11:14 PM
آخر رد: asemshahen5
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 308 25-04-19, 09:26 AM
آخر رد: elgokr
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 290 24-04-19, 09:41 PM
آخر رد: elgokr
  حفظ الصورة محمد خيري 4 153 12-03-19, 10:25 PM
آخر رد: محمد خيري
  [سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox mr_hso 3 217 05-03-19, 03:31 PM
آخر رد: mr_hso
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 9 383 26-02-19, 09:18 PM
آخر رد: mr_hso
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 193 15-02-19, 06:28 AM
آخر رد: princelovelorn
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 201 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  [سؤال] طباعة التاريخ في الوورد dell 5 199 21-01-19, 05:55 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم