Сохранить отчет в формате PDF

@mserg1972 · Регистрация: 18.12.2013

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

Подскажите пжлст:
Формируется отчет на N количестве страниц (Приказы).
Как каждую страницу (каждый Приказ) сохранить отдельным файлом .pdf

Я предположил решить этот вопрос так:
- формирую в цикле перебора рекордсета каждый отчет (Запуск процедуры по нажатию кнопки в форме), - сохраняю в этом же цикле отчет в формате .pdf при этом название файла формирую из данных поля (ЦФО) рекордсета.
!!! Но тут столкнулся с проблемой передачи данных из рекордсета в формируемые отчеты.
Если поставить код в процедуру загрузки, то всегда формируется один и тот же отчет, без перебора всех данных рекордсета.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Report_Load()
Dim otl As DAO.Recordset
Dim cfo As String
Set otl = CurrentDb.OpenRecordset("SELECT зпрФактПлан.ЦФО,зпрФактПлан.Город, зпрФактПлан.Адрес," _
& " зпрФактПлан.[Юридическое лицо],зпрФактПлан.[Дата текущей инвентаризации]  FROM зпрФактПлан")
Me!Организация = otl![Юридическое лицо]
Me!Подразделение = otl!ЦФО
Me!ЦФОО = otl!ЦФО
Me!АдресМагазина = "Город" & "  " & otl!Город & "  " & otl!Адрес
Me!ДатаИнвы = otl![Дата текущей инвентаризации]
Me!ДатаКонец = (otl![Дата текущей инвентаризации]) + 1
Me!ДатаСдача = (otl![Дата текущей инвентаризации]) + 5
otl.Close
    Set otl = Nothing
End Sub

Может у кого то есть идея как реализовать такой процесс, а то потом рассылать каждый приказ отдельно и не очень удобно в ручную резать и переименовывать файл PDF.

@Agapov_stas · 03.03.2014, 14:55

Visual Basic
1
 DoCmd.OutputTo acOutputReport, rptName, acFormatPDF, PDFFileName, False

@vadim1208 · 03.03.2014, 15:13

Я бы посоветовал создать отдельную таблицу для отчета(прописать ее в Источник записей отчета),а потом заполнять ее из цикла текущего рекордсета,т.е. будет два рекордсета,и тогда отчет сформируется полностью.

@mserg1972 · 03.03.2014, 15:25 **[ТС]**

Если я правильно понял, то в этой таблице всегда будет одно, новое значение перед формированием отчета? Правильно? Которое будет заноситься в таблицу при переборе рекордсета.

@Agapov_stas · 03.03.2014, 15:28

А что, если пройтись по рекордсету, взять номера приказов и выводить отчеты в PDF как раз по одному, указав в условии WhereCondition этот номер?

@Rube · 04.03.2014, 08:29

Если приказы рассылаются по юрлицам, то так:

Visual Basic
1
2
3
4
5
6
7
8
For each Юрлицо in array("Юрлицо1", "Юрлицо2")
Set otl = CurrentDb.OpenRecordset("SELECT зпрФактПлан.ЦФО,зпрФактПлан.Город, зпрФактПлан.Адрес," _
& " зпрФактПлан.[Юридическое лицо],зпрФактПлан.[Дата текущей инвентаризации]  FROM зпрФактПлан" _
& " WHERE зпрФактПлан.[Юридическое лицо] = '" & Юрлицо & "'")
Me!Организация = otl![Юридическое лицо]
Me!Подразделение = otl!ЦФО
...
Next

Вместо array("Юрлицо1", "Юрлицо2") можно использовать рекордсет с группировкой по [Юридическое лицо].

@mserg1972 · 04.03.2014, 08:56 **[ТС]**

Спасибо, но рассылка идет по ЦФО (каждый магазин)

Не могу понять почему не обновляется таблица тблДанныеИН22, хотя есть подозрение, что таблица обновляется но в конце заносит пустые значения, так как по циклу последние значения пустые, так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ИНВ22_Click()
Dim otl As DAO.Recordset
Dim ots As String
Set otl = CurrentDb.OpenRecordset("SELECT зпрФактПлан.ЦФО, зпрФактПлан.Город, зпрФактПлан.Адрес," _
    & " зпрФактПлан.[Юридическое лицо],зпрФактПлан.[Дата текущей инвентаризации]  FROM зпрФактПлан")
Do Until otl.EOF
ots = "UPDATE тблДанныеИнв22" _
    & " SET тблДанныеИнв22.[ЦФО] = '" & otl!ЦФО & "'," _
    & " тблДанныеИнв22.[Город] = '" & otl!Город & "'," _
    & " тблДанныеИнв22.[Адрес] = '" & otl!Адрес & "'," _
    & " тблДанныеИнв22.[Юридическое лицо] = '" & otl![Юридическое лицо] & "'," _
    & " тблДанныеИнв22.[Дата текущей инвентаризации] = '" & otl![Дата текущей инвентаризации] & "'"
CurrentDb.Execute ots
otl.MoveNext
Loop
otl.Close
    Set otl = Nothing
End Sub

@Rube · 04.03.2014, 09:35

Так у вас цикл делает одно и тоже, ots же не меняется в нем, а переписывает сам себя. Или добавляйте в ots WHERE, или делайте как я написал выше.

@mserg1972 · 04.03.2014, 10:11 **[ТС]**

Почему не меняет данные, в цикле я каждый раз ведь присваиваю значения.
По крайней мере цикл перебирает все значения рекордсета otl И я присваиваю значение каждого поля в таблице тблДанные22 каждый раз новое значение.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Do Until otl.EOF
ots = "UPDATE тблДанныеИнв22" _
    & " SET тблДанныеИнв22.[ЦФО] = '" & otl!ЦФО & "'," _
    & " тблДанныеИнв22.[Город] = '" & otl!Город & "'," _
    & " тблДанныеИнв22.[Адрес] = '" & otl!Адрес & "'," _
    & " тблДанныеИнв22.[Юридическое лицо] = '" & otl![Юридическое лицо] & "'," _
    & " тблДанныеИнв22.[Дата текущей инвентаризации] = '" & otl![Дата текущей инвентаризации] & "'"
CurrentDb.Execute ots
MsgBox (otl!ЦФО)
otl.MoveNext
Loop

Добавлено через 13 минут
Интересная история, у меня таблица не обновлялась пока в ней не было ни одного поля, как только я руками занес одну строку, код заработал. Код не мог обновить пустые значения.

@Agapov_stas · 04.03.2014, 10:21

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

у меня таблица не обновлялась пока в ней не было ни одного поля

Update работает, если только уже есть запись, которую необходимо обновить.
Проверяйте на наличие записи, и используйте Insert или отображайте сообщение.

@Rube · 04.03.2014, 10:30

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

Почему не меняет данные, в цикле я каждый раз ведь присваиваю значения.

Значения то присваиваете, а поля остаются одни и те же. Если тблДанныеИнв22 используется как временная таблица для формирования отчета, то тогда да, можно и так. Но нужна хоть одна запись в таблице.

@mserg1972 · 04.03.2014, 11:44 **[ТС]**

Вообщем вот такой получился код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ИНВ22_Click()
Dim otl As DAO.Recordset
Dim ots, cfo, path As String
path = "C:\Users\s.aleksashin\Desktop\Официальные документы для удержания\Приказы\"
Set otl = CurrentDb.OpenRecordset("SELECT зпрФактПлан.ЦФО, зпрФактПлан.Город, зпрФактПлан.Адрес," _
    & " зпрФактПлан.[Юридическое лицо],зпрФактПлан.[Дата текущей инвентаризации]  FROM зпрФактПлан")
Do Until otl.EOF
ots = "UPDATE тблДанныеИнв22" _
    & " SET тблДанныеИнв22.[ЦФО] = '" & otl!ЦФО & "'," _
    & " тблДанныеИнв22.[Город] = '" & otl!Город & "'," _
    & " тблДанныеИнв22.[Адрес] = '" & otl!Адрес & "'," _
    & " тблДанныеИнв22.[Юридическое лицо] = '" & otl![Юридическое лицо] & "'," _
    & " тблДанныеИнв22.[Дата текущей инвентаризации] = '" & otl![Дата текущей инвентаризации] & "'"
    CurrentDb.Execute ots
DoCmd.OutputTo acOutputReport, "отчПлан", acFormatPDF, path & otl!ЦФО & ".pdf", False
otl.MoveNext
Loop
otl.Close
   Set otl = Nothing
End Sub

, работает, но почему то периодически выскакивает ошибка:

И еще вопрос во время выполнения сохранения отчета часто открывается и закрывается окно сохранения файла, можно сделать это не видимым?

@Agapov_stas · 04.03.2014, 11:52

Visual Basic
1
DoCmd.OutputTo acOutputReport, "отчПлан", acFormatPDF, path & "" & otl!ЦФО & ".pdf", False

mobile · 04.03.2014, 12:05

Такая ошибка может возникнуть по разным причинам. Наиболее частая это когда в отчете оформлено событие Отсутствие данных (OnNoData) или в событии открытия отчета, при отсутствии данных параметру Cancel задается значение True для выхода.
Но в любом случае ошибку можно обойти, применив обработку ошибок

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
....................................
On Error Goto errend 'Перейти на метку errend при возникновении ошибки
DoCmd.OutputTo acOutputReport, "отчПлан", acFormatPDF, path & otl!ЦФО & ".pdf", False
otl.MoveNext
NextRec:
Loop
otl.Close
   Set otl = Nothing
NoErr:
Exit Sub
errend:
Select Case Err.Number
   Case 2501: Resume NextRec 'Перейти на следующую запись
   Case Else 
       Msgbox "Ошибка " & err & " " & err.description
       Resume NoErr : 'Закончить процедуру и проанализировать ошибку
End Select
End Sub

@mserg1972 · 04.03.2014, 12:58 **[ТС]**

Agapov_Stas
Не помогло, ошибка все равно остается.
А можно сделать, что бы во время выполнения сохранения файлов, окно вообще ничего не отражало?
Попробую второе предложение

Добавлено через 5 минут
Обход ошибки помог, спасибо.

А можно сделать так, что бы окно сохранение не мигало а было не видимым, пока программа не отработает процедуру.

mobile · 04.03.2014, 13:09

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

А можно сделать так, что бы окно сохранение не мигало а было не видимым, пока программа не отработает процедуру.

В самом начале процедуры задайте эхо=фалсе, а перед экзит суб эхо=труе

Visual Basic
1
2
3
4
5
6
7
8
Private Sub ИНВ22_Click()
  Application.Echo=False 'Отключить обновление экрана
.........................
.........................
.........................
NoErr:
  Application.Echo=True 'Включить обновление экрана
Exit Sub

@mserg1972 · 05.03.2014, 07:24 **[ТС]**

Показывает ошибку при выполнении.

@Agapov_stas · 05.03.2014, 08:08

Попробуйте:

Visual Basic
1
CurrentProject.Application.Echo=False

@ltv_1953 · 05.03.2014, 08:36

Или так:

Visual Basic
1
Application.Echo False

@mserg1972 · 05.03.2014, 11:12 **[ТС]**

Visual Basic
1
CurrentProject.Application.Echo=False

выдает ту же ошибку.

Visual Basic
1
2
CurrentProject.Application.Echo False
Application.Echo False

Ошибку не выдает, но и периодическое появление и мигание таблицы с сохранением не исчезло

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Сохранить отчет в формате PDF

Решение

Решение

@vadim1208 59 / 8 / 1 Регистрация: 15.12.2012 Сообщений: 53
	03.03.2014, 15:13
	Сообщение было отмечено mserg1972 как решение Решение Я бы посоветовал создать отдельную таблицу для отчета(прописать ее в Источник записей отчета),а потом заполнять ее из цикла текущего рекордсета,т.е. будет два рекордсета,и тогда отчет сформируется полностью. 1

@mserg1972 1 / 1 / 2 Регистрация: 18.12.2013 Сообщений: 239
	03.03.2014, 15:25 [ТС]
	Если я правильно понял, то в этой таблице всегда будет одно, новое значение перед формированием отчета? Правильно? Которое будет заноситься в таблицу при переборе рекордсета. 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	03.03.2014, 15:28
	А что, если пройтись по рекордсету, взять номера приказов и выводить отчеты в PDF как раз по одному, указав в условии WhereCondition этот номер? 2

@Rube 914 / 562 / 88 Регистрация: 13.02.2014 Сообщений: 2,083
	04.03.2014, 09:35
	Так у вас цикл делает одно и тоже, ots же не меняется в нем, а переписывает сам себя. Или добавляйте в ots WHERE, или делайте как я написал выше. 0

@mserg1972 1 / 1 / 2 Регистрация: 18.12.2013 Сообщений: 239
	04.03.2014, 12:58 [ТС]
	Agapov_Stas Не помогло, ошибка все равно остается. А можно сделать, что бы во время выполнения сохранения файлов, окно вообще ничего не отражало? Попробую второе предложение Добавлено через 5 минут Обход ошибки помог, спасибо. А можно сделать так, что бы окно сохранение не мигало а было не видимым, пока программа не отработает процедуру. 0

@mserg1972 1 / 1 / 2 Регистрация: 18.12.2013 Сообщений: 239
	05.03.2014, 07:24 [ТС]
	Показывает ошибку при выполнении. Миниатюры 0