Imprimir Label

[kachalot]

Private Sub bImp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bImp.Click

'lbar es el label q contiene lo q quiero imprimir
printFont = lBar.Font
PrintDocument1.Print()


End Sub


Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage

Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = e.MarginBounds.Left
Dim topMargin As Single = e.MarginBounds.Top
Dim line As String = Nothing


e.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
yPos, New StringFormat)

End Sub

Seria algo asi??????

Gracias