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

时　间:2009-05-20 08:31:18
作　者:UMVSoft整理   ID：1445  城市：上海
摘　要:打印格式如何控制横打
正　文:

打印格式如何控制横打

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