[Taha Okla]

إذا  كان المحتوى الذي تريد طباعته عبارة عن محتوى نصي
فالكود التالي يفي بالغرض ... الكود على ListBox  ,وليس  ListView  

أفتح مشروع جديد :
1 - قم باستدعاء المكتبة :

كود :

Imports System.Drawing.Printing

الكود هو : 

كود :

Dim Line1 As Integer = -1
Dim PPD1 As New PrintPreviewDialog
Dim PD1 As New PrintDocument()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   PPD1.Document = PD1

   AddHandler PD1.PrintPage,
       Sub(sender2 As Object, e2 As Printing.PrintPageEventArgs)
           e2.HasMorePages = False

           Dim f As Font = New Font(ListBox1.Font.Name, 12, FontStyle.Bold)

           Dim currentHigh1 As Integer = 0

           For i = Line1 To ListBox1.Items.Count - 1
               e2.Graphics.DrawString(ListBox1.Items(i), f, Brushes.Blue, 10, currentHigh1 + 50)

               Line1 += 1
               currentHigh1 += f.Height

               If e2.PageBounds.Height <= currentHigh1 + 100 Then
                   If Line1 - 1 <> ListBox1.Items.Count - 1 Then
                       e2.HasMorePages = True
                       Exit For
                   End If
               End If
           Next
       End Sub

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If ListBox1.Items.Count <= 0 Then Exit Sub

   Line1 = 0
   If PPD1.ShowDialog() = DialogResult.OK Then
       PD1.Print()
   End If

End Sub