Call LottoScheinDruck(4,4)

Private Sub LottoScheinDruck(iLeftBorder As Integer, iPosX As Integer)
Dim oRand As Single
Dim infTipp As Single
Dim SpdLeft As Single
Dim SpdTop As Single
Dim SpjLeft As Single
Dim SpjTop As Single
Dim tipp As Integer
 
tipp = 1
'...y-Koordinate festlegen
oRand = 15
'...physikalischer Rand oben
pRandob = 3
'...physikalischer Rand links
pRandli = 3
'...Spieldauer
SpdLeft = 32
SpdTop = 91
'...Jokertipps
SpjLeft = 74
SpjTop = 98
'...iNFO
infTipp = 80
 
Printer.Print
  With Printer
    .ScaleMode = 6
    iPosX = iLeftBorder - ((.Width \ 56.7) - .ScaleWidth) \ 2 'linke 
    ' Anfangesposition
    If iPosX < 4 Then iPosX = 4
    .FontName = "Tahoma"
    .FontSize = 8
    .FontBold = True
    '...Druckkopf positionieren
    .CurrentX = iPosX - pRandli
    .CurrentY = oRand - pRandob
 
  Dim Row As Long, Column As Long
  For i = 0 To Label1.UBound
    If Label1(i).Visible = True Then
      Row = i \ 6
      Column = i Mod 6
     ' meiner Vermutung nach liegt hier der Hund begraben
      .CurrentX = Column * iPosX
      .CurrentY = Row * iPosX
      Printer.Print Label1(i).Caption
    End If
 
 
  '...FortlfdNr auf Tippscheinen
  .CurrentX = iPosX * 21
  .CurrentY = infTipp
  Printer.Print "Tippschein Nr. " & CStr(Format(anzahl, "##0"))
  anzahl = anzahl + 1
 
'.......................Info über Tippanzahl ....................
  .CurrentX = iPosX * 21
  .CurrentY = infTipp
  Printer.Print "Tippschein Nr. " & Format(tipp, "##,##0")
  tipp = tipp + 1
 
  Next
.EndDoc
End With
End Sub