Вывод одной картинки в табличный документ.
Доброго времени. Есть табличный документ, в него добавляется штрихкод и выводится на печать. Пытаюсь сделать чтоб он был посередине, но выводятся два штрихкода. Я так понял проблема кроется в том, что выводятся эти две области: и . Подскажите , пожалуйста, как сделать, чтоб выводился только штрихкод посередине?
Или можно реализовать только так?
РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
ОбластьШтрихкода.Картинка = КартинкаШтрихкода;
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ОбластьШтрихкода = ТабДок.Область("R4C5:R7C8");
ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ОбластьШтрихкода.Объединить();
РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
РисунокШтрихкода.Высота = 20;
РисунокШтрихкода.Ширина = 60;
РисунокШтрихкода.ГраницаСверху = Ложь;
РисунокШтрихкода.ГраницаСлева = Ложь;
РисунокШтрихкода.ГраницаСнизу = Ложь;
РисунокШтрихкода.ГраницаСправа = Ложь;
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
ПараметрыШтрихкода.Вставить("Штрихкод", Штрихкод);
ПараметрыШтрихкода.Вставить("ТипКода", 4);
ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
КартинкаШтрихкода = РисунокШтрихкода.Картинка;
ОбластьШтрихкода.Картинка = КартинкаШтрихкода;
ПоказатьИли можно реализовать только так?
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ОбластьШтрихкода = ТабДок.Область("R4C5:R7C8");
ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ОбластьШтрихкода.Объединить();
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", Окр(ОбластьШтрихкода.ШиринаКолонки / 0.1));
ПараметрыШтрихкода.Вставить("Высота", Окр(ОбластьШтрихкода.ВысотаСтроки / 0.1));
ПараметрыШтрихкода.Вставить("Штрихкод", Штрихкод);
ПараметрыШтрихкода.Вставить("ТипКода", 4);
ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
ОбластьШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
ПоказатьПо теме из базы знаний
- Вывод диаграмм в табличный документ и связанные с этим проблемы
- Прайс-лист с картинками на СКД. УТ 11
- Одинакова ли в табличном документе реальная ширина колонок с одинаковой номинальной шириной
- Произвольные колонтитулы и повтор шапки таблицы в табличном документе (функция)
- Вывод факсимиле в табличные документы (УПД, УКД, счет-фактура и др.) для УТ 11.5, КА 2.5, ERP 2.5, УНФ 3, Розница 3
Найденные решения
Решил. Вопрос закрыт окончательно:
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;ОбластьШтрихкода = ТабДок.Область("R4C4:R7C8");
ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ОбластьШтрихкода.Объединить();
РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
РисунокШтрихкода.Высота = 20;
РисунокШтрихкода.Ширина = 60;
РисунокШтрихкода.ГраницаСверху = Ложь;
РисунокШтрихкода.ГраницаСлева = Ложь;
РисунокШтрихкода.ГраницаСнизу = Ложь;
РисунокШтрихкода.ГраницаСправа = Ложь;
РисунокШтрихкода.Расположить(ОбластьШтрихкода);
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
ПараметрыШтрихкода.Вставить("Штрихкод", Штрихкод);
ПараметрыШтрихкода.Вставить("ТипКода", 4);
ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
ПоказатьОстальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Разобрался сам. Вопрос закрыт:
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ОбластьШтрихкода = ТабДок.Область("R4C5:R7C8");
ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ОбластьШтрихкода.Объединить();
РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
РисунокШтрихкода.Высота = 20;
РисунокШтрихкода.Ширина = 60;
РисунокШтрихкода.ГраницаСверху = Ложь;
РисунокШтрихкода.ГраницаСлева = Ложь;
РисунокШтрихкода.ГраницаСнизу = Ложь;
РисунокШтрихкода.ГраницаСправа = Ложь;
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
ПараметрыШтрихкода.Вставить("Штрихкод", Штрихкод);
ПараметрыШтрихкода.Вставить("ТипКода", 4);
ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
ТабДок.Рисунки.Очистить();
РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
КартинкаШтрихкода = РисунокШтрихкода.Картинка;
ОбластьШтрихкода.Картинка = КартинкаШтрихкода;
Показать
(2) З.Ы. оставляю вопрос открытым. ТабДок.Показать() - штрихкод посередине, как мне и надо. А при отправке на печать печатается в левом верхнем углу=/. Так еще и почему то пять листов выводиться на печать стало, причем штрихкод только на первом, остальные пустые.
Решил. Вопрос закрыт окончательно:
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;ОбластьШтрихкода = ТабДок.Область("R4C4:R7C8");
ОбластьШтрихкода.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
ОбластьШтрихкода.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ОбластьШтрихкода.Объединить();
РисунокШтрихкода = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
РисунокШтрихкода.Высота = 20;
РисунокШтрихкода.Ширина = 60;
РисунокШтрихкода.ГраницаСверху = Ложь;
РисунокШтрихкода.ГраницаСлева = Ложь;
РисунокШтрихкода.ГраницаСнизу = Ложь;
РисунокШтрихкода.ГраницаСправа = Ложь;
РисунокШтрихкода.Расположить(ОбластьШтрихкода);
ПараметрыШтрихкода = Новый Структура;
ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
ПараметрыШтрихкода.Вставить("Штрихкод", Штрихкод);
ПараметрыШтрихкода.Вставить("ТипКода", 4);
ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
ПараметрыШтрихкода.Вставить("Масштабировать", Истина);
РисунокШтрихкода.Картинка = ПолучениеИПечатьШтрихкодов.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
Показать
Вакансии
1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день