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

.rar   printpreview.rar (الحجم : 82.49 ك ب / التحميلات : 6)
السُّعُودِيَّةُ عَبَقٌ يَتَدَفَّقُ فِي ذَاكِرَةِ التَّارِيخِ ، وَحَنِينٌ يَجْرِي فِي أَوْصَالِ الرَّغْبَةِ ، وَعَرَقُ رَجَالٍ يَمْلَأُ أَنْفَاسَ الحَيَاةِ ، وَشَوْقٌ يَغْمُرُ جَنَبَاتِ الفُؤَادِ ، وَغُصْنُ زَيْتُونٍ تَطِيرُ إِلَيْهِ بَلَابِلُ الرُّوحِ.
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 19)
السُّعُودِيَّةُ عَبَقٌ يَتَدَفَّقُ فِي ذَاكِرَةِ التَّارِيخِ ، وَحَنِينٌ يَجْرِي فِي أَوْصَالِ الرَّغْبَةِ ، وَعَرَقُ رَجَالٍ يَمْلَأُ أَنْفَاسَ الحَيَاةِ ، وَشَوْقٌ يَغْمُرُ جَنَبَاتِ الفُؤَادِ ، وَغُصْنُ زَيْتُونٍ تَطِيرُ إِلَيْهِ بَلَابِلُ الرُّوحِ.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 163 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 65 02-02-17, 05:40 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 180 24-01-17, 08:32 PM
آخر رد: gmailali
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 84 23-01-17, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 65 22-01-17, 06:02 PM
آخر رد: CoderMM
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 165 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 73 19-01-17, 09:16 PM
آخر رد: ahmed.nabil
  [VB.NET] مساعدة لنشر موقعي safa 1 73 18-01-17, 11:11 AM
آخر رد: أبو عمر
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 154 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 188 13-01-17, 10:44 AM
آخر رد: 0theghost0

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


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