طباعة البيانات الموجودة في Listbox

مرحباً أخي الكريم .

يمكن إستخدم PrintDocument من المكتبة System.Drawing.Printing

مثال :

Imports System.Drawing.Printing

Public Class Form1

Private WithEvents DocToPrint As New PrintDocument

Dim I As Integer = 0

Private Sub DocToPrint_PrintPage(ByVal Sender As Object, ByVal E As System.Drawing.Printing.PrintPageEventArgs) Handles DocToPrint.PrintPage

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 Button1_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles Button1.Click

DocToPrint.Print()

End Sub

Private Sub Form1_Load(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles MyBase.Load

For I As Integer = 1 To 84

ListBox1.Items.Add(I.ToString("000"))

Next

End Sub

End Class

تحياتي BasharVS .