|
08.10.2010, 14:54
#36889553
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: мы пришли, кто мы, куда идем?
Сообщения: 6 294
Рейтинг:
0
/ 0
|
|
|
|
AndrF,
спасибо за участие. Собственно бесплатный сейчас OO. Вот его и буду юзать. Получилось его НЕМНОГО раскурить. По крайней мере я открываю сохраненный шаблон, пишу в нужные мне ячейки значения или формулы. Форматирую.
Пока не получается сохранять и печатать, но они мне не нужны все равно. Это юзеру достается на выбор собсно как и в дата репорте.
Пока проблема только одна, если шрифт выше строки (выше 12 пунктов), то нужно менять размер строки. А это не получается.
В общем код, который все это делает выглядит так
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.
Public Sub test()
Randomize
ooOpenDoc ("F:\Проект\Шаблоны\Temp\ШаблонЦены.ods") ' открывает документ и передает его 'параметры системным переменным
CreateStyle "AAA", ooLightGrey, ooBlack, 200 ' создает стиль форматирования AAA
For n = 2 To 5
SetCellsFont 7 , n, ooBold, 12 ' устанавливает шрифт, стиль болд
BorderCells 7 + i, n, ooBlack, ooBorder ' рисует рамку
Next n
For i = 1 To 10
PrintCells 7 + i, 2 , i ' рисует значение на лист в координатах R1C1 экселя
PrintCells 7 + i, 3 , "Товар №" & i
PrintCells 7 + i, 4 , Round(Rnd * 100 , 2 )
PrintCells 7 + i, 5 , Format(Date, "DD/MM/YYYY")
StyleCells 7 + i, 5 , "AAA" ' стилизуем ячейки созданным стилем AAA
For n = 2 To 5
BorderCells 7 + i, n, ooBlack, ooBorder 'делаем рамки
Next n
Next i
PrintSumForm 18 , 4 , 8 , 4 , 17 , 4 ' Пишем в ячйку формулу сумма 2 координаты ячейки, 4 координаты диапазона
' вывел её в отдельный саб, т.к. часто юзаю
BorderCells 18 , 4 , ooBlack, ooHighBorder ' рамка
SetCellsFont 18 , 4 , ooBolIt, 12 ' стиль шрифта БолдИталик
ooPrintDoc ' не работает
ooSaveDoc ("F:\Проект\Шаблоны\Temp\ШаблонЦены.ods") ' не работает, точнее работает но вызывает восстановление документа
'ooCloseDoc
End Sub
|
|
|
