|
|
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
Сделал программу. В ней около 50-ти отчетов. Шеф попросил, чтобы я размер шрифтов сделал больше (11пт). Сами понимаете, 50 отчетов редактировать вручную хреново....может подскажете, где лежит волшебная таблетка? :) Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 11:01:00 |
|
||
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
Ты дольше будешь искать "таблетку". Быстрее сделать все в ручную. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 11:15:57 |
|
||
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
DafТы дольше будешь искать "таблетку". Быстрее сделать все в ручную. То есть нельзя ничего сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 11:17:34 |
|
||
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
Можно написать программу - но проще сделать руками, тем более, что это быстро делается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 11:36:10 |
|
||
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
Мультиселектом пользуйся, время сэкономишь ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 11:36:33 |
|
||
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
Просто поменять размер шрифта можно и так: Dim MyDB As Database, MyTable As Recordset Dim t_report As Report, t_ctrl As Control Set MyDB = CurrentDb() For Each t_report In Reports For Each t_ctrl In t_report.Controls If t_ctrl.ControlType = acLabel Or t_ctrl.ControlType = acTextBox Then t_ctrl.FontSize = 11 End If Next t_ctrl Next t_report но потом могут возникнут проблемы с размером самих контролов. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 11:45:15 |
|
||
|
Редактируем ОТЧЕТЫ!
|
|||
|---|---|---|---|
|
#18+
RoalexПросто поменять размер шрифта можно и так: Dim MyDB As Database, MyTable As Recordset Dim t_report As Report, t_ctrl As Control Set MyDB = CurrentDb() For Each t_report In Reports For Each t_ctrl In t_report.Controls If t_ctrl.ControlType = acLabel Or t_ctrl.ControlType = acTextBox Then t_ctrl.FontSize = 11 End If Next t_ctrl Next t_report но потом могут возникнут проблемы с размером самих контролов. Да мультиселектом пользуюсь....контролы подводят....да ладно...вручную сделаю. Спасибо всем. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.08.2004, 12:35:18 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32642305&tid=1672606]: |
0ms |
get settings: |
5ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
50ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 193ms |
| total: | 310ms |

| 0 / 0 |
