Imports System.Drawing.Printing
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
 
        Static intCurrentChar As Int32
        Dim font As New Font("Arial", 10)
 
        Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop, _
          marginBottom As Int32
 
        With PrintDocument1.DefaultPageSettings
            PrintDocument1.DefaultPageSettings.Margins.Bottom = 300
            intPrintAreaHeight = .PaperSize.Height - .Margins.Top - _
              .Margins.Bottom
            intPrintAreaWidth = .PaperSize.Width - .Margins.Left - _
            .Margins.Right
 
            marginLeft = 75 ' X Koordinate
            marginTop = 288 ' Y Koordinate
        End With
 
        If PrintDocument1.DefaultPageSettings.Landscape Then
            Dim intTemp As Int32
            intTemp = intPrintAreaHeight
            intPrintAreaHeight = intPrintAreaWidth
            intPrintAreaWidth = intTemp
        End If
 
        Dim intLineCount As Int32 = CInt(intPrintAreaHeight / font.Height)
        Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, _
          intPrintAreaWidth, intPrintAreaHeight)
 
        Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
 
        Dim intLinesFilled, intCharsFitted As Int32
 
        e.Graphics.MeasureString(Mid(TextBox1.Text, intCurrentChar + 1), font, _
                    New SizeF(intPrintAreaWidth, intPrintAreaHeight), fmt, _
                    intCharsFitted, intLinesFilled)
 
        e.Graphics.DrawString(Mid(TextBox1.Text, intCurrentChar + 1), font, _
            Brushes.Black, rectPrintingArea, fmt)
 
        intCurrentChar += intCharsFitted
 
        If intCurrentChar < TextBox1.Text.Length Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
            intCurrentChar = 0
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dialog As New PrintDialog
        dialog.Document = PrintDocument1
 
        If dialog.ShowDialog = DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub