'DRUCKE KARTEN !!!
 
Printer.ScaleMode = vbTwips
For y = 0 To 3
 For x = 0 To 1
 
  durchgang_rtf = durchgang_rtf + 1
  RichTextBox1.TextRTF = form_karteikarten.roListBox1.SubItems(durchgang_rtf, 3)
 
  PrintRTB RichTextBox1, 5 + x * 103, 10 + y * abstandy, 98, 50
 
  Next
Next
 
'#####AB HIER BEGINNT DER FALZ DRUCK '##########
 
Dim x, y, li As Integer
x = Printer.ScaleWidth
y = Printer.ScaleHeight
 
Printer.DrawWidth = 1
Printer.DrawStyle = 3
 
Printer.Line (x / 2, 0)-(x / 2, y), vbBlack, B
 
For li = 1 To 5
 
   Printer.DrawWidth = 1
   Printer.DrawStyle = 3
   Printer.Line (0, li * 3145)-(x, li * 3145), vbBlack, B
 
Next
 
Printer.EndDoc