System.Drawing.Printing.PrintDocument

Protected Overrides Sub OnBeginPrint(ByVal ev As PrintEventArgs)
  MyBase.OnBeginPrint(ev)
  printFont = New Font("Courier New", 10)
  bigPrintFont = New Font("Courier New", 16)
  ActPrintPage = 0
  MaxPrintPage = KeineAhnung
End Sub

Protected Overrides Sub OnPrintPage(ByVal ev As PrintPageEventArgs)
  ev.Graphics.PageUnit = GraphicsUnit.Millimeter
  Dim leftMargin As Single = ev.MarginBounds.Left
  Dim topMargin As Single = ev.MarginBounds.Top
  Dim FontHeight As Single = printFont.GetHeight(ev.Graphics)
  Dim pFormat as new StringFormat()
 
  ev.Graphics.DrawString( AusgabeVariable.ToString(), PrintFont, Brushes.Black, _
    XPos, YPos, pFormat)
 
  if( AktPrintPage <= MaxPrintPage ) Then
    ev.HasMorePages = True
  else
    ev.HasMorePages = False
  End If
End Sub

    ev.HasMorePages = False

Dim MyPrinter As New MyPrintDokument()
MyPrinter.Print()

      Dim MyPrinter As New MyPrintDokument()
      Dim ppv as new PrintPreviewDialog()
      ppv.Document = MyPrinter
      ppv.ShowDialog()
      ppv.Dispose()