• 0
mido2010bona

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

سؤال

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

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

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

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

 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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .