0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 13
|
||||||
1 | ||||||
Вывод данных из формы в печать через Word04.01.2016, 21:33. Показов 4633. Ответов 11
Метки нет (Все метки)
Имеется база данных "АЗС", суть которой заключается в поставке топлива на 3 заправки. На форме "Накладная" кнопка "Формирование накладной", нажатие которой приводит к переносу инфы в Накладная.docx.
Нужно дописать код VBA, чтобы в ворде заполнялась данными вся таблица, а не только лишь выделеная запись в форме. вот код VBA
0
|
04.01.2016, 21:33 | |
Ответы с готовыми решениями:
11
Подстановка данных в Word и вывод на печать Вывод на печать (оформленных) данных с формы Модуль менеджера для печатной формы. Вывод на печать данных одного документа. Нахождение основных значений оформить через функцию RESHENIE(), ввод данных и вывод на печать через функцию MAIN() |
Модератор
|
|
05.01.2016, 10:53 | 2 |
у вас есть табличная часть накладной и видимо с произвольным числом строк
вряд ли подойдет метод с закладками
0
|
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 13
|
|
05.01.2016, 23:06 [ТС] | 3 |
сделал так
Set P = Forms!Накладная![Поставка подчиненная форма].Form.Recordset Dim i P.MoveLast P.MoveFirst For i = 0 To q.RecordCount - 1 wdd.Tables(1).Rows.Add wdd.Tables(1).Cell(wdd.Tables(1).Rows.Count, 1).Range.Text = P(2) wdd.Tables(1).Cell(wdd.Tables(1).Rows.Count, 2).Range.Text = P(3) wdd.Tables(1).Cell(wdd.Tables(1).Rows.Count, 3).Range.Text = P(1) wdd.Tables(1).Cell(wdd.Tables(1).Rows.Count, 4).Range.Text = P(3) * P(1) P.MoveNext Next i Добавлено через 2 минуты теперь интересует как в подчиненной форме сделать итоги (посчитать общую сумму по накладной), чтобы она отображалась при просмотре главной формы.
0
|
26805 / 14484 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
|
|||||||||||
05.01.2016, 23:29 | 4 | ||||||||||
В примечании подформы создайте свободное поле. В свойстве Данные поля напишите выражение
Да, еще важное замечание на случай когда имя поля формы не совпадает с именем источника поля. Когда будете писать выражение в поле в примечании то обязательно писать имя поля таблицы/запроса, т.е. поля источника, а не поля формы.
0
|
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 13
|
|
05.01.2016, 23:59 [ТС] | 5 |
Спасибо) все получилось
0
|
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
|
|
24.03.2016, 10:56 | 6 |
Помогите пожалуйста советом, скомпоновала код, для выгрузки из формы в шаблон Word и Excel, Excel шикарно выгружает, а Word выгружает, но никак не хочет сохранять под нужным именем, которое определено в коде, посмотрите где ошибка.
0
|
7395 / 4532 / 295
Регистрация: 12.08.2011
Сообщений: 14,015
|
|
24.03.2016, 12:48 | 7 |
Кстати, в заказчике пробелы или кавычки есть?
0
|
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
|
|
25.03.2016, 09:05 | 8 |
никаких кавычек в таблице заказчик нет, это просто ФИО.
выкладываю свое творение ))
0
|
Модератор
|
||||||
25.03.2016, 10:40 | 9 | |||||
Не присвоены имена шаблона и каталог для файлов
0
|
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
|
|
25.03.2016, 11:48 | 10 |
простите я чайник в этом, вставила код в свою базу, который Вы прописали, но у меня ничего не получилось, так и создает новый документ, но не сохраняет в под нужным именем.
0
|
Модератор
|
||||||
25.03.2016, 12:20 | 11 | |||||
у меня все создает(вернее ворд-документ)
для екселя тоже не прописано имя но у вас везде стоит on error goto finish поставьте on error resume next в функции, где формируется ворд Добавлено через 2 минуты
у вас нет закладки (сумма_по_договору_1) и вы вылетаете на конец, вместо того, чтобы идти на следующую строку
2
|
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
|
|
25.03.2016, 12:45 | 12 |
все получилось спасибо, очень помогли, низкий Вам поклон!!!
0
|
25.03.2016, 12:45 | |
25.03.2016, 12:45 | |
Помогаю со студенческими работами здесь
12
Печать формы альбомно(горизонтально) в vba word Передать данные с формы в шаблон Word и отправить на печать Печать из одной формы Access нескольких различных Word документов Печать word документа через Delphi 7 Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |