تقييم الموضوع :
  • 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
تم التعديل علي الكود وحل المشكلة الف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ الصورة محمد خيري 4 103 12-03-19, 10:25 PM
آخر رد: محمد خيري
  [سؤال] محتويات Textbox تتاثر باختيار كائن معين من Combobox mr_hso 3 152 05-03-19, 03:31 PM
آخر رد: mr_hso
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 9 307 26-02-19, 09:18 PM
آخر رد: mr_hso
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 142 15-02-19, 06:28 AM
آخر رد: princelovelorn
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 148 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  [سؤال] طباعة التاريخ في الوورد dell 5 140 21-01-19, 05:55 PM
آخر رد: elgokr
Exclamation [VB.NET] طباعة DataGridViewer في جدول التقارير sniperjawadino 2 239 21-01-19, 04:28 PM
آخر رد: sniperjawadino
  [سؤال] طباعة تقرير بالريبورتير فيو اسامه الهرماوي 7 283 31-12-18, 02:24 AM
آخر رد: اسامه الهرماوي
  مشكلة في كود الصورة Adata 2 136 29-12-18, 02:30 PM
آخر رد: Adata
  مشكلة في حفظ الصورة في sqlite وعرضها في datagridview و pictuer princelovelorn 1 158 26-12-18, 07:08 PM
آخر رد: princelovelorn

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


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