powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / увеличение межсимвольного расстояния шрифта
20 сообщений из 20, страница 1 из 1
увеличение межсимвольного расстояния шрифта
    #37741964
sidora
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте! Подскажите пожалуйста, как можно увеличить расстояние между буквами шрифта в отчете. Отчет надо сделать в фокспро (ворд не рассм.) и распечатать на форме.
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742005
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sidora,

самое простое - пробелы между буквами :)
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742011
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Jonny540sidora,

самое простое - пробелы между буквами :)

скорей всего чуть-чуть шире ,пробел вряд ли подойлет
видимо символы по-штучно
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742017
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sidoraЗдравствуйте! Подскажите пожалуйста, как можно увеличить расстояние между буквами шрифта в отчете. Отчет надо сделать в фокспро (ворд не рассм.) и распечатать на форме.

имели ввиду ---на фирменном бланке

п.с. самый гибкий по этой части --ворд
в екселе --если сделать очень мелкую сеточку
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742023
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПЕНСИОНЕРКАJonny540sidora,

самое простое - пробелы между буквами :)

скорей всего чуть-чуть шире ,пробел вряд ли подойлет
видимо символы по-штучно

если шрифт не моноширинный (например, Times New Roman), то вполне и пробел подойдет
а символы поштучно? нуууу... если терпения хватит...
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742139
sidora
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Jonny540,

Пробелы хорошо вводить в Lable, с этим проблем нет, а как быть с полями в Detail, куда выводятся записи таблицы, шрифт никакой не подходит. Отчет нужен в фокспро, ворд и ексел не подходит. Распечатывается на бланке, например: ИВАНОВ надо И В А Н О В
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742174
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sidora,

надо было сразу так задачу ставить
подожди, поищу (если успею :) ), у меня должна быть процедурка
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742181
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sidora,
авторЗдравствуйте! Подскажите пожалуйста, как можно увеличить расстояние между буквами шрифта в отчете. Отчет надо сделать в фокспро (ворд не рассм.) и распечатать на форме.


вопросы
--версия фохпро
--почему нельзя ворд-ексель
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742240
sidora
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПЕНСИОНЕРКА,

Потому что ради меня заказчик офис ставить вряд ли будет
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742244
sidora
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПЕНСИОНЕРКА,

фокспро девятый
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742317
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sidora,

Вот, должно работать:
в Detail в поле вместо myTable.myField:
Код: xml
1.
p_rep(myTable, myField, <символ между буквами>, <их количество>)


В Вашем случае:
Код: xml
1.
p_rep(myTable, myField, " ", 1)


Код: xml
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
PROC p_rep
LPARAMETERS cNmTable,cNmField,cSymbol,nQ
LOCAL cSb, cSs
cResStroka=""
SCATTER FIELDS &cNmTable..&cNmField TO mass
cSs=ALLT(mass(1))
FOR nI=1 TO LEN(cSs)
	cSb=SUBSTR(cSs,nI,1)
	cResStroka=cResStroka+cSb+REPLICATE(cSymbol,nQ)
ENDFOR
RELEASE cSb, cSs, mass
RETURN cResStroka
ENDPROC


Все параметры обязательны
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37742334
sidora
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Jonny540,

Спасибо большое! Сейчас приду домой, буду пробовать
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751582
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я вот только не догоняю - зачем собственную UDF придумывать вместо strtran() ?
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751617
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndreTM, каждый сходит с ума по-своему
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751626
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ага...
Коме того, нафига там массив? А также макро?
Либо уж
Код: sql
1.
cSs=alltrim(eval(cNmTable+'->'+cNmField))

либо вообще
Код: sql
1.
select top 1 (cNmField) from (cNmTable) into array mass
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751634
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А, да... Насчёт селекта - поторопился, там же текущую запись надо выдать...
Хотя-я...
Код: sql
1.
2.
nRec=recno()
select (cNmField) from (cNmTable) where recno()=nRec into array mass
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751640
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndreTM,

Насчет strtan(), похоже, тоже поторопился
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751674
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Jonny540Насчет strtan(), похоже, тоже поторопилсяПочему же?
Если размер строк в поле таблицы будет превосходить количество букв в языке - то использование strtran() будет оправдано. Поскольку потребуется цикл не по количеству буковок каждого предложения, хранящегося в поле - а только по количеству буковок алфавита...
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37751735
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AndreTMПоскольку потребуется цикл не по количеству буковок каждого предложения, хранящегося в поле - а только по количеству буковок алфавита...
Ага, оба алфавита (рус, лат) * 2 (строчные и прописные) + цифры + другие символы
...
Рейтинг: 0 / 0
увеличение межсимвольного расстояния шрифта
    #37758688
sidora
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребята, спасибо всем, кто откликнулся, выручили. Я уже сделала все, как советовал Jonny540, работает хорошо, можно на досуге попробовать и другие варианты.
...
Рейтинг: 0 / 0
20 сообщений из 20, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / увеличение межсимвольного расстояния шрифта
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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