powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение отчета в формате RTF???
1 сообщений из 26, страница 2 из 2
Сохранение отчета в формате RTF???
    #32584672
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Сверху над ним
Насчет Гаранта-консультанта это правильно, но сверху мне не нравится. Я предлагаю использовать вордовские закладки. Делаем вордовский шаблон, кладем на него закладки, делаем рекордсет, и потом пишем адну функцию, скармливаем ей шаблон и рекордсет а она делает отчет. Поля и закладки соотносит по имени.
Один момент
Часто нужно, чтобы одно и тоже поле было в разных местах. Поэтому имя закладки нужно сделать на один символ длиннее имени поля. А потом этот символ отрезать.

Вот текст функции

Private Function fnWordReport(pTemplateName As String, pRst As ADODB.Recordset, _
pCopies As Integer) 'Åñëè pCopies=0, òî preview
On Error GoTo lError
Dim lDoc As Word.Document
Dim lBM As Word.Bookmark
Dim lBM_Name As String
Dim lField_Name As String
If pRst.EOF And pRst.BOF Then Exit Function
pRst.MoveFirst
While Not pRst.EOF


Set lDoc = WordApp.Documents.Add(fnRptPath & pTemplateName & ".dot")
For Each lBM In lDoc.Bookmarks
lBM_Name = lBM.Name
lField_Name = Left(lBM_Name, Len(lBM_Name) - 1)
lBM.Range = Nz(pRst(lField_Name), "")
Next lBM
If pCopies <> 0 Then
lDoc.PrintOut Copies:=pCopies
lDoc.Close wdDoNotSaveChanges
Else
WordApp.Visible = True
End If
pRst.MoveNext
Wend
LExit:
Exit Function
lError:
fnShowError
Resume LExit
End Function
...
Рейтинг: 0 / 0
1 сообщений из 26, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Сохранение отчета в формате RTF???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]