Страница 1 из 3 1 2 3 Последняя
Показано с 1 по 10 из 21

Тема: Help! Есть програмисты знающие макрос CorelDRAW?

  1. #1
    Резидент Аватар для Sunsay
    Регистрация
    14.03.2011
    Сообщений
    121
    Спасибо
    49
    Сказали 50 раз в 26 постах

    Восклицание Help! Есть програмисты знающие макрос CorelDRAW?

    Сразу извиняюсь если пишу не туда... Но, нужна помощь...
    Нужен макрос в CorelDRAW(((
    Работаю печатником пластиковых карт, и штрих-коды приходится менять в ручную в CorelDRAW X4 ... Когда речь идет на десятки тысяч, очень не легко...
    Искал в интернете, ничего дельного не нашел.



    Примеры которые нашел, но они не работают:

    (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}{E NTER}", 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}{E NTER}", 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}{E NTER}", 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}{E NTER}", True

    End Sub

    Но баркод меняется только выделенный первоначально.
    wOxxOm, помоги.



    wOxxOm:
    нужно выделять дубль:
    dup1.Move 1.732283, 0#
    dup1.CreateSelection
    .........................................................................................................................................




    В кореле делаем небольшие тиражи ~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



    Всем заранее огромное спасибо) Надеюсь найти помощь...
    DV-2012..................

  2. Бронирование Отелей в США
    Circuit advertisement
    Регистрация
    Always
    Сообщений
    Many




     

  3. #2
    Гражданин Аватар для KoLoB
    Регистрация
    19.12.2008
    Адрес
    Prague, Czech Republic
    Возраст
    29
    Сообщений
    7,404
    Записей в дневнике
    60
    Спасибо
    2,980
    Сказали 3,577 раз в 1,738 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Вам именно в Кореле надо?
    Другие языки не подходят?

  4. #3
    Резидент Аватар для Sunsay
    Регистрация
    14.03.2011
    Сообщений
    121
    Спасибо
    49
    Сказали 50 раз в 26 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Нужно в Кореле...( Печатаем только от туда... Хотя можно все проще сделать в других программах... Но, решает начальство.
    DV-2012..................

  5. #4
    Гражданин Аватар для KoLoB
    Регистрация
    19.12.2008
    Адрес
    Prague, Czech Republic
    Возраст
    29
    Сообщений
    7,404
    Записей в дневнике
    60
    Спасибо
    2,980
    Сказали 3,577 раз в 1,738 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Инструкции и плагины есть тут:
    http://powerclip.ru/modules/newbb/pr...er=ASC&start=0
    http://cdrpro.ru/forum/13-132-1

  6. Эти пользователи сказали Спасибо KoLoB за этот пост:

    Sunsay (06.09.2011)

  7. #5
    Резидент Аватар для Sunsay
    Регистрация
    14.03.2011
    Сообщений
    121
    Спасибо
    49
    Сказали 50 раз в 26 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Был я на этих сайтах... Ничем к сожалению они мне не помогли) Почти все ссылки не рабочие... + Макрос платный и к тому же демо версия не подходит к версии Корела который у меня...
    DV-2012..................

  8. #6
    Гражданин Аватар для MikeS
    Регистрация
    31.05.2009
    Возраст
    50
    Сообщений
    8,783
    Спасибо
    1,571
    Сказали 4,790 раз в 2,525 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Цитата Сообщение от Sunsay Посмотреть сообщение
    Макрос платный и к тому же демо версия не подходит к версии Корела который у меня...
    Блин... Ты же сам печатаешь кредитки. Неужели не можешь купить полную версию скрипта?
    Чем коварны вежливость и тактичность — хрен поймёшь, что о тебе думают на самом деле.

  9. Эти пользователи сказали Спасибо MikeS за этот пост:

    KoLoB (06.09.2011)

  10. #7
    Гражданин Аватар для KoLoB
    Регистрация
    19.12.2008
    Адрес
    Prague, Czech Republic
    Возраст
    29
    Сообщений
    7,404
    Записей в дневнике
    60
    Спасибо
    2,980
    Сказали 3,577 раз в 1,738 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Только не говорите, что Корел Вы тоже не купили?

  11. #8
    Гражданин Аватар для Сашок PD
    Регистрация
    12.01.2010
    Адрес
    Нью-Йорк
    Возраст
    41
    Сообщений
    27,551
    Спасибо
    8,680
    Сказали 12,333 раз в 6,112 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Sunsay, надеюсь, Вы не печатаете дома кредитки, номера которых были украдены у других людей?

  12. #9
    Резидент Аватар для Sunsay
    Регистрация
    14.03.2011
    Сообщений
    121
    Спасибо
    49
    Сказали 50 раз в 26 постах
    Цитата Сообщение от MikeS Посмотреть сообщение
    Блин... Ты же сам печатаешь кредитки. Неужели не можешь купить полную версию скрипта?
    Могу, но она как и демка не пойдет... т.к. сделана так же

    Цитата Сообщение от Сашок PD Посмотреть сообщение
    Sunsay, надеюсь, Вы не печатаете дома кредитки, номера которых были украдены у других людей?
    Не в коем случаи... Серьезная организация)
    DV-2012..................

  13. #10
    Гражданин Аватар для Сашок PD
    Регистрация
    12.01.2010
    Адрес
    Нью-Йорк
    Возраст
    41
    Сообщений
    27,551
    Спасибо
    8,680
    Сказали 12,333 раз в 6,112 постах

    Re: Help! Есть програмисты знающие макрос CorelDRAW?

    Booking.com
    Цитата Сообщение от Sunsay Посмотреть сообщение
    Не в коем случаи... Серьезная организация
    Спасибо. Названия, конечно, у неё нет?

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. ОЧЕНЬ ВАЖНО только знающие дело по Канаде
    от torontino в разделе Вопросы, связанные с предстоящей иммиграцией (ПМЖ, продажа недвижимости, воинская обязанность и т.п.
    Ответов: 0
    Последнее сообщение: 21.07.2011, 14:11
  2. Ответов: 1
    Последнее сообщение: 26.05.2010, 16:39

Visitors found this page by searching for:

не работает sendkeys corel

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  

Форум "Говорим про Америку"
Форум "Говорим про Америку" Facebook