udskriv to rapporter i et hug

Hvordan gør jeg følgende:
Jeg har to forskellige rapporter, men jeg vil gerne skrive dem begge ud i et hug når brugeren trykker på en knap i formularen. Der er kriterier for rapporterne, så jeg har prøvet følgende, der dog ikke giver det ønskede resultat.

Dim stDocName As String
    Dim MinVariabel As Long
    MinVariabel = Me.ID_nr

    stDocName = "Kreditorliste 1 pr side"
    DoCmd.OpenReport stDocName, acPreview, , "[ID_nr]= " & MinVariabel
   
    Dim MinVariabel2 As Long
    MinVariabel2 = Me.Gældbogsnr
       
    Dim stDocName2 As String

    stDocName2 = "undernumre for kreditor 1 pr side"
    DoCmd.OpenReport stDocName, acPreview, , "[Gældbogsnr]= " & MinVariabel2