| |
 39 Кб. |
|
| | Раньше так явно не сталкивала, может, т.к. проще обормляла, а сейчас получика бяку:
На моём компе форма выглядет довольно прятно (см. вложение) , но при открытии её на др. - получаю гадость
Хотя в настройках экрана разрешение стоит одинаковое, шрифт на обоих - обычный!
Вы сталкивались с такой проблемой? Как её обойти????? | |
| |
| |
| |
41 Кб. |
|
| | а здесь то как выглядит на соседнем компьютере :-(
текстовые поля не поещаются | |
| |
| |
| |
|
|
| | дык со шрифтами лажа...
думаю, что на соседнем компьютере не установлен этот красивый шрифт :) | |
| |
| |
| |
|
|
| | думаю что не со шрифтами а с виндовой схемой | |
| |
| |
| |
|
|
| | так глубоко моя мысля не дошла, каюсь ) | |
| |
| |
|
|
| |
|
|
| | А попробуйте создать файл Ворд, например, с этим странным шрифтом. Он там нормально отображается? | |
| |
| |
| |
|
|
| | неа, моя строка, там вываливается во вторую! | |
| |
| |
| |
|
|
| | не совсем понял, что там куда вываливается (
в любом случае, скорее всего osmor прав... | |
| |
| |
| |
24 Кб. |
|
| | вот | |
| |
| |
| |
|
|
| | писать программу.
- открываем форму в режиме конструктора
- перебираем все контролы
- меняем у всех свойство FontName (у кото неверный шрифт) на "Tahoma"
- сохраняем форму, закрываем
-берем следующую
список форм CurrentProject.AllForms
список всех контролов коллекция controls
в общем писать минут 30-40
аську знаешь  | |
| |
| |
| |
|
|
| | у меня там формулы рисуются, а => для многих текстовых полей исп-ся шрифт Symbol и нижний/верхний регистр.
А значит так просто (с твоей доброй помощью) не прокатит 
Нус, друзья, учитесь лучше на чужих ошибках!!!!!
Не испльзуйте лишний раз без нужды всякие "красивы" шрифты!!!!!! | |
| |
| |
| |
|
|
| | ну и что ... так поменяй только тот шрифт который нужно, а Symbol оставь | |
| |
| |
| |
|
|
| | Да, нет посмотрела, есть.
Это Candara.
Ох, раньше всегда придерживалась стандартных!  | |
| |
| |
| |
|
|
| | а вот кодик
Sub ChangeShrift()
Dim frm As Form, ctl As Control
Dim formName As String, n As Long
On Error Resume Next
'Перебираем все формы
For n = 0 To CurrentDb.Containers("Forms").Documents.Count - 1
formName = CurrentDb.Containers("Forms").Documents(n).Name
SysCmd acSysCmdSetStatus, formName
'Открываем форму в режиме конструктора
DoCmd.OpenForm formName, acDesign, , , , acHidden
Set frm = Forms(formName)
'Перебор всех управляющих элементов формы
For Each ctl In frm.Controls
If ctl.FontName = "Tahoma" Then ctl.FontName = "Calibri"
Next 'следующий элемент
'Закрываем и записываем форму
DoCmd.Close acForm, formName, acSaveYes
Next 'следующая форма
SysCmd acSysCmdClearStatus
MsgBox "Обработано форм: " & n, vbInformation
End Sub
|
только он меняет весь шрифт
думаю, вам опытным, не составит труда дописать строчки, чтобы менял все, кроме какого-то определенного шрифта | |
| |
| |
| |
|
|
| | Ребята, спасибо, большое.
Всё сделано и сдано в срок и ваши советы пригодились. 
Извеняюсь, что с запазданием. | |
| |
| |
