[access报表]打印格式如何控制横打

Private Sub com_rpt_hue_exist_qry_cust_Click()
On Error GoTo Err_com_rpt_hue_exist_qry_cust_Click

Dim stdocname As String
Dim prt As Printer
Set prt = Application.Printers(0)
prt.PaperSize = acPRPSA4
prt.Orientation = acPRORLandscape

stdocname = "hue_exist_mount_qry_cust"
DoCmd.OpenReport stdocname, acPreview
Reports(stdocname).Printer = prt

Exit_com_rpt_hue_exist_qry_cust_Click:
Exit Sub
Err_com_rpt_hue_exist_qry_cust_Click:
MsgBox Err.Description
Resume Exit_com_rpt_hue_exist_qry_cust_Click

End Sub