экспорт из RS2008R2 и просмотр не Word'ом / Отчетные системы

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / экспорт из RS2008R2 и просмотр не Word'ом

5 сообщений из 5, страница 1 из 1

экспорт из RS2008R2 и просмотр не Word'ом

#37715600

philips

Участник

Сообщения: 368

Рейтинг: 0 / 0

При сохранении в Word отчет смотрится хорошо только Word'oм. - таблицы - LINE - тотал и футер . Всякими Open Officами корежится не по детски. Кто сталкивался в такими проблемами

...

Рейтинг:

0 / 0

21.03.2012, 13:20

| Ответить | Цитировать | Написать

экспорт из RS2008R2 и просмотр не Word'ом

#37715690

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

philips,

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

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

не знаю --как открывается в ОО(двоих просила--игнорировали)

...

Рейтинг:

0 / 0

21.03.2012, 13:46

| Ответить | Цитировать | Написать

экспорт из RS2008R2 и просмотр не Word'ом

#37715694

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

криминала никакого нетphilips,

...

Рейтинг:

0 / 0

21.03.2012, 13:47

| Ответить | Цитировать | Написать

экспорт из RS2008R2 и просмотр не Word'ом

#37715926

philips

Участник

Сообщения: 368

Рейтинг: 0 / 0

ПЕНСИОНЕРКАкриминала никакого нетphilips,
В ОО открывается нормально тока кодовая страница не та казибяки - но интересно как вы это получили в RS

...

Рейтинг:

0 / 0

21.03.2012, 15:12

| Ответить | Цитировать | Написать

экспорт из RS2008R2 и просмотр не Word'ом

#37715949

ПЕНСИОНЕРКА

Участник

Откуда: Владимирская обл

Сообщения: 4 809

Рейтинг: 0 / 0

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

21.03.2012, 15:22

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / экспорт из RS2008R2 и просмотр не Word'ом

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=31&msg=37715949&tid=1534565]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	167ms
get topic data:	11ms
get forum data:	2ms
get page messages:	48ms
get tp. blocked users:	1ms
others:	239ms

total:	500ms