Экспорт отчета в PDF

@Statheros · Регистрация: 24.08.2017

Студворк — интернет-сервис помощи студентам

Есть отчет содержащий подчиненный отчет. Первый содержит поле год, по которому группируется записи в подчиненном отчете. Задача состоит в переводе данного отчета в электронный формат, позволяющий его открывать на компе, где нет Аксесса. Для этой цели создал форму с полем со списком содержащим годы. Чтобы без лишних действий можно было ознакомиться с содержанием отчета поместил его в форму. При выборе года можно посмотреть нужную часть отчета. С этим справился - все работает. Однако в форме есть кнопка, которая должна вызвать экспорт в пдф.
Вот ее код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub btnPrintRegistry_Click()
Dim filePDF As String
Dim DlgUser%
 
    'Сохранение отчета в файл
    filePDF = CurrentProject.Path & "\Реестры\Реестр распоряжений за " & _
        Me.DYear & ".PDF"
        Debug.Print filePDF
      If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем)
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbQuestion + vbYesNo, "Внимание!")
      End If
 
DoCmd.OutputTo acOutputReport, "repRegistry", acFormatPDF, filePDF, True, , , acExportQualityPrint
 
 
DoCmd.Close
 
End Sub

Ранее использовал его в подобных случаях и все работало. Но сейчас желтым светит строку "DoCmd.OutputTo acOutputReport..." и сообщает "Run-time error '3021' Текущая запись отсутствует. Проблема в этом сложноподчиненном отчете. Ручками если его открыть в Предварительном просмотре, там он экспортируется без проблем. А через код не хочет((((.

Методом тыка в этот код вписывал подчиненный отчет. Он экспортируется в пдф, а в связке с основным нет. Может кто сталкивался...

@АЕ · 29.06.2018, 16:05

Сообщение от Statheros

If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем) DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbQuestion + vbYesNo, "Внимание!") End If

- нажмет нет - и что?
На экране вроде форма открыта, а печатать отчет хотите?

@Statheros · 29.06.2018, 16:23 **[ТС]**

Сообщение от АЕ

На экране вроде форма открыта, а печатать отчет хотите?

Да, так и хотел... Открывается форма, выбираю год, смотрю что получилось, нажимаю кнопку - форма закрывается, создается файл pdf и затем открывается Акробат. Собственно в нем и печатаю.

Сообщение появляется когда файл с таким именем уже создан. До этого я еще не дошел.

Добавлено через 8 минут
И здесь накосячил. Нет нажму все равно файл в пдф уйдет.

@АЕ · 29.06.2018, 16:49

Сообщение от Statheros

Да, так и хотел... Открывается форма, выбираю год, смотрю что получилось, нажимаю кнопку - форма закрывается, создается файл pdf и затем открывается Акробат. Собственно в нем и печатаю.

форма закрывается, в ней поле с условием для запроса в отчет - и что?

@Statheros · 29.06.2018, 17:57 **[ТС]**

Сообщение от АЕ

форма закрывается, в ней поле с условием для запроса в отчет - и что?

Что с закрытие формы, что без закрытия одинаково не работает.

Добавлено через 1 час 2 минуты
Подправил код. Теперь при отказе от перезаписи файла ничего не будет.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub btnPrintRegistry_Click()
Dim filePDF As String
Dim DlgUser%
 
    'Сохранение отчета в файл
    filePDF = CurrentProject.Path & "\Реестры\Реестр распоряжений за " & _
        Me.DYear & ".PDF"
        Debug.Print filePDF
      If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем)
         DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbQuestion + vbYesNo, "Внимание!")
         Select Case DlgUser
         
         Case vbYes
         DoCmd.OutputTo acOutputReport, "repRegistry", acFormatPDF, filePDF, True, , , acExportQualityPrint
         DoCmd.Close
         
         Case vbNo
         Exit Sub
         End Select
      Else
      DoCmd.OutputTo acOutputReport, "repRegistry", acFormatPDF, filePDF, True, , , acExportQualityPrint
      DoCmd.Close
      End If
End Sub

