Здравствуйте, мне нужно сделать штрих код на бланке (бланк в excel), программу я написала, вот
Local o As Object, s as String
DIMENSION arr(3)
o = CreateObject("Addin.PDF417")
arr(1) = "001043600062978 "+ALLTRIM(m.n_tab)+" "+ALLTRIM(M.ser_rec)+" "+ALLTRIM(STR(m.nom_rec));
+" "+ALLTRIM(M.mkb10)+" "+"1"+" "+"0"+" "+ALLTRIM(str(mclls0.nomk_ls))+" "+SUBSTR(M.snils, 1, 3)+SUBSTR(M.snils, 5, 3)+SUBSTR(M.snils, 9, 6);
+" "+ALLTRIM(M.DTD)+" "+ALLTRIM(STR(KL))+" "+ALLTRIM(M.C_kat)+" "+"1"+" "+ALLTRIM(M.signa);
+" "+ALLTRIM(STR(DAY(M.dat_v)))+" "+ALLTRIM(STR(MONTH(M.dat_v)))+" "+ALLTRIM(STR(YEAR(M.dat_v)))

arr(2) = 3
arr(3) = 17
s = SPACE(250)
COMARRAY(o,0)
o.ILanguageExtender_CallAsFunc(0, @s, @arr)
Release o
Strtofile(s, "INOUT\2dS.txt")


штрих код в excel нарисовала (PDF417), если в свойстве штрих кода в разделе "text" поставить данные из 2dS.txt, то штрих код меняется, а как сделать, что бы он менялся автоматически я не знаю?!!!

как мне вывести штрих код на печать???