Åbne to formularer på en knap

Hvordan får jeg en knap til at printe/preview to rapporter. Begge rapporterne skal begge bruge dataene i sidste record.

Private Sub Command80_Click()
Me.Refresh

On Error GoTo Err_Command80_Click

    Dim stDocName, stDocName1 As String

    stDocName = "Bunker Check List"
    DoCmd.OpenReport stDocName, acPreview
   

    stDocName1 = "Crewlist"
    DoCmd.OpenReport stDocName1, acPreview
Exit_Command80_Click:
    Exit Sub

Err_Command80_Click:
    MsgBox Err.Description
    Resume Exit_Command80_Click
   
End Sub