الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال:تحويل الطباعة من اليمين الى اليسار والعكس

بدأه mido2010bona في 3 أبريل 2013 · 0 رد · 576 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1

بسم الله الرحمن الرحيم

والصلاة والسلام على خير خلق الله محمد ابن عبد الله علية وعلى اله وصحبة وسلم ثم اما بعد

السلام عليكم ورحمة الله تعالى وبركاتة واهلا بكم جميعا

انا صممت برنامج وكتبت فية اسماء كتيير وعندى مشكلة فى الطباعة الاسماء جاية من اليمين الى اليسار وانا عاوزها تبقى العكس ممكن الطريقة لو سمحتم وكود الطباعة اللى عندى هو

 Private Sub DocToPrint_PrintPage(ByVal Sender As Object, ByVal E As System.Drawing.Printing.PrintPageEventArgs) Handles DocToPrint.PrintPage
        'Dim itemsPerPage = ((E.PageSettings.PrintableArea.Height / 100) * E.Graphics.DpiY) / ListBox1.ItemHeight
        Dim itemsPerPage = 79
        Dim lastItem = currentItemToPrint + itemsPerPage
        Dim t = 0
        For I = currentItemToPrint To lastItem
            If I >= ListBox1.Items.Count Then
                E.HasMorePages = False


                Exit Sub
            End If
            Dim font As New Font("regular", 8)

            currentItemToPrint += 1
            t += 1
            E.Graphics.DrawString(ListBox1.Items(I).ToString(), font _
           , Brushes.Black, E.MarginBounds.Left - 101, ListBox1.ItemHeight * t)
        Next
        E.HasMorePages = currentItemToPrint < ListBox1.Items.Count
        'For I = 0 To ListBox1.Items.Count - 1
        '    E.Graphics.DrawString(ListBox1.Items(I).ToString(), Font _
        '    , Brushes.Black, E.MarginBounds.Left, ListBox1.ItemHeight * I)
        'Next
    End Sub
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        PrintDialog1.Document = DocToPrint

        If ListBox1.Items.Count > 0 Then
            If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then


                currentItemToPrint = 0
                DocToPrint.Print()

            End If
        Else


            MsgBox("لا يمكنك الطباعة لأن القائمة فارغة ")
        End If




    End Sub

تم تعديل هذه المشاركة بواسطة mido2010bona في 3 أبريل 2013 في 18:37

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…