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

То есть нельзя ничего сделать?
...
Рейтинг: 0 / 0
Редактируем ОТЧЕТЫ!
    #32642305
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно написать программу - но проще сделать руками, тем более, что это быстро делается.
...
Рейтинг: 0 / 0
Редактируем ОТЧЕТЫ!
    #32642306
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мультиселектом пользуйся, время сэкономишь
...
Рейтинг: 0 / 0
Редактируем ОТЧЕТЫ!
    #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
Редактируем ОТЧЕТЫ!
    #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
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Редактируем ОТЧЕТЫ!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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