Штрих-код в Corel. Нужен совет.

  • Автор темы Автор темы KosateN
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
Ответ: Штрих-код в Corel. Нужен совет.

В кореле делаем небольшие тиражи ~1000шт
пользуемся простеньким макросом:
Public Count

Sub AutoBarCode()
Count = 4000960# `здесь указываем стартовое значение ШК (в данном примере ЕАН-8)

Do

CorelScript.OLEObjectDoVerb (0) ` вызываем Bar Code Vizard
SendKeys "{DEL}", True `Имитируем ввод данных с клавиатуры
Count = Count + 1
SendKeys Count, True `Имитируем ввод данных с клавиатуры
SendKeys "{ENTER}", True `Имитируем ввод данных с клавиатуры
SendKeys "{ENTER}", True `Имитируем ввод данных с клавиатуры
SendKeys "{ENTER}", True `Имитируем ввод данных с клавиатуры

SendKeys "{TAB}", True ` Переходим к следующему ШК, начало блока
CorelScript.OLEObjectDoVerb (0)
SendKeys "{DEL}", True
Count = Count + 1
SendKeys Count, True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True `Конец блока. данный блок надо скопировать столько раз сколько у вас ШК на листе минус один.
`В данном примере идет 5 ШК
SendKeys "{TAB}", True
CorelScript.OLEObjectDoVerb (0)
SendKeys "{DEL}", True
Count = Count + 1
SendKeys Count, True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True

SendKeys "{TAB}", True
CorelScript.OLEObjectDoVerb (0)
SendKeys "{DEL}", True
Count = Count + 1
SendKeys Count, True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True

SendKeys "{TAB}", True
CorelScript.OLEObjectDoVerb (0)
SendKeys "{DEL}", True
Count = Count + 1
SendKeys Count, True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
SendKeys "{TAB}", True

ActiveDocument.PrintOut `отправляем полученный лист на принтер
Loop While MsgBox(Count, vbYesNo, "Done?") = vbYes `Здесь вывод на экран на контроль последнего кода, используется для отладки
`можно вставить Loop While (Count<число последнего ШК+1)

End Sub
Нажмите, чтобы раскрыть...

Коррекная работа возможна при выполнении следующих условий:

-все ШК вынесены в отдельный слой.
-все остальные слои заблокированы от изменений ("no editable" в докере "Object Manager")
-поскольку макрос имитирует ввод с клавиатуры, отключите ВСЕ приложения, поскольку перевод фокуса даже на сообщение принтера о начале печати собьет макрос с цикла
- установите на принтере "отложить печать" (по той же причине)
- перед запуском макроса настройте все параметры печати (макрос использует настройки Корела) после того как сформируются все задания - начнете печать.
- перед запуском макроса настройте все параметры в Bar Code Vizard (тип ШК, габариты и т.п.) макрос их будет использовать по умолчанию.
- перед запуском макроса выделите (1 один!!!) первый ШК (макрос работает с выделенным объектом)
- во время работы макроса комп лучше "оставить в покое" - не забывайте макрос иммитирут нажатие клавиш, но не проверяет полученный результат, переход в другое "окно" вызовет плачевный результат
 
Ответ: Штрих-код в Corel. Нужен совет.

Очень даже вероятны сбои... пройденый этап...
Если уж и идти таким путём то лучще через апи ловить hWnd окна баркод визарда и всех нужных полей ввода и кнопок... передавать им значения да и принцип размещения баркодов на листе можно реализовать иначе.

Я как то писал вот это http://allmacros.ru/index.php?newsid=39
Этот макрос содержит внутренний алгоритм построения баркодов...
Проверял на конкретных заказах... работает.

Но за ненадобностью разработка заброшена...
Если нашлось хотябы ок 10 покупателей то доделал бы...
 
Ответ: Штрих-код в Corel. Нужен совет.

Вопрос к знатокам.

Сгенерировал 2-а баркода CODE 128
1-й баркодВизардом.
2-й своим макросом.
значения одинаковые... а на выходе визуально разные

скачал стороннюю программу для распознавания баркодов.
тот который был сделал макросом распознал на ура, а баркодВизардом - сказал что штрих код не найден.

В чём фишка?
 

Вложения

  • Graphic1.jpg
    Graphic1.jpg
    108.1 КБ · Просм.: 1 770
Ответ: Штрих-код в Corel. Нужен совет.

Не знаток конечно, но может эта информация окажется полезной.
Для распознания кодов использую FineReader. Проверил, он тоже не понимает нижнего кода, верхний распознает правильно.
 
Ответ: Штрих-код в Corel. Нужен совет.

Sanchos сказал(а):
Очень даже вероятны сбои... пройденый этап...
Если уж и идти таким путём то лучще через апи ловить hWnd окна баркод визарда и всех нужных полей ввода и кнопок... передавать им значения да и принцип размещения баркодов на листе можно реализовать иначе.
Нажмите, чтобы раскрыть...
Сбои при соблюдении всех вышеперечисленных условий не наблюдались...
Макрос конечно простенький (точнее примитивный) но от него и не требуется решения глобальных задач, а с двумя-пятью сотнями бар-кодов справляется
Кстати о принципе размещения - ИМХО самое удобное когда я разместил ШК прямо на макете и подогнал размер "визуально", а не вводя цифирки

О покупателях - тут эта тема (автоматизации ШК) актуальна, может найдутся желающие?
 
Ответ: Штрих-код в Corel. Нужен совет.

да там я смотрю уже знают про мою разработку ))))

А про размер я так и задумывал... просто всё руки не дойдут доделывать макрос...
 
Ответ: Штрих-код в Corel. Нужен совет.

