如何以编程方式将MS Access中的查询默认为横向打印

Question

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

Answer 1

下面的函数应该做的伎俩：

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

应该可以从自动执行功能调用这个以确保它始终运行。

Answer 2

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

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

如果你想打印后关闭查询，添加：

docmd.Close acQuery, "qry1", acSaveNo