Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim g As Graphics = e.Graphics
        Dim rect As New Rectangle
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        '############### Grenze zeichnen ##############
        rect = New Rectangle(e.MarginBounds.Left, e.MarginBounds.Top, _
          e.MarginBounds.Width, e.MarginBounds.Bottom)
        g.DrawRectangle(New Pen(Color.Blue, 1), rect)
End Sub

With PrintDocument1
    .DocumentName = "Testdruck"
    .DefaultPageSettings.PrinterSettings.Copies = Convert.ToInt16(Stk.Text)
    .DefaultPageSettings.PrinterSettings.PrinterName = Frm.PrinterName
    .DefaultPageSettings.Landscape = False
End With
 
With PrintPreviewDialog1
    .Document = PrintDocument1
    .WindowState = FormWindowState.Maximized
    .Document.DefaultPageSettings.Margins = New Printing.Margins(5, 5, 5, 5)
    .PrintPreviewControl.Zoom = 1.0
    .PrintPreviewControl.AutoZoom = True
    .ShowDialog()
End With