Просьба. У кого есть оборудование для считывания баркодов. Распечатайте и попробуйте считать баркоды из приложенного файла.

Жду ответа. заранее спасибо ))))
 

Вложения

Ответ: Штрих-код в Corel. Нужен совет.

Dmitry9000 сказал(а):
В кореле делаем небольшие тиражи ~1000шт
пользуемся простеньким макросом:


Коррекная работа возможна при выполнении следующих условий:

-все ШК вынесены в отдельный слой.
-все остальные слои заблокированы от изменений ("no editable" в докере "Object Manager")
-поскольку макрос имитирует ввод с клавиатуры, отключите ВСЕ приложения, поскольку перевод фокуса даже на сообщение принтера о начале печати собьет макрос с цикла
- установите на принтере "отложить печать" (по той же причине)
- перед запуском макроса настройте все параметры печати (макрос использует настройки Корела) после того как сформируются все задания - начнете печать.
- перед запуском макроса настройте все параметры в Bar Code Vizard (тип ШК, габариты и т.п.) макрос их будет использовать по умолчанию.
- перед запуском макроса выделите (1 один!!!) первый ШК (макрос работает с выделенным объектом)
- во время работы макроса комп лучше "оставить в покое" - не забывайте макрос иммитирут нажатие клавиш, но не проверяет полученный результат, переход в другое "окно" вызовет плачевный результат
Нажмите, чтобы раскрыть...

Че то у меня не получается с этим макросом :(
Меняет один и тот же штрих код, который я выделяю...
 
Ответ: Штрих-код в Corel. Нужен совет.

Для EAN-13 Пользуемся связкой ZonerBarcodeStudia-pdf-corel.
В Zonerbarcode генерим штрих код и делаем pdf содержащий 50-70 страниц.
Открываем (ВАЖНО что именно открываем а не импортируем) pdf корелом. получаем кореловский многостраничник с раскиданными штрих кодами.Создаем мастер пэйдж с дисконтками - печатаем-(все это работает в X3, в Х4 мастер пэйдж как то себя не "весело" ведет).На все дело -1500 дисконток уходит 15-20 минут от силы.
 
Ответ: Штрих-код в Corel. Нужен совет.

SEX_LENIVEC сказал(а):
Для EAN-13 Пользуемся связкой ZonerBarcodeStudia-pdf-corel.
В Zonerbarcode генерим штрих код и делаем pdf содержащий 50-70 страниц.
Открываем (ВАЖНО что именно открываем а не импортируем) pdf корелом. получаем кореловский многостраничник с раскиданными штрих кодами.Создаем мастер пэйдж с дисконтками - печатаем-(все это работает в X3, в Х4 мастер пэйдж как то себя не "весело" ведет).На все дело -1500 дисконток уходит 15-20 минут от силы.
Нажмите, чтобы раскрыть...


Простите, может глупый вопрос, но как в Zonerbarcode сгенерировать PDF файл?
 
Ответ: Штрих-код в Corel. Нужен совет.

keep сказал(а):
Простите, может глупый вопрос, но как в Zonerbarcode сгенерировать PDF файл?
Нажмите, чтобы раскрыть...
печать на виртуальный принтер генерящий пдф, или на акробат дистилер, при установке 8 по моему акробата в систему ставится принтер адоб пдф
 
Ответ: Штрих-код в Corel. Нужен совет.


Не по теме:
SEX_LENIVEC > при установке 8 по моему акробата в систему ставится принтер адоб пдф

У семерки так же.
 
SEX_LENIVEC сказал(а):
Ответ: Штрих-код в Corel. Нужен совет.
печать на виртуальный принтер генерящий пдф, или на акробат дистилер, при установке 8 по моему акробата в систему ставится принтер адоб пдф
Нажмите, чтобы раскрыть...
а как сделать так, чтобы разместить эти pdf в нужном месте макета? например, дисконтка, в левом нижнем углу нужен ШК. При открываниее pdf все будет размещено по середине страницы. Как мне сместить эти все страницы с кодами в нужное место?
 
danneo, просто открыть pdf через Ctrl-O.
 
Последнее редактирование модератором:
подскажите, пожалуйста, еще по тому, как экспортировать из barcode studia в один pdf файл (сохраняется только тысяча отдельных). Виртуального принтера нет.
 
danneo, отдельные pdf все скопом можно объединить в один - акробатом или нагуглить бесплатные утилитки.
 

Не по теме:
@wOxxOm, я очень рад, что вы снова с нами. Спасибо, что вернулись :).
 
Sanchos сказал(а):
Ответ: Штрих-код в Corel. Нужен совет.

Просьба. У кого есть оборудование для считывания баркодов. Распечатайте и попробуйте считать баркоды из приложенного файла.

Жду ответа. заранее спасибо ))))
Нажмите, чтобы раскрыть...
Может быть эта информация будет полезной.
Считывал смартфоном ( i-nigma) - ряд А и последнюю колонку 4 прочитать не удалось.
 
Жду ответа. заранее спасибо ))))
Sanchos, 1 окт 2008
Нажмите, чтобы раскрыть...
Ну да, спустя 5 лет найти телефон с камерой и программой читающей баркоды стало проще. :)
 
Варез (поиск, предложение, обсуждение и проч.)
Всем привет. помогите с персонализацией. Баркод - код 128. если персонализировать как шрифт, то не считывается.
{удалено}
Или же сгенерировал 1800 баркодов (епс), как сделать их персонализацию? чтобы прога сама вставляла эти епс
 
Последнее редактирование модератором:
Статус
Закрыто для дальнейших ответов.
Верх Низ