udskriv to rapportter og afslut når de er udskrevet

Denne udskriver 3 rapporter og afslutter Access:

Private Sub Ok_Click()
On Error GoTo Err_Ok_Click
Dim stDocName As String
stDocName = "rapport1"
DoCmd.OpenReport stDocName, acPreview
stDocName = "rapport2"
DoCmd.OpenReport stDocName, acPreview
stDocName = "rapport3"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Quiet
Exit_Ok_Click:
Exit Sub
Err_Ok_Click:
MsgBox Err.Description
Resume Exit_Ok_Click
End Sub

ja men venter den til det er sikkert at den er udskrevet.

din kode udskriver heller ikke den prewiever :--)

Jeg plejer altid at udskrive til skærm, fordi mange bare udskriver uden at kontrollere om det er det rigtige. denne udskriver til printer:

DoCmd.OpenReport "Aldersgruppe", acViewNormal, "", "", acNormal

og hvordan kan du sikre dig at rapporterne er udskrevet inden den quiter

Programmet afslutes når rapporterne er sendt til printer.