Springe labels over der er brugt

Kære eksperter.

Jeg har rodet med en database til mit arbejde men er støt på nogle problemer nu. Det er lavet sådan så man kan udskrive labels fandt så en stump kode her på eksperten som man kunne bruge så man kan springe de labels over på arket som er brugt. Det virker fint når man ser det på skærmen men når man skriver ud ser starter den altid fra labels 1 uanset om man har valgt labels 5

Dette er linket til den kode som jeg fandt her
http://eksperten.dk/spm/42385

Den ser sådan her ud.
Option Compare Database
Option Explicit
Dim tæl As Integer
Dim a As Integer
Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If tæl < a Then
Me.NextRecord = False
Me.PrintSection = False
End If
tæl = tæl + 1
End Sub

Private Sub Report_Open(Cancel As Integer)
a = InputBox("Hvilken etiket er den første, der skal bruges?", "Første labels", 1)

tæl = 1

End Sub

Er der nogen der kan fortælle mig hvad jeg gør galt siden den godt nok viser det som det skal være på skærmen men ikke skriver det korrekt ud

Med venlig hilsen

David.