Office中国论坛/Access中国论坛

标题: 如何用代码设定横向打印报表？ [打印本页]

作者: yellowbanana 时间: 2003-7-8 17:45
标题: 如何用代码设定横向打印报表？
我想用代码设定报表，使其横向打印，请教高手！
[attach]1066[/attach]

作者: yellowbanana 时间: 2003-7-9 18:32
怎么没人懂吗？

作者: wewyhy 时间: 2003-7-12 16:09
[attach]1128[/attach]

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

作者: 竹笛 时间: 2003-7-13 05:41
试试这个：
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 时间: 2003-7-15 01:13
不行啊。 2000里真没有printer属性

作者: 竹笛 时间: 2003-7-15 01:17
再试试这个：
http://www.accessoft.com/dispbbs.asp?boardID=15&RootID=160&ID=160

作者: yellowbanana 时间: 2003-7-15 16:55
楼上的，那些代码我看不懂啊。能不能帮我在上面的例子中加进去？如果你有能力的话。

作者: 竹笛 时间: 2003-7-15 18:47
对不起，我没有这个能力。只是请你参考这些资料，如果你喜欢的话。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)