Форум Программирование Общие вопросы программирования (Dev)

Вывод одной картинки в табличный документ.

8.3.14
1. user1619761 14.01.22 09:25 Сейчас в теме
Доброго времени. Есть табличный документ, в него добавляется штрихкод и выводится на печать. Пытаюсь сделать чтоб он был посередине, но выводятся два штрихкода. Я так понял проблема кроется в том, что выводятся эти две области: 
 РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
и 
ОбластьШтрихкода.Картинка = КартинкаШтрихкода;
. Подскажите , пожалуйста, как сделать, чтоб выводился только штрихкод посередине? 
ТабДок = Новый ТабличныйДокумент;
	ТабДок.Очистить();
	ТабДок.ОтображатьСетку = Ложь;
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	
	ОбластьШтрихкода = ТабДок.Область("R4C5:R7C8");
	ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
	ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
	ОбластьШтрихкода.Объединить();
	
	РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
	РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
	РисунокШтрихкода.Высота = 20;
	РисунокШтрихкода.Ширина = 60;
	РисунокШтрихкода.ГраницаСверху = Ложь;
	РисунокШтрихкода.ГраницаСлева = Ложь;
	РисунокШтрихкода.ГраницаСнизу = Ложь;
	РисунокШтрихкода.ГраницаСправа = Ложь;
	ПараметрыШтрихкода = Новый Структура;
	ПараметрыШтрихкода.Вставить("Ширина",                    Окр(РисунокШтрихкода.Ширина / 0.1));
	ПараметрыШтрихкода.Вставить("Высота",                    Окр(РисунокШтрихкода.Высота / 0.1));
	ПараметрыШтрихкода.Вставить("Штрихкод",                  Штрихкод); 
	ПараметрыШтрихкода.Вставить("ТипКода",                   4);
	ПараметрыШтрихкода.Вставить("МонохромныйШрифт",          Истина);
	ПараметрыШтрихкода.Вставить("ОтображатьТекст",           Ложь);
	ПараметрыШтрихкода.Вставить("РазмерШрифта",              15);
	ПараметрыШтрихкода.Вставить("Масштабировать",            Истина);
	
	РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
	
	КартинкаШтрихкода = РисунокШтрихкода.Картинка;
	ОбластьШтрихкода.Картинка = КартинкаШтрихкода;
Показать


Или можно реализовать только так? 
ТабДок = Новый ТабличныйДокумент;
	ТабДок.Очистить();
	ТабДок.ОтображатьСетку = Ложь;
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	
	ОбластьШтрихкода = ТабДок.Область("R4C5:R7C8");
	ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
	ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
	ОбластьШтрихкода.Объединить();
	
	ПараметрыШтрихкода = Новый Структура;
	ПараметрыШтрихкода.Вставить("Ширина",                    Окр(ОбластьШтрихкода.ШиринаКолонки / 0.1));
	ПараметрыШтрихкода.Вставить("Высота",                    Окр(ОбластьШтрихкода.ВысотаСтроки / 0.1));
	ПараметрыШтрихкода.Вставить("Штрихкод",                  Штрихкод);
	ПараметрыШтрихкода.Вставить("ТипКода",                   4);
	ПараметрыШтрихкода.Вставить("МонохромныйШрифт",          Истина);
	ПараметрыШтрихкода.Вставить("ОтображатьТекст",           Ложь);
	ПараметрыШтрихкода.Вставить("РазмерШрифта",              15);
	ПараметрыШтрихкода.Вставить("Масштабировать",            Истина);
	
	ОбластьШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
