如何用代码设定横向打印报表？

yellowbanana

我想用代码设定报表，使其横向打印，请教高手！  

yellowbanana

怎么没人懂吗？

wewyhy

这是一本书中的实例，ACCESS2002版，97和2000的报表无PRINTER属性[em05]

竹笛

试试这个：
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

yellowbanana

不行啊。 2000里真没有printer属性

竹笛

再试试这个：
http://www.accessoft.com/dispbbs.asp?boardID=15&RootID=160&ID=160

yellowbanana

楼上的，那些代码我看不懂啊。 能不能帮我在上面的例子中加进去？如果你有能力的话。

竹笛

对不起，我没有这个能力。只是请你参考这些资料，如果你喜欢的话。