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



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


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