Как программно сделать запрос в 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