У меня есть сводная диаграмма в MS-Access, которую я хочу экспортировать в виде файла PDF. Как я могу установить полученную ориентацию PDF от портрета до пейзажа?
3 ответа
1
Когда этот код запускается, все, что вы видите, это диалог сохранения файла. Cute PDF должен быть установлен в соответствии с инструкциями на сайте.
Dim stDocName as string
Dim prn As Printer
Dim rpt As Report
stDocName = "your report object name"
Set prn = Application.Printers("CutePDF Writer")
prn.Orientation = acPRORLandscape
DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
Set rpt = Reports(stDocName)
Set rpt.Printer = prn
DoCmd.PrintOut
DoCmd.Close acReport, stDocName
1
На самом деле есть другой способ - с открытым представлением, которое вы хотите открыть, перейдите в меню «Файл» и выберите «Печать»> «Предварительный просмотр», затем выберите нужный вариант, например, «Пейзаж», сохраните его, и экспорт PDF запомнит его.
1
Вы можете распечатать его с помощью Cute PDF и установить вывод печати на альбомную