Печать штрихкода

[Alex Che]

Вот код, который точно работает с Code39:

BCode Text(20)
FixedAsset.Barcode - поле в табл 5600: Code(20).

IF FixedAsset.Barcode <> '' THEN BCode := '*'+FixedAsset.Barcode+'*'
ELSE BCode := '';

Для проверки выведи сформированный код вместе со звёздочками на печать обычным шрифтом (я его печатал под штрихкодом, как обычно на этикетках).
Вроде бы у меня как раз и был IDAutomationHC39M, я загружал отсюда