تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في print preview
#1
السلام عليكم و رحمة الله و بركاته
عند الضغط على زر  معاينة او طباعة أريد لما الصفحة الاولى تمتلأ تفتح صفحة تانية و على ما اعتقد  الكود المطلوب هو 
      e.HasMorePages   لكن ما عرفت كيف اوظفه 

.rar   printpreview.rar (الحجم : 82.49 ك ب / التحميلات : 25)
السُّعُودِيَّةُ عَبَقٌ يَتَدَفَّقُ فِي ذَاكِرَةِ التَّارِيخِ ، وَحَنِينٌ يَجْرِي فِي أَوْصَالِ الرَّغْبَةِ ، وَعَرَقُ رَجَالٍ يَمْلَأُ أَنْفَاسَ الحَيَاةِ ، وَشَوْقٌ يَغْمُرُ جَنَبَاتِ الفُؤَادِ ، وَغُصْنُ زَيْتُونٍ تَطِيرُ إِلَيْهِ بَلَابِلُ الرُّوحِ.
الرد }}}
تم الشكر بواسطة:
#2
(17-10-16, 12:26 PM)صبري زينوبي كتب : السلام عليكم و رحمة الله و بركاته
عند الضغط على زر  معاينة او طباعة أريد لما الصفحة الاولى تمتلأ تفتح صفحة تانية و على ما اعتقد  الكود المطلوب هو 
      e.HasMorePages   لكن ما عرفت كيف اوظفه 

مافي حد  ؟؟
السُّعُودِيَّةُ عَبَقٌ يَتَدَفَّقُ فِي ذَاكِرَةِ التَّارِيخِ ، وَحَنِينٌ يَجْرِي فِي أَوْصَالِ الرَّغْبَةِ ، وَعَرَقُ رَجَالٍ يَمْلَأُ أَنْفَاسَ الحَيَاةِ ، وَشَوْقٌ يَغْمُرُ جَنَبَاتِ الفُؤَادِ ، وَغُصْنُ زَيْتُونٍ تَطِيرُ إِلَيْهِ بَلَابِلُ الرُّوحِ.
الرد }}}
تم الشكر بواسطة:
#3
هذا تعديل بسيط
PHP كود :
Public Class Form1


    Dim rs 
As Integer 99 'عدد الصفوف بالكامل

    Dim rpp As Integer = 20 '
عدد الصفوف في كل صفحة
    Dim ps 
As Integer Math.Ceiling(rs rpp'عدد الصفحات

    Dim p As Integer = 1 '
رقم الصفحة
    Dim r 
As Integer 'رقم الصف


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        p = 1 '
رقم الصفحة
        r 
'رقم الصف

        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        p = 1 '
رقم الصفحة
        r 
'رقم الصف

        PrintDocument1.Print()
    End Sub


    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim sf As New StringFormat
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        Dim hieght As Integer = 100
        Dim font1 As New Font("Myriad Droid", 20, FontStyle.Regular, GraphicsUnit.Pixel)
        Dim font2 As New Font("Myriad Droid", 25, FontStyle.Regular, GraphicsUnit.Pixel)

        Dim rec As New Rectangle(660, 70, 150, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec)
        e.Graphics.DrawRectangle(Pens.Black, rec)
        e.Graphics.DrawString("رقم الفاتورة", font1, Brushes.Black, rec, sf)

        Dim rec1 As New Rectangle(450, 70, 200, 40)
        e.Graphics.FillRectangle(Brushes.White, rec1)
        e.Graphics.DrawRectangle(Pens.Black, rec1)
        e.Graphics.DrawString("0000000000", font1, Brushes.Black, rec1, sf)

        Dim rec13 As New Rectangle(230, 70, 150, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec13)
        e.Graphics.DrawRectangle(Pens.Black, rec13)
        e.Graphics.DrawString("تاريخ الفاتورة", font1, Brushes.Black, rec13, sf)

        Dim rec14 As New Rectangle(20, 70, 200, 40)
        e.Graphics.FillRectangle(Brushes.White, rec14)
        e.Graphics.DrawRectangle(Pens.Black, rec14)
        e.Graphics.DrawString("13/06/1988", font1, Brushes.Black, rec14, sf)

        Dim rec2 As New Rectangle(660, 120, 150, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec2)
        e.Graphics.DrawRectangle(Pens.Black, rec2)
        e.Graphics.DrawString("اسم الزبون", font1, Brushes.Black, rec2, sf)

        Dim rec3 As New Rectangle(450, 120, 200, 40)
        e.Graphics.FillRectangle(Brushes.White, rec3)
        e.Graphics.DrawRectangle(Pens.Black, rec3)
        e.Graphics.DrawString("صبري", font1, Brushes.Black, rec3, sf)

        Dim rec4 As New Rectangle(10, 170, 800, 60)
        e.Graphics.FillRectangle(Brushes.White, rec4)
        e.Graphics.DrawRectangle(Pens.Black, rec4)
        e.Graphics.DrawString("سوق زيد لبيع المواد الغذائية بالجملة", font2, Brushes.Black, rec4, sf)


        Dim rec15 As New Rectangle(20, 120, 200, 40)
        e.Graphics.FillRectangle(Brushes.White, rec15)
        e.Graphics.DrawRectangle(Pens.Black, rec15)
        e.Graphics.DrawString("صفحة " & p & " من " & ps, font1, Brushes.Black, rec15, sf)


        Dim rec5 As New Rectangle(10, 240, 150, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec5)
        e.Graphics.DrawRectangle(Pens.Black, rec5)
        e.Graphics.DrawString("الاجمالي", font1, Brushes.Black, rec5, sf)

        Dim rec6 As New Rectangle(160, 240, 120, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec6)
        e.Graphics.DrawRectangle(Pens.Black, rec6)
        e.Graphics.DrawString("الكمية", font1, Brushes.Black, rec6, sf)

        Dim rec7 As New Rectangle(280, 240, 150, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec7)
        e.Graphics.DrawRectangle(Pens.Black, rec7)
        e.Graphics.DrawString("سعر الصندوق", font1, Brushes.Black, rec7, sf)

        Dim rec8 As New Rectangle(430, 240, 340, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec8)
        e.Graphics.DrawRectangle(Pens.Black, rec8)
        e.Graphics.DrawString("الصــــــنف", font1, Brushes.Black, rec8, sf)

        Dim rec12 As New Rectangle(770, 240, 40, 40)
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, rec12)
        e.Graphics.DrawRectangle(Pens.Black, rec12)
        e.Graphics.DrawString("ر", font1, Brushes.Black, rec12, sf)

        '
