Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
打印格式如何控制横打
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