Почему-то многие считают, что для печати штрих-кодов из «1С:Підприємство» нужны некие компоненты (внешние, ActiveX, еще какие-нибудь). Так вот, это неправда. Никаких компонент не нужно. Для воспроизведения на бумаге штрих-кода понадобятся три вещи:
нужно знать, какой именно из штрих-кодов (а их немеряно) нам требуется.
нужно знать алгоритм формирования этого кода.
и нужно иметь Windows-совместимый шрифт, изображающий данный штрих-код. Для EAN13 вполне подойдет шрифт EanBwrP36Tt, а для CODE39 — C39HrP36DlTt.
Что касается первого пункта, то весьма распространенными (и поддерживаемыми всеми без исключения сканерами) являются коды EAN13 и CODE39. А что касается второго и третьего, то это лежит внизу страницы.
После нехитрой адаптации можно будет печатать штрих-коды на ценниках, пропусках, визитках и карикатурах на шефа. Но самое главное — любой документ можно будет снабдить уникальным идентификатором. Зачем тратить на это драгоценный принтерный картридж? А вот об этом — как -нибудь в другой раз 😉
Barcode.ttf Шрифт TrueType для отображение штрихкодов. Barcode.bas Исходные тексты функций преобразования различные кодировок штрихкодов. Barcode.doc Пример использования штрихового кодирования в Microsoft Word. Barcode.mdb Пример использования штрихового кодирования в Microsoft Access. Barcode.xls Пример использования штрихового кодирования в Microsoft Excel. Descript.doc Описание принципов формирования штрихкодов. Readme.txt Описание установки и использования. Этот файл.
2.1. Загрузка пакета на компьютер
3.1. Подготовка документа офисного приложения для использования штрихкодов
– Откройте приложение Micosoft Excel (Word или Access). Создайте новый или откройте существующий документ. – Выберите в меню Сервис команду Макрос и Редактор Visual Basic. – В окне редактора Visual Basic в меню File выберите команду Import File. – Найдите в папках и выберите файл Barcode.bas, включенный в этот комплект. Теперь в список Modules добавиться новый модуль Barcode.bas. – Закройте редактор Visual Basic и вернитесь в окно Microsoft Excel (Word или Access).
Документ готов для использования штрихового кодирования.
3.2. Вставка штрихкодов в файлы Microsoft Excel
– Выполните инструкцию по подготовке документа для использования штрихкодов, описанную в п.3.1. – Выберите ячейку, куда Вы хотите вставить штрихкод. – В меню Вставка выберите команду Функция. Откроется окно Мастер функций – Мастер функций – шаг 1 из 2. Выберите в левом поле категорию Определенные пользователем и выберите в правом поле одну из функций Codabar, Code_128, Code_39 или Interleaved_2of5 в зависимости от требуемой символики. Нажмите кнопку OK. – Мастер функций – шаг 2 из 2. В качестве аргумента A задайте формулу, определяющую значение, которое Вы хотели бы закодировать. Нажмите кнопку OK. – Установить для выбранной ячейки шрифт Barcode размером от 16 до 36 пунктов (оптимальный размер подбирается в зависимости от модели сканера, обычно 26 пунктов).
Теперь содержимое ячейки отображает штрихкод, в котором закодировано значение параметра A функции кодирования.
3.2. Вставка штрихкодов в файлы Microsoft Word
– Выполните инструкцию по подготовке документа для использования штрихкодов, описанную в п.3.1. – Вставьте текстовые поля формы документа, которые будут содержать штрихкоды. – Создайте макрос, заполняющий эти поля результатом выполнения функций штрихового кодирования Codabar, Code_128, Code_39 или Interleaved_2of5.
Например, ActiveDocument.FormFields(“MyBarcode”).Result = _ Code_128(ActiveDocument.FormFields(“MyData”).Result).
– Установите созданный макрос на кнопку или на выход из поля данных формы документа. – Установите для полей, содержащих штрихкод, шрифт Barcode размером от 16 до 36 пунктов (оптимальный размер подбирается в зависимости от модели сканера, обычно 26 пунктов). – Не забудьте отключить выделение полей серым фоном, иначе ухудшается распознавание черного на сером.
3.3. Вставка штрихкодов в файлы Microsoft Access
– Выполните инструкцию по подготовке документа для использования штрихкодов, описанную в п.3.1. – На новой форме или в отчете установите Надпись (Label), определяемую как результат действия одной из функций Codabar, Code_128, Code_39 или Interleaved_2of5. – Установите для Надписи (Label) шрифт Barcode размером от 16 до 36 пунктов (оптимальный размер подбирается в зависимости от модели сканера, обычно 26 пунктов).
Примечания – Функции штрихового кодирования могут быть использованы непосредственно в запросах, до отображения на форме.
Функция преобразует цифры и служебные символы в штриховой код Codabar, отображаемый посредством шрифта Barcode.
Параметр A – строка символов из набора [ 0 1 2 3 4 5 6 7 8 9 – $ : / . + * a b c d t n e ]
Функция автоматически вставляет символы d и е для формирования стартовых и стоповых разрядов.
Функция преобразует символы в штриховой код Code 128, отображаемый посредством шрифта Barcode.
Параметр A – строка символов с кодами ASCII от 0 до 127
Функция автоматически формирует стартовый и стоповый разряды.
Функция преобразует прописные латинские буквы, цифры и служебные символы в штриховой код Code 39, отображаемый посредством шрифта Barcode.
Параметр A – строка символов из набора [ 0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z – $ : / . + * % SPACE ]
Функция автоматически вставляет символы * для формирования стартовых и стоповых разрядов.
4.4. Interleaved_2of5
Функция преобразует цифры в штриховой код Interleaved 2 of 5, отображаемый посредством шрифта Barcode.
Параметр A – строка символов из набора [ 0 1 2 3 4 5 6 7 8 9 ] Параметр Check – При значении True функция производит автоматический расчет контрольного знака. По умолчанию False.
Функция автоматически формирует стартовый и стоповый разряды. Нечетное число цифр с учетом контрольного разряда дополняется слева символом “0”.