Imports System
 
Public Class ErrorPrinting
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        Dim gr As Graphics = e.Graphics
        Dim printrect As Rectangle = e.MarginBounds
        Dim fnt As New Font("arial", 12)
        gr.DrawRectangle(Pens.Black, printrect)
        gr.DrawString(myRichTextBox.Text, fnt, Brushes.Black, e.PageBounds.X, _
          e.PageBounds.Y)
        fnt.Dispose()
        e.HasMorePages = False
 
    End Sub
 
    Private Sub Pb_print_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Pb_print.Click
        If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            With PrintDocument1
                .PrinterSettings = CType(PrintDialog1.PrinterSettings.Clone, _
                  Printing.PrinterSettings)
                .Print()
            End With
        End If
    End Sub
 
    Private Sub ErrorPrinting_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim myfont As New Font("Arial", 9, FontStyle.Bold)
        myRichTextBox.Font = myfont
        myRichTextBox.Text = "Import Fehler Report" & vbCr
        Dim i As Integer
        For i = 0 To frm_ilvImport.errorArray.Count - 1
            myRichTextBox.Text += frm_ilvImport.errorArray(i)
        Next
    End Sub
 
End Class