بسم الله الرحمن الرحيم
والصلاة والسلام على خير خلق الله محمد ابن عبد الله علية وعلى اله وصحبة وسلم ثم اما بعد
السلام عليكم ورحمة الله تعالى وبركاتة واهلا بكم جميعا
انا صممت برنامج وكتبت فية اسماء كتيير وعندى مشكلة فى الطباعة الاسماء جاية من اليمين الى اليسار وانا عاوزها تبقى العكس ممكن الطريقة لو سمحتم وكود الطباعة اللى عندى هو
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 SubPrivate 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