Доброго времени суток. Подскажите, пожалуйста, можно ли добавить программно (без макета) область рисунка в табличный документ? Или все же надо создавать макет? Пробовал так, но табличный документ пустой выходит.
```1c
    ТДок = Новый ТабличныйДокумент;
    ТДок.Очистить();
    ТДок.ОтображатьСетку = Ложь;

    РисунокШтрихкода = ТДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
    ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
    ПараметрыШтрихкода.Вставить("Штрихкод", Шх_код);
    ПараметрыШтрихкода.Вставить("ТипКода", 4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
    ПараметрыШтрихкода.Вставить("Масштабировать", Истина);

    РисунокШтрихкода.Картинка = ВыполнитьОбработкуШтрихкода.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;

    ТДок.Показать(РисунокШтрихкода);
```
---
Ключевой момент, которого нет у вас

```1c
    Рисунок.Ширина = 20;
    Рисунок.Высота = 20;
    Рисунок.Лево = 5;
    Рисунок.Верх= 4;
```

т.е. картинке надо задать размер и где-то разместить.
Рисунок у вас есть, просто он скорее всего с нулевыми размерами и находится в левом верхнем углу.
---
Решил задачу так
```1c
    ТДок = Новый ТабличныйДокумент;
    ТДок.Очистить();
    ТДок.ОтображатьСетку = Ложь;

    ОбластьШтрихкода = ТДок.Область("R1C1");
    ОбластьШтрихкода.ШиринаКолонки = 400;
    ОбластьШтрихкода.ВысотаСтроки = 200;

    РисунокШтрихкода = ТДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина", Окр(400); /////насчет этих двух параметров(ширина, высота) не уверен, но без них ошибку выдаст
    ПараметрыШтрихкода.Вставить("Высота", Окр(200));
    ПараметрыШтрихкода.Вставить("Штрихкод", Шх_код);
    ПараметрыШтрихкода.Вставить("ТипКода", 4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
    ПараметрыШтрихкода.Вставить("Масштабировать", Истина);

    РисунокШтрихкода.Картинка = ВыполнитьОбработкуШтрихкода.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;

    ТДок.Показать(ОбластьШтрихкода );
```

З.Ы. Для моей задачи более чем достаточно, потому как кроме шк документ ничем не заполняется, с шириной и высотой можно поэкспериментировать. Если документ еще чем то заполняется, то просто в пустую область шк добавить и все.
---
да, тоже работает. Спасибо!
```1c
    ТДок = Новый ТабличныйДокумент;
    ТДок.Очистить();
    ТДок.ОтображатьСетку = Ложь;

    РисунокШтрихкода = ТДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
    РисунокШтрихкода.Высота = 20;
    РисунокШтрихкода.Ширина = 60;
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
    ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
    ПараметрыШтрихкода.Вставить("Штрихкод", Шх_код);
    ПараметрыШтрихкода.Вставить("ТипКода", 4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
    ПараметрыШтрихкода.Вставить("Масштабировать", Истина);

    РисунокШтрихкода.Картинка = ВыполнитьОбработкуШтрихкода.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);

    ТДок.Показать();
```
---
Не совсем понял команду ТДок.Показать(РисунокШтрихКода)
---
изначально было ТДок.Напечатать() , и пустой лист вышел. Решил проверить через показать , ТДок.Показать() Пустой был, так тоже пустой. Спазибо за подсказку с БСП =).
---
А вообще, в типовых БСП есть вывод штрихкодов (ОМ ПечатьДокументов вроде)
---
ОМ ПечатьДокументов так у меня Процедура ВыполнитьОбработкуШтрихкода как раз из общего модуля. Там генерируется шк, все ок, с макетом все работает, через присвоение как написали в (4) , а без макета пустой табличный документ выходит.
---
Вот код, который выводит простой рисунок

```1c
    Рисунок = ТабличныйДокумент.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    Рисунок.ВыводитьНаПечать = Истина;
    Рисунок.Картинка = БиблиотекаКартинок.GoogleMaps;
    Рисунок.Ширина = 20;
    Рисунок.Высота = 20;
    Рисунок.Лево = 5;
    Рисунок.Верх= 4;
```
---
ну это картинка из библиотеки, с ней само собой проблем не будет, с штрихкодом такое не прокатило. Пустой документ вышел опять.
---
Ключевой момент, которого нет у вас

```1c
    Рисунок.Ширина = 20;
    Рисунок.Высота = 20;
    Рисунок.Лево = 5;
    Рисунок.Верх= 4;
```

т.е. картинке надо задать размер и где-то разместить.
Рисунок у вас есть, просто он скорее всего с нулевыми размерами и находится в левом верхнем углу.
---
кстати как вариант, я тоже об этом подумал. Сейчас проверю ваш метод.
---
да, тоже работает. Спасибо!
```1c
    ТДок = Новый ТабличныйДокумент;
    ТДок.Очистить();
    ТДок.ОтображатьСетку = Ложь;

    РисунокШтрихкода = ТДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;
    РисунокШтрихкода.Высота = 20;
    РисунокШтрихкода.Ширина = 60;
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина", Окр(РисунокШтрихкода.Ширина / 0.1));
    ПараметрыШтрихкода.Вставить("Высота", Окр(РисунокШтрихкода.Высота / 0.1));
    ПараметрыШтрихкода.Вставить("Штрихкод", Шх_код);
    ПараметрыШтрихкода.Вставить("ТипКода", 4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
    ПараметрыШтрихкода.Вставить("Масштабировать", Истина);

    РисунокШтрихкода.Картинка = ВыполнитьОбработкуШтрихкода.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);

    ТДок.Показать();
```
---
Ну не совсем вроде так.
ОМ генерируют ШК, но выводить приходится в макет в виде присвоения "...картинка = картинкаШК"
Буду также признателен если покажете как выводить без макета...

МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(устарела)
ОМ ГенерацияШтрихкода...
---
Решил задачу так
```1c
    ТДок = Новый ТабличныйДокумент;
    ТДок.Очистить();
    ТДок.ОтображатьСетку = Ложь;

    ОбластьШтрихкода = ТДок.Область("R1C1");
    ОбластьШтрихкода.ШиринаКолонки = 400;
    ОбластьШтрихкода.ВысотаСтроки = 200;

    РисунокШтрихкода = ТДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    ПараметрыШтрихкода = Новый Структура;
    ПараметрыШтрихкода.Вставить("Ширина", Окр(400); /////насчет этих двух параметров(ширина, высота) не уверен, но без них ошибку выдаст
    ПараметрыШтрихкода.Вставить("Высота", Окр(200));
    ПараметрыШтрихкода.Вставить("Штрихкод", Шх_код);
    ПараметрыШтрихкода.Вставить("ТипКода", 4);
    ПараметрыШтрихкода.Вставить("МонохромныйШрифт", Истина);
    ПараметрыШтрихкода.Вставить("ОтображатьТекст", Ложь);
    ПараметрыШтрихкода.Вставить("РазмерШрифта", 15);
    ПараметрыШтрихкода.Вставить("Масштабировать", Истина);

    РисунокШтрихкода.Картинка = ВыполнитьОбработкуШтрихкода.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);
    РисунокШтрихкода.РазмерКартинки = РазмерКартинки.Растянуть;

    ТДок.Показать(ОбластьШтрихкода );
```

З.Ы. Для моей задачи более чем достаточно, потому как кроме шк документ ничем не заполняется, с шириной и высотой можно поэкспериментировать. Если документ еще чем то заполняется, то просто в пустую область шк добавить и все.
---
еще как в (9) тоже работает.