Шрифт в штрих коде.

[Геннадий]

Надо повторить этикетку со штрих кодом, один в один.
Нарисовал все, и через barcode нарисовал шрих код.
Но у меня в 11 кореле по умолчанию стоит шрифт футуре, а надо ариалом. В закладке barcode шрифт не активный. Немогу найти где меняется шрифт.
Переустановка корела не помогла. Где это искать?

Этикетка на немецком, и этот шрифт тоже не смог побороть. пришлось набирать английским, а точки в буквах дорисовывать пальцем.
Может попутно и этот вопрос подскажете.
Пожалуйста.

 

[@diz@]

Ответ: Шрифт в штрих коде.

я оставляю штрихи и цифры
а остальное — в иллюстраторе
что хочешь, то и набираешь
сделал себе несколько заготовок и только создаю сами штрихи

 

[MaxUpgrader]

Ответ: Шрифт в штрих коде.

Создаешь штрихкод, копируешь в буфер, потом в Кореле делаешь Edit - Paste Special, там выбираешь Picture (Metafile). И уже в Кореле применяешь шрифт какой тебе угодно.

 

[Геннадий]

Ответ: Шрифт в штрих коде.

Мля, как всё просто.

СПАСИБО.

А с немецкими буковками кто нибудь знает что делать?

 

[Soloway]

Ответ: Шрифт в штрих коде.

Вводить немецкие символы, как и прочие турецкие, греческие и т.п. можно из окна символов. Ctrl+F11 или Text > Insert Character... Надеюсь, сам разберёшься с деталями. От себя добавлю лишь, что символы, которые ты хочешь ввести, должны присутствовать в том фонте, которым ты набираешь текст.

 

[wienta]

Ответ: Шрифт в штрих коде.

Возник аналогичный вопрос с изменением шрифта в при создании штрихкода. Поиск дал только этот ответ.

Создаешь штрихкод, копируешь в буфер, потом в Кореле делаешь Edit - Paste Special, там выбираешь Picture (Metafile). И уже в Кореле применяешь шрифт какой тебе угодно.

Интересно, изменилось ли что-то в Corel Draw версии Graphics Suite X3 или все еще применяется этот метод?
Проблема в том, что мне много надо создавать штрихкодов, и играться с каждым нет времени.
Кто знает, есть ли в версии Graphics Suite X3 такая возможность менять шрифт уже в процессе создания штрихкода?

 

[Darsh]

Ответ: Шрифт в штрих коде.

Кто знает, есть ли в версии Graphics Suite X3 такая возможность менять шрифт уже в процессе создания штрихкода?

Для каких то стандартов есть, а вот для EAN, JAN поменять дефолтный OCR мне не удается. Почти все остальные дают возможность выбрать шрифт.

 

[wienta]

Ответ: Шрифт в штрих коде.

жаль, мне нужен именно EAN.
Спасибо за ответ.

 

[Asmussen]

Ответ: Шрифт в штрих коде.

Можно аналогичную операцию (Copy-Paste Special) проделывать с помошью макроса. А потом можно уже и шрифт поменять и тд. Давно уже пользуюсь примерно таким макросом для обработки штрихкодов поштучно:

Function Barcode() 
Dim S As Shape, X As Double, Y As Double

If ActiveSelectionRange.Count <> 1 Then Exit Function

If ActiveShape.Type = cdrOLEObjectShape Then    
    ActiveSelectionRange.GetPosition X, Y
    ActiveSelectionRange.Copy
    ActiveSelectionRange.Delete
    ActiveLayer.PasteSpecial "Metafile"    
    ActiveSelectionRange.UngroupAll
  
    For Each S In ActiveSelectionRange
        If S.Type = cdrTextShape Then S.Text.Story.Font = "Times New Roman" 'Тут прописать нужный шрифт
        If S.Fill.UniformColor.Type = cdrColorRGB Then S.Fill.UniformColor.ConvertToCMYK
    Next 
       
    ActiveSelectionRange.Group
    ActiveSelectionRange.PositionX = X
    ActiveSelectionRange.PositionY = Y
    
End If
    
End Function

 

[wienta]

Ответ: Шрифт в штрих коде.

cпасибо.
Я правда с макросом раньше не сталкивалась, потому что использую CorelDraw только для создания штрихкодов, а всю остальную работу выполняю в Freehand.
Буду разбираться.
Спасибо еще раз.

 

[Asmussen]

Ответ: Шрифт в штрих коде.

Ну тогда вот файлик BarCode.gms.
Положить его в C:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS
Перезапустить Корел и искать в опциях Customization->Commants->Macros
строчку про Barcode и перетаскивать куда-нить кнопку или назначать клавишу на него.

 

[wienta]

Ответ: Шрифт в штрих коде.

Спасибо Вам большое, Вы меня очень выручили

 

[Asmussen]

Ответ: Шрифт в штрих коде.

Пожалуйста.
Только я не спросил, что за шрифт вам нужен. Так что, видимо, попрограммировать немного вам все-таки придется. Чтобы поставить нужный шрифт надо открыть редактор VBA (Atl-F11 из Корела) и найти в нем макрос Barcode, и в строке, где стоит "Times New Roman" вписать необходимый шрифт.

 

[wienta]

Ответ: Шрифт в штрих коде.

я тоже как-то не догaдалась спросить...
Как и автору темы Arial и еще один специфический от клиента.
Спасибо!

 

[A**Z]

Ответ: Шрифт в штрих коде.

Если это о6легчет жизнь, то можно изменить дефолтный шрифт:
:\Documents and Settings\user\Application Data\Corel\Graphics13\User Config\Barcode.ini

 

[wienta]

Ответ: Шрифт в штрих коде.

А как мне его изменить? В этом файле нет названия шрифта, есть только вот что (отрывок)

[Font]
Face Name=OCR-B-10 BT
Size=10

Вписать в [Font] название шрифта или как?
Это был бы наилучший вариант....

 

[A**Z]

Ответ: Шрифт в штрих коде.

OCR-B-10 BT - да, это и есть шрифт - вписывайте нужный, и дело в шляпе

 

[wienta]

Ответ: Шрифт в штрих коде.

A**Z, Вы гений!!!!
Огромное, преогромное спасибо!
Это именно то, что надо

 

[sil'viya]

Ответ: Шрифт в штрих коде.

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

 

[JAW]

Ответ: Шрифт в штрих коде.

Зачем? Эта подпись вообще не обязательна.
Главное, чтобы хоть как то читалось. Я водочные контр этикетки делаю порой, так там этот шрифт в таком мясе изначально, что даже больно. Главное, чтобы можно было руками пробить если сканер не читает, остальное от лукавого.
Ну, если единичная этикетка, то расставьте циферьки нужным шрифтом по месту. Если 12 в ряд, то посылайте...

P.S. Только не делайте ошибку кулдизигнеров... В штрихкоде значимы не циферьки, а полоски.
А то одна... изменила штрих-код... Перебила циферьки, а сам код оставила старым.