Вот код, который точно работает с Code39:
BCode Text(20)
FixedAsset.Barcode - поле в табл 5600: Code(20).
Код:
IF FixedAsset.Barcode <> '' THEN BCode := '*'+FixedAsset.Barcode+'*'
ELSE BCode := '';
Для проверки выведи сформированный код вместе со звёздочками на печать обычным шрифтом (я его печатал под штрихкодом, как обычно на этикетках).
Вроде бы у меня как раз и был IDAutomationHC39M, я загружал
отсюда