/////////////////// سيكون هنا وسط الفاتورة
 
       Dim cnt 280
        For i 
0 To rpp 1
            Dim w1 
As New Rectangle(10cnt15040)
 
           e.Graphics.FillRectangle(Brushes.Whitew1)
 
           e.Graphics.DrawRectangle(Pens.Blackw1)
 
           e.Graphics.DrawString(""font1Brushes.Blackw1sf)

 
           Dim w2 As New Rectangle(160cnt12040)
 
           e.Graphics.FillRectangle(Brushes.Whitew2)
 
           e.Graphics.DrawRectangle(Pens.Blackw2)
 
           e.Graphics.DrawString(""font1Brushes.Blackw2sf)

 
           Dim w3 As New Rectangle(280cnt15040)
 
           e.Graphics.FillRectangle(Brushes.Whitew3)
 
           e.Graphics.DrawRectangle(Pens.Blackw3)
 
           e.Graphics.DrawString(" "font1Brushes.Blackw3sf)

 
           Dim w4 As New Rectangle(430cnt38040)
 
           e.Graphics.FillRectangle(Brushes.Whitew4)
 
           e.Graphics.DrawRectangle(Pens.Blackw4)
 
           e.Graphics.DrawString(""font1Brushes.Blackw4sf)

 
           Dim w5 As New Rectangle(770 cnt4040)
 
           e.Graphics.FillRectangle(Brushes.WhiteSmokew5)
 
           e.Graphics.DrawRectangle(Pens.Blackw5)
 
           e.Graphics.DrawString(rfont1Brushes.Blackw5sf)

 
           cnt cnt 40

            r 
+= 1
            If r 
rs Then Exit For

 
       Next


        If p 
ps Then
            p 
+= 1
            e
.HasMorePages True
            Exit Sub
        End 
If



 
       '/////////////////// وسط الفاتورة

        Dim rec9 As New Rectangle(10, cnt, 150, 40)
        e.Graphics.FillRectangle(Brushes.White, rec9)
        e.Graphics.DrawRectangle(Pens.Black, rec9)
        e.Graphics.DrawString("0000000", font1, Brushes.Black, rec9, sf)

        Dim rec10 As New Rectangle(160, cnt, 120, 40)
        e.Graphics.FillRectangle(Brushes.White, rec10)
        e.Graphics.DrawRectangle(Pens.Black, rec10)
        e.Graphics.DrawString("00000000", font1, Brushes.Black, rec10, sf)

        Dim rec11 As New Rectangle(280, cnt, 530, 40)
        e.Graphics.FillRectangle(Brushes.White, rec11)
        e.Graphics.DrawRectangle(Pens.Black, rec11)
        e.Graphics.DrawString("الإجمــــــــــــــــــــــالي", font1, Brushes.Black, rec11, sf)

    End Sub

End Class 

لكن امامك تعديلات كثيرة خصوصا حساب الهامش
الرد }}}
تم الشكر بواسطة:
#4
بارك الله فيك أخي الكريم 
انا خلاص و لله الحمد لقيت الحل و هو شبيه بما اقترحت انت و سوف ارفق المثال بعد التعديل عسى ان يستفيد منه غيري 
و مشكور مرة اخرى 

.rar   print facture avec listview.rar (الحجم : 91.05 ك ب / التحميلات : 45)
السُّعُودِيَّةُ عَبَقٌ يَتَدَفَّقُ فِي ذَاكِرَةِ التَّارِيخِ ، وَحَنِينٌ يَجْرِي فِي أَوْصَالِ الرَّغْبَةِ ، وَعَرَقُ رَجَالٍ يَمْلَأُ أَنْفَاسَ الحَيَاةِ ، وَشَوْقٌ يَغْمُرُ جَنَبَاتِ الفُؤَادِ ، وَغُصْنُ زَيْتُونٍ تَطِيرُ إِلَيْهِ بَلَابِلُ الرُّوحِ.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 80 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 221 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

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


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