@Statheros · 02.07.2018, 02:22 **[ТС]**

Как-то озадачился отсутствием действия при отказе перезаписать файл. В результате получилось следующее:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub btnPrintRegistry_Click()
Dim filePDF As String
Dim DlgUser%
Dim dlgSave As FileDialog
 
    'Сохранение отчета в файл
    filePDF = CurrentProject.path & "\Реестры\Реестр распоряжений за " & _
        Me.DYear & " год" & ".PDF"
        'Debug.Print filePDF
      If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем)
         DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbQuestion + vbYesNo, "Внимание!")
         Select Case DlgUser
         
         Case vbYes
         DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
         DoCmd.Close acForm, "frmRegistryPrint"
         
         Case vbNo
         
         Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
         With dlgSave
         .InitialFileName = filePDF  'стартовая папка"
         .Title = "Сохраните файл под другим именем!"
         .Filter = "Файлы PDF(*.PDF);*.pdf; Все файлы (*.*);*.*"
         If .Show = True Then
         DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
        ' DoCmd.Close acForm, "frmRegistryPrint"
         Else
         MsgBox "Файл не сохранен!", vbInformation, "Внимание!"
         End If
         End With
                  
        End Select
      Else
      DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
      DoCmd.Close acForm, "frmRegistryPrint"
      End If
End Sub

Вроде все работает, диалог открывается где нужно. Однако в диалоге нет фильтра, тип файла стоит - все файлы. Хотелось бы ограничится PDF. Фильтр я написал не правильно. Аксесс ругается: method or data member not found. Означает ли это что фильтр по pdf сделать нельзя?
Поправьте, пожалуйста код, или наставьте меня своим авторитетным словом.

mobile · 02.07.2018, 06:55

Так попробуйте

Visual Basic
1
2
.Filters.Clear  'На всякий случай почистить фильтр
.Filters.Add "Файлы PDF(*.PDF)", "*.pdf", 1

@Statheros · 02.07.2018, 10:42 **[ТС]**

Сообщение от mobile

Так попробуйте

Visual Basic
1
2
.Filters.Clear *'На всякий случай почистить фильтр
.Filters.Add "Файлы PDF(*.PDF)", "*.pdf", 1

Ругается Аксесс на эти строки:

Run-time error '438':
Object doesn't support this property or method

@Eugene-LS · 02.07.2018, 11:41

Сообщение от Statheros

Ругается Аксесс на эти строки:

Сам давно замечал:
Фильтры работают только в msoFileDialogFilePicker (1), а в msoFileDialogSaveAs (2) уже нет.
Оставьте так как есть (без фильтра), или используйте иной подход (API, FSO, ...)

@Statheros · 02.07.2018, 12:24 **[ТС]**

Проблему экспорта Отчета в PDF решил заменой Основного отчета на форму. Почему-то отчет содержащий подчиненный отчет не экспортировался. Отдельно подчиненный отчет преобразовывался в PDF но соответственно без фильтра, а с основным никак. Сделал вместо отчета форму, поменял "DoCmd.OutputTo acOutputReport..." на "DoCmd.OutputTo acOutputForm" и все заработало. Не знаю правильно ли это, но работает.

Добавлено через 27 минут
Eugene-LS, придется оставить как есть. У меня в базе данных есть API модуль на открытие файла. Брал его здесь в готовых решениях. Написать на сохранение файла сам не смогу.

Может есть у кого?

@Eugene-LS · 02.07.2018, 12:51

Сообщение от Statheros

Написать на сохранение файла сам не смогу.

А если не умчаться, и сделать попроще - типа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim sNewFileName As String
Dim sOldFileName As String
 
    sOldFileName = "Реестр распоряжений за 2018 год.PDF"
    sNewFileName = sOldFileName
    
    Do While sNewFileName = sOldFileName 'Повтор до опупения
        'Тут: InputBox(Message, Title, Default)
        sNewFileName = InputBox("Ввведите новое имя файла!", "Запрос данных ...", sOldFileName)
    Loop

@Statheros · 02.07.2018, 14:50 **[ТС]**

