打印时在 MS Access 中进行查询默认为横向答案

【问题标题】：Make a Query in MS Access default to landscape when printed打印时在 MS Access 中进行查询默认为横向
【发布时间】：2010-09-09 21:01:09
【问题描述】：

如何以编程方式将 MS Access 中的查询在打印时默认为横向，特别是在将其作为数据透视图查看时？我目前正在 MS Access 2003 中尝试此操作，但希望看到任何版本的解决方案。

【问题讨论】：

标签： vba database ms-access printing

【解决方案1】：

下面的函数应该可以解决问题：

Function SetLandscape()
   Application.Printer.Orientation = acPRORLandscape
End Function

应该能够从 autoexec 函数调用它以确保它始终运行。

【讨论】：

【解决方案2】：

是的，ahockley 的调用将应用程序的打印机方向设置为横向。我尝试了一个实验，效果很好。我知道这不会产生一个数据透视表，但我没有设置一个使用，所以它打开并打印一个常规查询。

Private sub
    Application.Printer.Orientation = acPRORLandscape
    DoCmd.OpenQuery "qry1", acViewNormal, acReadOnly
    DoCmd.PrintOut acPrintAll
End Sub

如果要在打印后关闭查询，添加：

docmd.Close acQuery, "qry1", acSaveNo

【讨论】：