Udskriv Forespørgsel

Jeg skal have udkrevet en forespørgsel, men jeg vil gerne have at den printer på en liggende side.

Ind til videre har jeg koden:

Private Sub Udskriv_liste_Click()
On Error GoTo Err_Udskriv_liste_Click

    Dim stDocName As String
    Dim MyForm As Form

    stDocName = "qryFirmUdskriv"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acQuery, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Udskriv_liste_Click:
    Exit Sub

Err_Udskriv_liste_Click:
    MsgBox Err.Description
    Resume Exit_Udskriv_liste_Click
   
End Sub


Hvordan får jeg det til automatisk at udskrive liggende?