rtfbox(0).SelPrint picvorne.hdc
    rtfbox(1).SelPrint pichinten.hdc
    rtfbox(2).SelPrint picruecken.hdc
 
     Dim BeginPage, EndPage, NumCopies, i
 
      On Error Resume Next
      With CommonDialog1
        .CancelError = True
 
        .ShowPrinter
        If Err.Number = 0 Then
 
          NumCopies = .Copies
          For i = 1 To NumCopies
 
            Printer.Orientation = vbPRORLandscape
 
            PrintPicture picvorne.Picture, 10, 10, 130, 184
            PrintPicture pichinten.Picture, 140, 10, 14, 184
            PrintPicture picruecken.Picture, 154, 10, 130, 184
 
            Printer.EndDoc
          Next i
        End If
     End With