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

Статус
Закрыто для дальнейших ответов.

Dmitry9000

Участник
Сообщения
2
Реакции
0
Ответ: Штрих-код в 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 один!!!) первый ШК (макрос работает с выделенным объектом)
- во время работы макроса комп лучше "оставить в покое" - не забывайте макрос иммитирут нажатие клавиш, но не проверяет полученный результат, переход в другое "окно" вызовет плачевный результат
 

Sanchos

Sancho
12 лет на форуме
Сообщения
806
Реакции
157
Ответ: Штрих-код в Corel. Нужен совет.

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

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

Но за ненадобностью разработка заброшена...
Если нашлось хотябы ок 10 покупателей то доделал бы...
 

Sanchos

Sancho
12 лет на форуме
Сообщения
806
Реакции
157
Ответ: Штрих-код в Corel. Нужен совет.

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

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

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

В чём фишка?
 

Вложения

  • Graphic1.jpg
    Graphic1.jpg
    108.1 КБ · Просм.: 1 731

Asmussen

15 лет на форуме
Сообщения
143
Реакции
47
Ответ: Штрих-код в Corel. Нужен совет.

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

Dmitry9000

Участник
Сообщения
2
Реакции
0
Ответ: Штрих-код в Corel. Нужен совет.

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

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

Sanchos

Sancho
12 лет на форуме
Сообщения
806
Реакции
157
Ответ: Штрих-код в Corel. Нужен совет.

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

А про размер я так и задумывал... просто всё руки не дойдут доделывать макрос...
 

Sanchos

Sancho
12 лет на форуме
Сообщения
806
Реакции
157
Ответ: Штрих-код в Corel. Нужен совет.

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

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

Вложения

  • barCode.zip
    56 КБ · Просм.: 584

MorozN

Участник
Сообщения
10
Реакции
0
Ответ: Штрих-код в Corel. Нужен совет.

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


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

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

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

SEX_LENIVEC

батрак без пенсии
12 лет на форуме
Сообщения
330
Реакции
49
Ответ: Штрих-код в Corel. Нужен совет.

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

keep

Участник
Сообщения
2
Реакции
0
Ответ: Штрих-код в Corel. Нужен совет.

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


Простите, может глупый вопрос, но как в Zonerbarcode сгенерировать PDF файл?
 

SEX_LENIVEC

батрак без пенсии
12 лет на форуме
Сообщения
330
Реакции
49
Ответ: Штрих-код в Corel. Нужен совет.

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

Evgen

Registered User
15 лет на форуме
Сообщения
2 054
Реакции
984
Ответ: Штрих-код в Corel. Нужен совет.


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

У семерки так же.

 

danneo

Участник
Сообщения
107
Реакции
0
Ответ: Штрих-код в Corel. Нужен совет.
печать на виртуальный принтер генерящий пдф, или на акробат дистилер, при установке 8 по моему акробата в систему ставится принтер адоб пдф
а как сделать так, чтобы разместить эти pdf в нужном месте макета? например, дисконтка, в левом нижнем углу нужен ШК. При открываниее pdf все будет размещено по середине страницы. Как мне сместить эти все страницы с кодами в нужное место?
 

wOxxOm

Участник
Сообщения
798
Реакции
3
danneo, просто открыть pdf через Ctrl-O.
 
Последнее редактирование модератором:

danneo

Участник
Сообщения
107
Реакции
0
подскажите, пожалуйста, еще по тому, как экспортировать из barcode studia в один pdf файл (сохраняется только тысяча отдельных). Виртуального принтера нет.
 

wOxxOm

Участник
Сообщения
798
Реакции
3
danneo, отдельные pdf все скопом можно объединить в один - акробатом или нагуглить бесплатные утилитки.
 

svlasov

Администратор
20 лет на форуме
Сообщения
2 225
Реакции
4 932

Не по теме:
@wOxxOm, я очень рад, что вы снова с нами. Спасибо, что вернулись :).
 

libSPB

R.I.P.
Сообщения
381
Реакции
1 148
Ответ: Штрих-код в Corel. Нужен совет.

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

Жду ответа. заранее спасибо ))))
Может быть эта информация будет полезной.
Считывал смартфоном ( i-nigma) - ряд А и последнюю колонку 4 прочитать не удалось.
 

suntory

Administrator
15 лет на форуме
Сообщения
23 349
Реакции
12 401
Жду ответа. заранее спасибо ))))
Sanchos, 1 окт 2008
Ну да, спустя 5 лет найти телефон с камерой и программой читающей баркоды стало проще. :)
 

a.rasim

Участник
Сообщения
1
Реакции
0
Варез (поиск, предложение, обсуждение и проч.)
Всем привет. помогите с персонализацией. Баркод - код 128. если персонализировать как шрифт, то не считывается.
{удалено}
Или же сгенерировал 1800 баркодов (епс), как сделать их персонализацию? чтобы прога сама вставляла эти епс
 
Последнее редактирование модератором:
Статус
Закрыто для дальнейших ответов.