RE:Imprimir con Printdocument
En mi caso utilizo el crystal report y va muy bien, pero si quieres utilizar la clase printdocument sin utilizar otros programas para empezar = t puede servir esto:
Private Sub imprimir()
txtetiqueta1 = " prueba de impresión"
txtetiqueta2 = " Nº : " & Me.numero.Text + numsel
txtetiqueta = " De : " & Me.importe.Text & " €" & _
Chr(10) & " " & Me.fechasalida.Text
Try
Dim PrintDialog1 As New PrintDialog
PrintDialog1.Document = PrintDocument1
PrintDialog1.PrinterSettings.PrinterName = "impresora de salida"
If PrintDocument1.PrinterSettings.IsValid Then
PrintDocument1.Print() 'Imprime texto
Else
MessageBox.Show("La impresora no es valida")
End If
'---------------------------------------------------
Catch ex As Exception
MessageBox.Show("Hay un problema de impresión", _
ex.ToString())
End Try
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(txtetiqueta1, New Font("verdana", 11, FontStyle.Bold), New SolidBrush(Color.Black), 1, 9)
e.Graphics.DrawString(txtetiqueta2, New Font("verdana", 9, FontStyle.Bold), New SolidBrush(Color.Black), 1, 28)
e.Graphics.DrawString(txtetiqueta, New Font("verdana", 13, FontStyle.Bold), New SolidBrush(Color.Black), 1, 57)
End Sub
Es un ejemplo sencillo a partir de aqui lo q quieras.