打印格式如何控制横打
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
