Imports System.Drawing.Printing
 
Public Class DeineKlasse
 
Dim fp As FormPrinting.FormPrinting
 
    Sub Print(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        Dim bmp As New Bitmap(Me.Width, Me.Height)
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.TextRenderingHint = _
          Drawing.Text.TextRenderingHint.AntiAliasGridFit
        e.Graphics.DrawImageUnscaled(bmp, e.PageSettings.Bounds)
        e.HasMorePages = False
        bmp.Dispose()
        e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
        e.PageSettings.PrinterResolution.Kind = PrinterResolutionKind.High
    End Sub
 
    Private Sub CreateFormPrintingObject(ByVal c As _
      System.Windows.Forms.Control)
        fp = New FormPrinting.FormPrinting(c)
    End Sub
 
    Private Sub SetProperties()
        fp.Orientation = FormPrinting.FormPrinting.OrientationENum.Lanscape
    End Sub