Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Редактируем ОТЧЕТЫ! / 7 сообщений из 7, страница 1 из 1
10.08.2004, 11:01:00
    #32642214
spivak
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Редактируем ОТЧЕТЫ!
Сделал программу. В ней около 50-ти отчетов. Шеф попросил, чтобы я размер шрифтов сделал больше (11пт). Сами понимаете, 50 отчетов редактировать вручную хреново....может подскажете, где лежит волшебная таблетка? :) Спасибо.
...
Рейтинг: 0 / 0
10.08.2004, 11:15:57
    #32642245
Daf
Daf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Редактируем ОТЧЕТЫ!
Ты дольше будешь искать "таблетку". Быстрее сделать все в ручную.
...
Рейтинг: 0 / 0
10.08.2004, 11:17:34
    #32642251
spivak
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Редактируем ОТЧЕТЫ!
DafТы дольше будешь искать "таблетку". Быстрее сделать все в ручную.

То есть нельзя ничего сделать?
...
Рейтинг: 0 / 0
10.08.2004, 11:36:10
    #32642305
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Редактируем ОТЧЕТЫ!
Можно написать программу - но проще сделать руками, тем более, что это быстро делается.
...
Рейтинг: 0 / 0
10.08.2004, 11:36:33
    #32642306
Alexey Sh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Редактируем ОТЧЕТЫ!
Мультиселектом пользуйся, время сэкономишь
...
Рейтинг: 0 / 0
10.08.2004, 11:45:15
    #32642338
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

но потом могут возникнут проблемы с размером самих контролов.
...
Рейтинг: 0 / 0
10.08.2004, 12:35:18
    #32642451
spivak
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Редактируем ОТЧЕТЫ!
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

но потом могут возникнут проблемы с размером самих контролов.

Да мультиселектом пользуюсь....контролы подводят....да ладно...вручную сделаю.
Спасибо всем.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Редактируем ОТЧЕТЫ! / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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