Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / экспорт из RS2008R2 и просмотр не Word'ом / 5 сообщений из 5, страница 1 из 1
21.03.2012, 13:20
    #37715600
philips
philips
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
экспорт из RS2008R2 и просмотр не Word'ом
При сохранении в Word отчет смотрится хорошо только Word'oм. - таблицы - LINE - тотал и футер . Всякими Open Officами корежится не по детски. Кто сталкивался в такими проблемами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2012, 13:46
    #37715690
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
экспорт из RS2008R2 и просмотр не Word'ом
philips,

попробуйте открыть OpenOffice

-формирую программно из всех подсистем(ворд, ексель,аксесс,фохпро,1с......)
-просмотр в броузере
-печать в ворде с автоподгоном ширины таблицы и вгонки хвостика(1-2 строки) и лист
-доработка в екселе при необходимости

не знаю --как открывается в ОО(двоих просила--игнорировали)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2012, 13:47
    #37715694
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
экспорт из RS2008R2 и просмотр не Word'ом
криминала никакого нетphilips,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2012, 15:12
    #37715926
philips
philips
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
экспорт из RS2008R2 и просмотр не Word'ом
ПЕНСИОНЕРКАкриминала никакого нетphilips,
В ОО открывается нормально тока кодовая страница не та казибяки - но интересно как вы это получили в RS
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2012, 15:22
    #37715949
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
экспорт из RS2008R2 и просмотр не Word'ом
philips,

програмно формирую текстовик, указываю кодировку (вам послала windows, делаю и dos)

-основные теги (table. tr.td.th...........)
-никаких фокусов и вывертов

с ходу не найду нужного образца

примерно так

Код: vbnet
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.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
'в аксессе, екселе....... чтобы не возиться со столбцами применяла прием
'размер шрифтов и ориентацию бумаги можно прописать(и шрифт)
Dim rst As DAO.Recordset
Dim s1
Dim j1, j2
Public Sub a120317_1033()

s1 = ""
s1 = s1 & "TRANSFORM Count(w.[Код]) AS [Count-Код]"
s1 = s1 & " SELECT w.[Источник поступления информации], Count(w.[Код]) AS [Итого]"
s1 = s1 & " FROM [наряд-задание] w"
s1 = s1 & " where Format([Дата(наряд-задание)],'yyyy')='2012'"
s1 = s1 & " GROUP BY w.[Источник поступления информации]"
s1 = s1 & " PIVOT Format([Дата(наряд-задание)],'yyyy-mm-dd');"
form_perekrest s1, "c:\rab\ot1.htm", "explorer"
' explorer
' word
' excel
End Sub
Sub form_perekrest(zsql, zname, Optional zreg As String = "e")
Set rst = CurrentDb.OpenRecordset(zsql)
Open zname For Output As #1
Print #1, "<html>"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''кодировка
Print #1, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1251"" />"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''стили и размер листа\полей
''не прописаны, хотя для примера это не существенно
Print #1, "<table border=1 width=100% cellspacing=0 cellpadding=0>"
Print #1, "<thead>"
Print #1, "<tr>"
j1 = 0
j2 = rst.Fields.Count
Do While j1 < j2

Print #1, "<th>", rst.Fields(j1).Name
j1 = j1 + 1
Loop
Print #1, "</thead>"
Print #1, "<td>", "text2"
Do While rst.EOF = False
Print #1, "<tr>"
j1 = 0
j2 = rst.Fields.Count
Do While j1 < j2

Print #1, "<td>", Nz(rst.Fields(j1).Value, "-")
j1 = j1 + 1
Loop
rst.MoveNext
Loop
Print #1, "</table>"
Print #1, "</html>"
Close #1
If zreg = "word" Then
j1 = Shell("winword.exe c:\rab\ot1.htm", vbNormalFocus)
ElseIf zreg = "excel" Then
j1 = Shell("excel.exe c:\rab\ot1.htm", vbNormalFocus)
Else
j1 = Shell("explorer.exe c:\rab\ot1.htm", vbNormalFocus)
End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / экспорт из RS2008R2 и просмотр не Word'ом / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 489ms
Закрыть
start [/forum/topic.php?fid=31&mobile=1&tid=1534565]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 176ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 223ms
total:  489ms
x
x
Закрыть


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