Как программно сделать запрос в MS Access по умолчанию в альбомной ориентации при печати

Question

Как программно сделать запрос в MS Access по умолчанию на альбомную при печати, особенно при просмотре его как сводной диаграммы? В настоящее время я пытаюсь сделать это в MS Access 2003, но хотел бы увидеть решение для любой версии.

Answer 1

Следующая функция должна помочь:

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

Должен быть в состоянии вызвать это из функции autoexec, чтобы гарантировать, что она всегда работает.

Answer 2

Да, вызов Ахокли устанавливает ориентацию принтера приложения в альбомную ориентацию. Я попробовал эксперимент, и он работал хорошо. Я знаю, что это не создает сводную таблицу, но я не настроил ее для использования, поэтому она открывает и печатает обычный запрос.

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

Если вы хотите закрыть запрос после его печати, добавьте:

docmd.Close acQuery, "qry1", acSaveNo