Вход | Регистрация


1С:Предприятие :: 1С:Предприятие 8 общая

Не могу сделать нужный размер для печатной формы этикетки - 1С 8.2 УТП 1.2

Не могу сделать нужный размер для печатной формы этикетки - 1С 8.2 УТП 1.2
Я
   helsik
 
29.05.18 - 10:21
Здравствуйте! Никак не могу сделать нужный размер для печатной формы этикетки. Я взял готовую обработку для печати этикетки, но там размер выводимой на печать этикетки вообще мне не подходит.. мне нужно (ширина 43мм * высота 25мм). Пробовал редактировать эту форму, но как-то совсем никак не выходит, т.е. столбцы я растянул уменьшил, по своим размерам и свиду все ок, а термопрнтер печатает длинную бороду из 15-этикеток с растянутой на них одной этикеткой. В настройках принтера выставлен размер 43*25мм и тестовая страница нормально выходит. Помогите подогнать размер печатной формы под термопринтер. Спасибо.
 
 
   helsik
 
1 - 29.05.18 - 10:23
   DrShad
 
2 - 29.05.18 - 10:24
лучше бы личку заполнил
тут не все знают что такое УТП )))
   DrShad
 
3 - 29.05.18 - 10:31
и где в твоей обработке вычисляется размер табличного документа?
   helsik
 
4 - 29.05.18 - 10:32
я думал что можно его через макет настроить, нашел статью в нете и по ней ровнял столбики макета.. выровнял, а печатает полную ж..
   DrShad
 
5 - 29.05.18 - 10:34
(4) к сожалению через макет не настроить, ну только если методом проб и ошибок

но высоту и ширину в миллиметрах вполне можно подсчитать
   helsik
 
6 - 29.05.18 - 10:37
ну я вроде как добился нужной высоты ширины через перетаскивание столбцов в макете, но на печать выводится вообще непонятно что.. половина строки названия на 1 этикетке, вторая половина названия на второй и т.п. почему оно так режет?
   DrShad
 
7 - 29.05.18 - 10:44
(6) так у тебя же в свойствах ячейки стоит переносить текст
   DrShad
 
8 - 29.05.18 - 10:44
вот и растягивает
   helsik
 
9 - 29.05.18 - 10:59
поставил всюду "авто" уже чуть лучше, но всеравно не то, напечатало 9 пустых этикеток и на 2-х этикетках распечатало мой ценник.. https://drive.google.com/open?id=1rkCg8Rlp9E06mgEgQKqcNf4LUJIDYnJo
   helsik
 
10 - 29.05.18 - 11:04
вот ссылка на измененную обработку https://drive.google.com/file/d/1R66DjwlBCr5IlO86ztjvlJ-ocqzE0JI4/view?usp=sharing
 
 Рекламное место пустует
   helsik
 
11 - 29.05.18 - 11:07
и вот не пойму, я перед отправкой на печать выбрал печатать "1 страницу", а оно всеравно погнало бороду из 11 этикеток...
   helsik
 
12 - 29.05.18 - 11:15
через бартендер этикетки печатаются идеально, так что настройки принтера исключаю
   helsik
 
13 - 29.05.18 - 15:15
ап
   DrShad
 
14 - 29.05.18 - 15:17
(13) ну а страна то у тебя какая?
   helsik
 
15 - 29.05.18 - 15:45
1С УТП Украина
   DrShad
 
16 - 29.05.18 - 15:46
(15) это конфа )))
   helsik
 
17 - 29.05.18 - 16:00
Украина страна, только как это относится к делу?
   DrShad
 
18 - 29.05.18 - 16:08
тут вообще почти нет знатоков украинских конфигураций
   Михаил Козлов
 
19 - 29.05.18 - 16:28
В типовых УТ 10.3 и КА 1.1 вроде все ОК. И размер 45х23 распространенный.
Код такой:
Макет                   = ПолучитьОбщийМакет("Этикетка");
    ЭтикеткаОбласть         = Макет.ПолучитьОбласть(1,1,4,2);
    ОбластьНоменклатура     = ЭтикеткаОбласть.Области.Номенклатура;
    ОбластьШтрихкод         = ЭтикеткаОбласть.Области.ОбластьШтрихкод;
    РисунокШтрихкод         = ЭтикеткаОбласть.Рисунки.Штрихкод;
    ОбластьЦена             = ЭтикеткаОбласть.Области.Цена;

    ОбластьНоменклатура.ВысотаСтроки = ВысотаЭтикетки * 2.65 * 0.3;
    ОбластьШтрихкод.ВысотаСтроки     = ВысотаЭтикетки * 2.65 * 0.5;
    РисунокШтрихкод.Расположить(ОбластьШтрихкод);
    ОбластьЦена.ВысотаСтроки         = ВысотаЭтикетки * 2.65 * 0.2;

    ЭтикеткаОбласть.Область(2,2,2,2).ШиринаКолонки = ШиринаЭтикетки*0.53;
   helsik
 
20 - 31.05.18 - 09:05
upp
   helsik
 
21 - 31.05.18 - 09:08
могу выделить небольшую компенсацию 5$ на вмз, тому кто доведет до ума обработку, пишите на почту chitor-po-jizni@mail.ru
   DrShad
 
22 - 31.05.18 - 09:30
(21) нам твои копейки не нужны, сорри
   helsik
 
23 - 31.05.18 - 13:07
говорите только за себя, и никто вас не заставляет получать "копейки" ...
   ИС-2
 
24 - 31.05.18 - 13:11
так не получается?
ТабДок = Новый ТабличныйДокумент;
ТабДок.ШиринаСтраницы = 43;
ТабДок.ВысотаСтраницы = 23;

но с зебрами проблема - если выводить с предпросмотром, то размеры сбиваются. Поэтому печать надо сразу на принтер, без предпросмотра
   helsik
 
25 - 01.06.18 - 10:33
попробовал, но как вывести сразу на принтер без отображения формы? пробовал так
        ТабДокумент.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать);
        ТабДокумент.Напечатать(истина);
   helsik
 
26 - 01.06.18 - 10:34
выводит тоже самое что и раньше на печать только теперь сразу, и всеравно открывается форма предварительного просмотра.. так и не нашел где вырубить ее.
   d4rkmesa
 
27 - 01.06.18 - 10:58
(0)
Примерно так:

ТабДокумент.ПолеСверху                = 0;
ТабДокумент.ПолеСлева                 = 0;
ТабДокумент.ПолеСнизу                 = 0;
ТабДокумент.ПолеСправа                = 0;
ТабДокумент.РазмерКолонтитулаСверху    = 0;
ТабДокумент.РазмерКолонтитулаСнизу    = 0;    
ТабДокумент.Автомасштаб         = Ложь;
ТабДокумент.РазмерСтраницы = "Custom";
ТабДокумент.ШиринаСтраницы = 43;
ТабДокумент.ВысотаСтраницы = 25;

Последние 3 строки решили все проблемы с зебрами.


Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует