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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 92 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 52 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 63 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 173 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 295 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 74 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 79 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 87 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 80 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,114 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان

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


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