Имя: Пароль:
1C
1С v8
Печать вертикально по букве
0 Tarlich
 
16.08.13
12:37
Что то сегодня не думается совсем . и так :
требуется вывести макет так
А
Р
Т
И
к
у
Л
Помогите
1 Tatitutu
 
16.08.13
12:38
а проблема в чем ?
2 Tarlich
 
16.08.13
12:39
что указать в макете?
3 giallo
 
16.08.13
12:40
(0) в ячейке shift+enter нажимай после ввода каждой буквы
4 Ork
 
16.08.13
12:41
(2) Так и укажи :
А
Р
Т
И
к
у
Л

На форум то как-то написал. Кто мешает также написать в макет?
5 Tarlich
 
16.08.13
12:41
Артикул - это парметр , мне надо значение что бы было напечатено
2
3
4
5
6

-
Ц
в
е
т
о
к
6 Maxus43
 
16.08.13
12:42
пошто проблему развели? в ячейке макета - ориентация текста, вертикально
7 Maxus43
 
16.08.13
12:42
т.е. ориентация текста 0 стоит, поставь 1
8 Wobland
 
16.08.13
12:43
(6) и с поворотом каждой буквы на 90
9 Ork
 
16.08.13
12:43
(6) Это что б прочитать - листок вертеть придется или башку наклонять. ТС хочется буковка - горизонтально, текст - вертикально.
10 Tarlich
 
16.08.13
12:44
а не будет так
ар
ти
ку
л
11 Maxus43
 
16.08.13
12:45
всё нормально там будет, ориентацию текста кури
12 Tarlich
 
16.08.13
12:47
ставллю ориентацию 90 , он поворачивает весть текст , но мне требуется что бы было написано в длину, что бы голову не вертеть
13 Cube
 
16.08.13
12:48
(11) Ты сам-то покурил што ле уже? :))
14 Cube
 
16.08.13
12:49
(12) Что, сложно передать в макет строку с переносами строк после каждой буквы?
15 Tarlich
 
16.08.13
12:50
(14) думал как то можно проще
16 giallo
 
16.08.13
12:50
(14)+1

    Артикул = "23456";
    АртикулДляПечати = "";
    Для Н = 1 По СтрДлина(Артикул) Цикл
        АртикулДляПечати = АртикулДляПечати + Сред(Артикул, Н, 1) + Символы.ПС;
    КонецЦикла;
17 Ork
 
16.08.13
12:51
(12) Между каждым символом вставь Символы.ПС и будет тебе мнгога счастия.
Примерно так :
печАртикул = "";
Для поз = 1 По СтрДлина(Артикул) Цикл
    печАртикул = печАртикул + Сред(Артикул, поз, 1) + Символы.ПС;
КонецЦикла;

Обл.Параметры.Артикул = печАртикул;

как то так.
18 Ivan Bezdomnyi
 
16.08.13
12:51
ВыводимыйПараметр = "";
Для Сч = 1 По СтрДлина("Артикул") Цикл
ВыводимыйПараметр = ВыводимыйПараметр + Сред("Артикул", 1, 1) + ?(Сч = СтрДлина("Артикул"), "", Символы.ПС);
КоенцЦикла;
Область.Параметры.ТекПараметр = ВыводимыйПараметр;
19 1Сергей
 
16.08.13
12:51
Пятнично
20 Grobik
 
16.08.13
12:52
Куда уж проще ;)
21 Wobland
 
16.08.13
12:52
(12) верти бумажку, так проще
22 giallo
 
16.08.13
12:52
мухах
23 Ivan Bezdomnyi
 
16.08.13
12:52
*Сред("Артикул", Сч, 1)
24 Tarlich
 
16.08.13
12:53
что был уверен что можно добиться средствами макета
25 Maxus43
 
16.08.13
12:54
(13) пообедал тока) блин, помню что можно ж было
26 giallo
 
16.08.13
12:56
(25) врядли, это ж преобразование строки при выводе потребуется
27 Ork
 
16.08.13
12:58
(26) Ну... ширина колонки не больше 1.5 ширины символа и "размещение текста" - переносить.
28 Maxus43
 
16.08.13
12:59
(27) тока вот в одну букву Ж войдёт 2 буквы i :)
29 Ork
 
16.08.13
13:01
(28) Шрифт курьер или любой другой моноширинный.
30 Maxus43
 
16.08.13
13:02
таки думаю всё таки легче передавать будет в макет строку с Символы.ПС после каждой буквы
31 uno-group
 
16.08.13
13:07
ИМХО гораздо проже читается текст повернутый на 90 градусов чем такой изврат. длина артикула стандартная быстрее отробатывать если прописать
Сред(Артикул, 1, 1)
Сред(Артикул, 2, 1)
Сред(Артикул, 3, 1)
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.