Corel BarCode Wizard & VBA

  • Автор темы Автор темы Burn
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
Burn

Burn

Забанен
Топикстартер
15 лет на форуме
Сообщения
2 218
Реакции
160
CMYK однажды упоминал об управлении BarCodeWizard-ом из Кореловского VBA. Не поделится ли он примером или ссылкой на почитать?
 
Ответ: Corel BarCode Wizard & VBA

Где это я такое написал, нельзя ли процитировать?

Что касается управления бар-код визардом из VBA - напишите кнопконажиматель и управляйте сколько влезет.

В принципе, создать изображение бар-кода средствами Корелского VBA совершенно нетрудно. Прямоугольнички и текст. Другое дело - данные о типах баркодов. Если у вас есть подробные данные о всех нужных вам типах бар-кодов то у вас, считайте уже есть все. Ну, данные какой шириной штриха какая цифра кодируется, как вычисляются контрольные суммы и какие коды коды допустимы в том или ином типе.

Полезете искать в инет сырцы для бар-код генераторов, сразу же упретесь в продажу различных программ, плагинов, active-x и dll.
 
Ответ: Corel BarCode Wizard & VBA

Ну значит меня подвела память...:(
Ну самому рисовать - вродебы не так уж и сложно, но в том же Ean-13 цифры кодируются штрихами достаточно хитро...
 
Ответ: Corel BarCode Wizard & VBA

Есть такие специальные шрифты - цифра и над ней штрих нужной ширины.

ЧТо касается самому рисовать - найдите данные по нужным вам бар-кодам и остальное дело - написать прогру останется на пол-дня.
 
Ответ: Corel BarCode Wizard & VBA

-=CMYK=- сказал(а):
ЧТо касается самому рисовать - найдите данные по нужным вам бар-кодам и остальное дело - написать прогру останется на пол-дня.
Нажмите, чтобы раскрыть...

Зачем что то писать, все уже написано. Есть замечательная прога BarCode Pro, выбираешь нужный стандарт (их там куча) размер штрих кода, диапазон номеров, и вперед. Сгенерит и сохранит куда надо.
 
Ответ: Corel BarCode Wizard & VBA

Интерес представляет не просто генерация штрих-кодов, а работа с такой программой как с COM-сервером (например с Word-ом или Corel-ом я могу работать, гененеря из-под своей программы то, что мне нужно в автомате)
 
Ответ: Corel BarCode Wizard & VBA

Burn сказал(а):
CMYK однажды упоминал об управлении BarCodeWizard-ом из Кореловского VBA. Не поделится ли он примером или ссылкой на почитать?
Нажмите, чтобы раскрыть...
Имхо Вы имели ввиду подобный примерчик:
В данном случае Вы создаете баркод EAN-13, вставляете его как OLE-объект, выделяете и запускаете скриптик
Sub bar() 'Select a barcode object
CorelScript.OLEObjectDoVerb (0) 'это запуск Barcode
SendKeys "{DEL}{TAB}{DEL}+{TAB}461234567890{ENTER}{ENTER}{ENTER}", True 'а это уже упомянутая топталка
End Sub
Другую обвязку (позиционирование, генерирование номера, вырезание-вставка как метафайл), думаю, нетрудно написать. Стоит присмотреться и к другим советам, особенно к использованию Barcode-шрифта.
 
Ответ: Corel BarCode Wizard & VBA

Памагите!
Для поочередного переименования баркодов соорудил макрос:
Sub bar() 'Select a barcode object

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

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

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

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

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

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

End Sub

Создаю нужное количество баркодов (с кодами "от фонаря"). Выделяю первый и запускаю. Все работает, но Корел не успевает отрабатывать "нажать ТАБ". В результате баркодер застревает на некоторых баркодах.
Программные задержки, паузы не помогают.
Подскажите, кто чем сможет.
 
Ответ: Corel BarCode Wizard & VBA

такая вот процедурка для ожидания может покатит
Код: 
private sub Wait(byval sec!)
  dim T0!:t0=timer:do while timer-t0<sec:DoEvents:loop
end sub
использовать:
Код: 
SendKeys "{TAB}", True
wait 0.2
CorelScript.OLEObjectDoVerb (0)...
 
Ответ: Corel BarCode Wizard & VBA

Не решают проблему.
Еще я пробовал:

PauseTime = 5
Start = Timer
' Call AllStartOperations
Do While Timer < Start + PauseTime
DoEvents
Loop

и вариант со Sleep 2000

Задерживает, но баркодер все равно застряёт.

Пробую пойти по другому пути.

Хочу сделать: меняю выделенный баркод, дублирую его на нужное место, меняю баркод дубля и так далее.

Sub Macro2()

Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange

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

Dim dup1 As ShapeRange
Set dup1 = OrigSelection.Duplicate()
dup1.Move 1.732283, 0#

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

Dim dup2 As ShapeRange
Set dup2 = dup1.Duplicate()
dup2.Move 1.732283, 0#

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

Dim dup3 As ShapeRange
Set dup3 = dup2.Duplicate()
dup3.Move 1.732283, 0#

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

End Sub

Но баркод меняется только выделенный первоначально.
wOxxOm, помоги.
 
Ответ: Corel BarCode Wizard & VBA

нужно выделять дубль:
Код: 
dup1.Move 1.732283, 0#
dup1.CreateSelection
......
 
Ответ: Corel BarCode Wizard & VBA

Спасибо, wOxxOm.
 
Ответ: Corel BarCode Wizard & VBA

А у меня не работают эти скрипты :(
Пишет, что " run time error '5' "
Я ничего сама в скриптах не понимаю. Помогите, пожалуйста.
Я вот начала с того, что создала штрих код и расставила его на странице в нужных местех. Получилась 21 штука. Как теперь нумерацию автоматически менять?
 
Статус
Закрыто для дальнейших ответов.
Верх Низ