Como imprimir en VB 2008

Hola aqui les dejo este codigo..necesito ayuda para que me imprima bn ya que todos los datos seme empalman..

Private Sub Imprimir_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimir_btn.Click
DialogoImprimir.PrinterSettings = DialogoImprimir.PrinterSettings
DialogoImprimir.ShowDialog()
Impresora.Print()
End Sub

Sub Impresora_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
CargarFuente()
' imprimimos la cadena en el margen izquierdo
'Dim xPos As Single = e.MarginBounds.Left
' la posición superior
'Dim yPos As Single = e.MarginBounds.Top
Dim font1 As New Font("Arial", 12, FontStyle.Regular)
'Dim lineHeight As Single = font1.GetHeight(e.Graphics)
'Dim leftMargin As Single = e.MarginBounds.Left
'Dim ypos As Single = e.MarginBounds.Top

e.Graphics.DrawString(Valor_lbl.Text, font1, Brushes.Black, 30, 30)
e.Graphics.DrawString(Codigo_lbl.Text, MiFuente, Brushes.Black, 30, 30)
e.Graphics.DrawString(Label1.Text, font1, Brushes.Black, 30, 30)


End Sub
End Class