Udskrift af samme rapport flere gange

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

Hvor Antal er et ubundet felt i formularen hvori du indtaster det antal gange rapporten skal udskrives.

Hold da op, det var godt nok hurtigt, og så virker det endda ;-) Når jeg så har de andre rapporter der kun skal skrives 1 kopi ud af, hvordan får jeg så også dem til at blive printet ud?

Dem kan du blot udskrive først:

Dim i As Integer
Dim Antalex As Integer

DoCmd.OpenReport "Rapport0", acNormal, "", ""
DoCmd.OpenReport "Rapport2", acNormal, "", ""

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

Alle tiders, mange tak for hjælpen siger jeg så bare ;-)

Selv tak - Og tak for point

Det er måske mere smart at du udskriver i omvendt rækkefølge. Hvis du ikke indtaster et antal, så vil den forlade procedüren og du sidder med 2 usskrifter. Når du så prøver igen vil du igen udskrive de 2 rapporter + den 3. i x antal eksemplarer. Prøv denne i stedet:

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
DoCmd.OpenReport "Rapport0", acNormal, "", ""
DoCmd.OpenReport "Rapport2", acNormal, "", ""