Показать
+ – Ответить
Найденные решения
4. user1619761 14.01.22 10:22 Сейчас в теме
Решил. Вопрос закрыт окончательно: 
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Очистить();
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;ОбластьШтрихкода = ТабДок.Область("R4C4:R7C8");
    ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
    ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
    ОбластьШтрихкода.Объединить();
    
    РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
    РисунокШтрихкода.Высота = 20;
    РисунокШтрихкода.Ширина = 60;
    РисунокШтрихкода.ГраницаСверху = Ложь;
    РисунокШтрихкода.ГраницаСлева = Ложь;
    РисунокШтрихкода.ГраницаСнизу = Ложь;
    РисунокШтрихкода.ГраницаСправа = Ложь;
    РисунокШтрихкода.Расположить(ОбластьШтрихкода);
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина",                    Окр(РисунокШтрихкода.Ширина / 0.1));
    ПараметрыШтрихкода.Вставить("Высота",                    Окр(РисунокШтрихкода.Высота / 0.1));
    ПараметрыШтрихкода.Вставить("Штрихкод",                  Штрихкод); 
    ПараметрыШтрихкода.Вставить("ТипКода",                   4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт",          Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст",           Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта",              15);
    ПараметрыШтрихкода.Вставить("Масштабировать",            Истина);
    
    РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
Показать
+ – Ответить
Остальные ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
2. user1619761 14.01.22 09:36 Сейчас в теме
Разобрался сам. Вопрос закрыт: 
ТабДок = Новый ТабличныйДокумент;
	ТабДок.Очистить();
	ТабДок.ОтображатьСетку = Ложь;
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	
	ОбластьШтрихкода = ТабДок.Область("R4C5:R7C8");
	ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
	ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
	ОбластьШтрихкода.Объединить();
	
	РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
	РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
	РисунокШтрихкода.Высота = 20;
	РисунокШтрихкода.Ширина = 60;
	РисунокШтрихкода.ГраницаСверху = Ложь;
	РисунокШтрихкода.ГраницаСлева = Ложь;
	РисунокШтрихкода.ГраницаСнизу = Ложь;
	РисунокШтрихкода.ГраницаСправа = Ложь;
	ПараметрыШтрихкода = Новый Структура;
	ПараметрыШтрихкода.Вставить("Ширина",                    Окр(РисунокШтрихкода.Ширина / 0.1));
	ПараметрыШтрихкода.Вставить("Высота",                    Окр(РисунокШтрихкода.Высота / 0.1));
	ПараметрыШтрихкода.Вставить("Штрихкод",                  Штрихкод);  
	ПараметрыШтрихкода.Вставить("ТипКода",                   4);
	ПараметрыШтрихкода.Вставить("МонохромныйШрифт",          Истина);
	ПараметрыШтрихкода.Вставить("ОтображатьТекст",           Ложь);
	ПараметрыШтрихкода.Вставить("РазмерШрифта",              15);
	ПараметрыШтрихкода.Вставить("Масштабировать",            Истина);
	
	ТабДок.Рисунки.Очистить();
	РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
	КартинкаШтрихкода = РисунокШтрихкода.Картинка;
	ОбластьШтрихкода.Картинка = КартинкаШтрихкода;
Показать
+ – Ответить
3. user1619761 14.01.22 09:56 Сейчас в теме
(2) З.Ы. оставляю вопрос открытым. ТабДок.Показать() - штрихкод посередине, как мне и надо. А при отправке на печать печатается в левом верхнем углу=/. Так еще и почему то пять листов выводиться на печать стало, причем штрихкод только на первом, остальные пустые.
+ – Ответить
4. user1619761 14.01.22 10:22 Сейчас в теме
Решил. Вопрос закрыт окончательно: 
    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Очистить();
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;ОбластьШтрихкода = ТабДок.Область("R4C4:R7C8");
    ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
    ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
    ОбластьШтрихкода.Объединить();
    
    РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
    РисунокШтрихкода.Высота = 20;
    РисунокШтрихкода.Ширина = 60;
    РисунокШтрихкода.ГраницаСверху = Ложь;
    РисунокШтрихкода.ГраницаСлева = Ложь;
    РисунокШтрихкода.ГраницаСнизу = Ложь;
    РисунокШтрихкода.ГраницаСправа = Ложь;
    РисунокШтрихкода.Расположить(ОбластьШтрихкода);
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина",                    Окр(РисунокШтрихкода.Ширина / 0.1));
    ПараметрыШтрихкода.Вставить("Высота",                    Окр(РисунокШтрихкода.Высота / 0.1));
    ПараметрыШтрихкода.Вставить("Штрихкод",                  Штрихкод); 
    ПараметрыШтрихкода.Вставить("ТипКода",                   4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт",          Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст",           Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта",              15);
    ПараметрыШтрихкода.Вставить("Масштабировать",            Истина);
    
    РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
Показать
+ – Ответить
5. puzo50 14.01.22 12:56 Сейчас в теме
(4) разделить на одну десятую - это тоже самое, что умножить на десять, да?
+ – Ответить
6. user1619761 14.01.22 13:14 Сейчас в теме
(5) да, все верно.
+ – Ответить
Оставьте свое сообщение
Вакансии
Программист/тестировщик
Москва
зарплата от 130 000 руб. до 150 000 руб.
Полный день
Ведущий разработчик 1С / Team lead отдела разработки 1С
Москва
зарплата от 300 000 руб. до 300 000 руб.
Полный день
Программист 1С
Москва
зарплата от 130 000 руб. до 150 000 руб.
Полный день
Бизнес-аналитик
Москва
зарплата от 130 000 руб. до 150 000 руб.
Полный день
Аналитик 1C
Москва
зарплата от 110 000 руб.
Полный день