Как программно сделать запрос в MS Access по умолчанию для ландшафта при печати

Question

Как я могу программным образом сделать запрос в MS Access по умолчанию для пейзажа при печати, особенно при просмотре его как PivotChart? В настоящее время я пытаюсь это сделать в 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