Hvormange labels vil du printe

Prøv at lege lidt med denne. Antal er et ubundet felt på formularen, der bestemmer hvor mange du vil udskrive:

Dim i As Integer
Dim Antalex As Integer
If IsNull([Antal]) = -1 Then
MsgBox "Du har ikke indtastet antal eksemplarer."
Exit Sub
End If
Antalex = [Antal]
If Antalex <= 1 Then
MsgBox "Du har ikke indtastet antal eksemplarer."
Exit Sub
End If
For i = 1 To Antalex
DoCmd.OpenReport "Rapport2", acNormal, "", ""
Next i

'mugs' den køber jeg, virker, god weekend

Tak for point - Også god weekend til dig :o)