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

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

vba database ms-access printing

17.09.2008 04:55

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

2 791

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Ответ принят как подходящий

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

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

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

17.09.2008 07:26

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

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

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