|
|
|
Сохранение отчета в формате RTF???
|
|||
|---|---|---|---|
|
#18+
>Сверху над ним Насчет Гаранта-консультанта это правильно, но сверху мне не нравится. Я предлагаю использовать вордовские закладки. Делаем вордовский шаблон, кладем на него закладки, делаем рекордсет, и потом пишем адну функцию, скармливаем ей шаблон и рекордсет а она делает отчет. Поля и закладки соотносит по имени. Один момент Часто нужно, чтобы одно и тоже поле было в разных местах. Поэтому имя закладки нужно сделать на один символ длиннее имени поля. А потом этот символ отрезать. Вот текст функции 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 10:36:03 |
|
||
|
|

start [/forum/topic.php?fid=45&gotonew=1&tid=1673495]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
52ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 202ms |
| total: | 335ms |

| 0 / 0 |