Последний вариант. При отказе от перезаписи можно изменить имя файла и несмотря на отсутствие фильтра новый файл сохраниться как PDF

Если кто опытным взглядов увидит косяки, прошу сообщить.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub btnPrintRegistry_Click()
Dim filePDF As String
Dim filePDFSaveAs As String
Dim fileName As String
Dim DlgUser%
Dim dlgSave As FileDialog
 
 
    'Сохранение отчета в файл
    filePDF = CurrentProject.Path & "\Реестры\Реестр распоряжений за " & _
        Me.DYear & " год" & ".PDF"
        'Debug.Print filePDF
      If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем)
         DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbQuestion + vbYesNo, "Внимание!")
         Select Case DlgUser
         
         Case vbYes
         DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
         DoCmd.Close acForm, "frmRegistryPrint"
         
         Case vbNo
         
         filePDFSaveAs = CurrentProject.Path & "\Реестры\Реестр распоряжений за " & _
        Me.DYear & " год" & ".PDF"
         Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
         With dlgSave
         .InitialFileName = filePDFSaveAs  'стартовая папка"
         .Title = "Сохраните файл под другим именем!"
         If .Show = True Then
         fileName = (.SelectedItems.Item(1)) & ".PDF"
         DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, fileName, True, , , acExportQualityPrint
        ' DoCmd.Close acForm, "frmRegistryPrint"
         Else
         MsgBox "Файл не сохранен!", vbInformation, "Внимание!"
         End If
         End With
                  
        End Select
      Else
      DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
      DoCmd.Close acForm, "frmRegistryPrint"
      End If
End Sub

Добавлено через 57 минут
Eugene-LS, спасибо за этот вариант. Использовал его. Тоже вроде все работает.

Если где косяк, прошу кто его видит сообщите.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub btnPrintRegistry_Click()
Dim filePDF As String
Dim DlgUser%
Dim sNewFileName As String
Dim sOldFileName As String
 
 
    'Сохранение отчета в файл
    filePDF = CurrentProject.path & "\Реестры\Реестр распоряжений за " & _
        Me.DYear & " год" & ".PDF"
        'Debug.Print filePDF
      If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем)
         DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbQuestion + vbYesNo, "Внимание!")
         Select Case DlgUser
         
         Case vbYes
         DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
         DoCmd.Close acForm, "frmRegistryPrint"
         
         Case vbNo
 
         sOldFileName = "Реестр распоряжений за " & Me.DYear & " год" & ".PDF"
         sNewFileName = sOldFileName
    
         Do While sNewFileName = sOldFileName 'Повтор до опупения
             'Тут: InputBox(Message, Title, Default)
             sNewFileName = InputBox("Введите новое имя файла.", "Сохраните файл под другим именем!", sOldFileName)
 
           If sNewFileName = "" Then
           MsgBox "Файл не сохранен!", vbInformation, "Внимание!"
           Exit Sub
           ElseIf sNewFileName = sOldFileName Then
            MsgBox "Вы не изменили имя файла!", vbInformation, "Внимание!"
           Else
            DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, sNewFileName, True, , , acExportQualityPrint
            ' DoCmd.Close acForm, "frmRegistryPrint"
           End If
 
         Loop
         
        End Select
      Else
      DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
      DoCmd.Close acForm, "frmRegistryPrint"
      End If
End Sub

@Eugene-LS · 02.07.2018, 15:35

Сообщение от Statheros

Если где косяк, прошу кто его видит сообщит

Косяков не вижу.
Вот немного сократил только, всё, как мне кажется, нормально работает.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim filePDF As String
Dim sFolder As String 'стартовая папка
Dim DlgUser%
Dim dlgSave As FileDialog
Dim i%
 
    'Сохранение отчета в файл
    sFolder = CurrentProject.path & "\Реестры\"
    'sFolder = "D:\Temp\"
    filePDF = sFolder & "Реестр распоряжений за " & Me!DYear & " год" & ".PDF"
    'Debug.Print filePDF
      
    If Dir(filePDF) <> "" Then 'если нашелся документ по заданому в filePDF полному пути (вместе с именем)
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", _
            vbQuestion + vbYesNo + vbDefaultButton2, "Внимание!")
        
        If DlgUser = vbNo Then
            '-------------------------------------------- Не обязательно!
            'For i = 1 To 999 'Ищем свободный номер версии
            '    filePDF = sFolder & "Реестр распоряжений за " & Me!DYear & " год" & " v" & Format(i, "000") & ".PDF"
            '    If Dir(filePDF) = "" Then Exit For
            'Next i
            '-------------------------------------------- END Не обязательно!
            Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
    
            With dlgSave
                .InitialFileName = filePDF   'стартовая папка"
                .Title = "Сохраните файл под другим именем!"
                If .Show = True Then
                    filePDF = .SelectedItems.Item(1) & ".PDF"
                    If Right(filePDF, 4) <> ".PDF" Then filePDF = filePDF & ".PDF"
                Else
                    MsgBox "Файл не сохранен!", vbExclamation, "Внимание!"
                    Exit Sub
               End If
           End With
        End If
    End If
    
    DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, filePDF, True, , , acExportQualityPrint
    DoCmd.Close acForm, "frmRegistryPrint"

Добавлено через 35 минут

Сообщение от Statheros

Если где косяк, прошу кто его видит сообщите.

Вот подправил второй вариант (с запросом у юсера)

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim sFolder As String 'стартовая папка
Dim sPathPDF As String
Dim iDlgUser%
Dim sFileName As String
Dim sNewFileName As String
 
    'Сохранение отчета в файл
    sFolder = CurrentProject.path & "\Реестры\"
    
    sFileName = "Реестр распоряжений за " & Me!DYear & " год" & ".PDF"
    sPathPDF = sFolder & sFileName
    'Debug.Print sPathPDF
      
    If Dir(sPathPDF) <> "" Then 'если нашелся документ по заданому в sPathPDF полному пути (вместе с именем)
        iDlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", _
            vbQuestion + vbYesNo + vbDefaultButton2, "Внимание!")
        
        If iDlgUser = vbNo Then
            sNewFileName = sFileName
            Do While sNewFileName = sFileName Or sNewFileName = "" 'Повтор до опупения ...
                'Тут: InputBox(Message, Title, Default)
                sNewFileName = InputBox("Введите новое имя файла ...", "Сохраните файл под другим именем!", sFileName)
                If sNewFileName = "" Then
                    'MsgBox "Файл не сохранен!", vbInformation, "Внимание!"
                    If MsgBox("Вы не ввели имя файла! Прекратить экспорт?", vbYesNo + vbInformation + vbDefaultButton1, _
                        "Нет данных") = vbYes Then Exit Sub
                    End If
                If sNewFileName = sFileName Then
                    If MsgBox("Вы не изменили имя файла! Прекратить экспорт?", vbYesNo + vbInformation + vbDefaultButton1, _
                        "Нет данных") = vbYes Then Exit Sub
                End If
            Loop
            sPathPDF = sFolder & sNewFileName
            If Right(sPathPDF, 4) <> ".PDF" Then sPathPDF = sPathPDF & ".PDF" 'проверка расширения (на всякий случай)
        End If
    End If
    
    DoCmd.OutputTo acOutputForm, "Registry", acFormatPDF, sPathPDF, True, , , acExportQualityPrint
    DoCmd.Close acForm, "frmRegistryPrint"

@Statheros · 02.10.2018, 20:54 **[ТС]**

Появился вопрос. Возможно ли при экспорте в pdf выставлять нестандартный размер бумаги? Если да, То как? Нашел как менять размер при печати отчета... А что с экспортом?

@alvk · 03.10.2018, 08:24

В свойствах отчёта можно выставить размер бумаги. Попробуйте.

@Statheros · 04.10.2018, 21:18 **[ТС]**

Разобрался как задать размер отсутствующий в списке размеров бумаги предварительного просмотра.

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Report_Activate()
Dim pr As Access.Printer
 
Set Application.Printer = Nothing
Set pr = Application.Printer
pr.PaperSize = 15
 
End Sub

