《打印格式如何控制横打》

打印格式如何控制横打

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