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

解决方案

回答

以下功能可以解决问题：

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

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

回答

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

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

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

docmd.Close acQuery, "qry1", acSaveNo