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

Question

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

Answer 1

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

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

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

Answer 2

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

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

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

docmd.Close acQuery, "qry1", acSaveNo