Однако как только PaperSize ставлю 256 - пользовательский размер и ставлю нужные значения PaperWidth и PaperLength, вылетает ошибка: "method or data member not found"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Report_Activate()
Dim pr As Access.Printer
 
Set Application.Printer = Nothing
Set pr = Application.Printer
  With pr
     .PaperSize = 256
     .PaperWidth = 125 * 10 'Новая ширина
     .PaperLength = 125 * 10 'Новая длина
  End With
 
End Sub

Где накосячил?

Добавлено через 4 минуты

Сообщение от alvk

В свойствах отчёта можно выставить размер бумаги. Попробуйте

У меня Аксесс 2016 в свойствах отчета в режиме конструктора размер бумаги не нашел. В конструкторе нужный размер выставил так: высота - параметр высоты области данных, ширина - ширина отчета. В предварительном просмотре только фиксированный список размеров.

Добавлено через 6 часов 11 минут
Первый вариант тоже не рабочий. Похоже пока с кодом игрался, рабочий вариант стер. Или он почему-то работать перестал. Пока не получается кодом проблему решить. В предварительном просмотре в настройках принтера поменял принтер на конвертер в ПДФ. В его настройках есть пользовательский размер бумаги. Проблема в том, на одном компе конвертер есть, на другом нет.
В справке есть пример как менять кодом ориентацию страницы. Шаманил с ним тоже не работает. Причем ошибок нет, а размер не меняется.

@alvk · 05.10.2018, 02:32

Я в pdf сохраняю другим способом: делаю в Word шаблон, заполняю его из Акцесс, потом сохраняю в pdf

Visual Basic
1
app.ActiveDocument.SaveAs2 FileName:="c:\" & переменнаясназванием & ".pdf", FileFormat:=wdFormatPDF

В worde страницу поменять реально?

@Statheros · 05.10.2018, 17:39 **[ТС]**

Наверное придется оставить затею с прямым экспортом в pdf. В Ворде все настраивается как захочешь. Думал изначально про него, но не хотел возиться с кодом, так как в описанном в этой теме способе экспорта код на мой взгляд попроще. А теперь сделал экспорт в Ворд, вроде все работает.
А по поводу изменения размера страницы пока информацию рыл где-то промелькнуло, что изменение размера в Аксессе предусмотрели (PaperSize = 256), а реализовать ее невозможно. Сослаться на источник не могу, так как от них уже в глазах рябит.

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	02.07.2018, 12:24 [ТС]
	Проблему экспорта Отчета в PDF решил заменой Основного отчета на форму. Почему-то отчет содержащий подчиненный отчет не экспортировался. Отдельно подчиненный отчет преобразовывался в PDF но соответственно без фильтра, а с основным никак. Сделал вместо отчета форму, поменял "DoCmd.OutputTo acOutputReport..." на "DoCmd.OutputTo acOutputForm" и все заработало. Не знаю правильно ли это, но работает. Добавлено через 27 минут Eugene-LS, придется оставить как есть. У меня в базе данных есть API модуль на открытие файла. Брал его здесь в готовых решениях. Написать на сохранение файла сам не смогу. Может есть у кого? 0

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	02.10.2018, 20:54 [ТС]
	Появился вопрос. Возможно ли при экспорте в pdf выставлять нестандартный размер бумаги? Если да, То как? Нашел как менять размер при печати отчета... А что с экспортом? 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	03.10.2018, 08:24
	В свойствах отчёта можно выставить размер бумаги. Попробуйте. 0

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	05.10.2018, 17:39 [ТС]
	Наверное придется оставить затею с прямым экспортом в pdf. В Ворде все настраивается как захочешь. Думал изначально про него, но не хотел возиться с кодом, так как в описанном в этой теме способе экспорта код на мой взгляд попроще. А теперь сделал экспорт в Ворд, вроде все работает. А по поводу изменения размера страницы пока информацию рыл где-то промелькнуло, что изменение размера в Аксессе предусмотрели (PaperSize = 256), а реализовать ее невозможно. Сослаться на источник не могу, так как от них уже в глазах рябит. 0

Экспорт отчета в PDF

Решение