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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم عرض الصورة في تقرير rdlc لماذا atefkhalf2004 2 72 23-03-24, 04:42 AM
آخر رد: atefkhalf2004
  عدم عرض الصورة في تقرير rdlc atefkhalf2004 0 30 21-03-24, 05:23 PM
آخر رد: atefkhalf2004
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 432 09-01-24, 08:40 PM
آخر رد: new_programer
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  احتاج كود اعادة الترقيم في السنة الجديدة ranosh 3 456 27-11-23, 01:25 AM
آخر رد: justforit

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


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