Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
27 ноя 2024, 06:37

Разрешение штрихкода

Автор ef0din, 15 июн 2017, 12:39

0 Пользователей и 1 гость просматривают эту тему.

ef0din

Добрый день! Бухгалтерия предприятия, редакция 3.0 (3.0.49.28) , Плтформа 1С:Предприятие 8.3 (8.3.9.1818).
Формирую печатную форму и вывожу на нее штрихкод.
Проблема в том, что штрихкод выводится в ужасном разрешение. Подскажите: как бы его увеличить? Спасибо!


Код:
  ВнешняяКомпонента.Ширина = Окр(Ширина);
    ВнешняяКомпонента.Высота = Окр(Высота);

    // Разрешим компоненте самой определять тип кода
    ВнешняяКомпонента.АвтоТип = Ложь;
    ВнешняяКомпонента.ТипКода = ТипКода;


   //Шрифт = Новый Шрифт;
   //Шрифт.Размер = 6;
   //Шрифт.Имя = "Arial";
   //ВнешняяКомпонента.УстановитьШрифт(Шрифт);
    // Если код содержит контрольный символ, обязательно указываем
    ВнешняяКомпонента.СодержитКС = СтрДлина(Штрихкод) =19;
    ВнешняяКомпонента.ОтображатьТекст=Истина;
   //ВнешняяКомпонента.РазделителиКода = 70;
   //ВнешняяКомпонента.РазмерШрифта = 6;
    // Если отображать контрольный символ не нужно
    // ВнешняяКомпонента.ВидимостьКС = Ложь;

    // Формируем картинку штрихкода
    ВнешняяКомпонента.ЗначениеКода = Штрихкод;

    // Если установленная нами ширина меньше минимально допустимой для этого штрихкода
    Если ВнешняяКомпонента.Ширина < ВнешняяКомпонента.МинимальнаяШиринаКода Тогда
        // Скорректируем ширину
        ВнешняяКомпонента.Ширина = ВнешняяКомпонента.МинимальнаяШиринаКода + 8;
   КонецЕсли;
   ВнешняяКомпонента.Высота = 18;

    // Сформируем картинку
    ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();


Скрин штрихкода во вложении.
Компонента версии 8.0.16.4



Спасибо!

ef0din

Ширину, высоту увеличил значительно - вроде сам штрихкод норм теперь получается. Но текст ШК остался не очень...

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск