Форум Программирование Общие вопросы программирования (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) да, все верно.

Оставьте свое сообщение

E-mail:

Вакансии

Программист, аналитик, эксперт 1С
Санкт-Петербург
По совместительству

Программист 1С
Москва
зарплата от 200 000 руб.
Полный день

Аналитик
Москва
зарплата от 150 000 руб. до 300 000 руб.
Полный день

Системный архитектор
Москва
зарплата от 150 000 руб.
Полный день

Ведущий консультант аналитик 1С ERP, УХ
Ульяновск
зарплата от 120 000 руб.
Полный день