Имя: Пароль:
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)