' Controls: Picturebox, 8 * RichTextBox
Dim Breite&, Höhe&, i&, j&, N&
 
Breite = 366
Höhe = 288
N = 0
Me.ScaleMode = vbPixels
Printer.Orientation = vbPRORPortrait
Printer.ScaleMode = vbPixels
With Picture1
  .Visible = False
  .BorderStyle = vbBSNone
  .ScaleMode = vbPixels
  .BackColor = vbWhite
  .Move 0, 0, Breite, Höhe
  .AutoRedraw = True
  For j = 0 To 3
    For i = 0 To 1
      N = N + 1
      .Cls
      Me.Controls("RichTextBox" & CStr(N)).SelPrint .hDC, False
      Printer.PaintPicture .Image, Breite * i, Höhe * j
    Next i
  Next j
End With
Printer.EndDoc

Gruss,

Zardoz