代码之家 › 专栏 › 技术社区 › Curtis Inderwiesche

如何在MS Access中以编程方式使查询在打印时默认为横向

access-vba properties database sql

1

Curtis Inderwiesche · 技术社区 · 16 年前

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

2 回复 | 直到 11 年前

1

3

ahockley 16 年前

下面的函数应该可以做到这一点:

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

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

2

0

Brettski 16 年前

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

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

如果要在打印后关闭查询,请添加:

docmd.Close acQuery, "qry1", acSaveNo