v7: не получается печать 2-мерных штрихкодов

А если так?

Функция ВывестиМашиночитаемуюФорму(Форма, ИмяКнопки) Экспорт

// сохраняем форму, если она не сохранена
Если Форма.Модифицированность Тогда
Если Вопрос("Перед печатью отчета требуется сохранить введеную информацию." + Символы.ПС + "Продолжить?", РежимДиалогаВопрос.ДаНет) <> КодВозвратаДиалога.Да
ИЛИ НЕ Форма.Сохранить() Тогда
Возврат Ложь;
КонецЕсли;
КонецЕсли;

// формируем текст выгрузки во временный файл
ВремФайл = ПолучитьИмяВременногоФайла();
Если НЕ СформироватьТекстВыгрузки(Форма, ВремФайл) Тогда
Возврат Ложь;
КонецЕсли;

// извлекаем параметры сформированного файла выгрузки
СтруктураПараметров = СформироватьСтруктуруПараметровФайлаВыгрузки(ВремФайл);
КаталогВремФайлов = КаталогВременныхФайлов();
КаталогВремФайлов = ?(Прав(КаталогВремФайлов, 1) = "\", КаталогВремФайлов, КаталогВремФайлов + "\");
ВремКаталог = КаталогВремФайлов + Строка(Новый УникальныйИдентификатор) + "\";
СоздатьКаталог(ВремКаталог);

// выгружаем во временный каталог шаблоны печати, соответствующие сформированному файлу выгрузки
Если НЕ ВыгрузитьШаблоныПечатиВКаталог(Форма, ВремКаталог, СтруктураПараметров["КНД"], ?(СтруктураПараметров["ЭтоXML"], СтруктураПараметров["ВерсФорм"], СтруктураПараметров["ВерФОтч"])) Тогда
Возврат Ложь;
КонецЕсли;

Результат = Истина;
КомпонентаУжеУстанавливалась = Истина;

// пытаемся создать объект для формирования машиночитаемой формы
ТаксДокПринт = Неопределено;
Попытка
ТаксДокПринт = Новый COMОбъект("TAXDOCPrt.TAXDOCPrint");
Исключение
// если не удалось создать объект, то спрашиваем у пользователя, хочет ли он установить компоненту
Если Вопрос("Для формирования машиночитаемой формы необходимо установить в системе вспомогательную компоненту.
|Установить компоненту сейчас?", РежимДиалогаВопрос.ДаНет) <> КодВозвратаДиалога.Да Тогда
Результат = Ложь;
Иначе
// если не удалось создать объект и пользователь не против, то запускаем установку компоненты
Если НЕ УстановитьКомпонентуПечатиМашиночитаемыхФорм(Истина) Тогда
Предупреждение("Формирование машиночитаемой формы прервано: в системе не установлена вспомогательная компонента.");
Результат = Ложь;
Иначе
ТаксДокПринт = Новый COMОбъект("TAXDOCPrt.TAXDOCPrint");
КомпонентаУжеУстанавливалась = Истина;
КонецЕсли;
КонецЕсли;
КонецПопытки;

Если ТаксДокПринт <> Неопределено Тогда
Попытка
ТаксДокПринт.PrintTiffFolder = ВремКаталог;
НаименованиеИФНС = ОпределитьНаименованиеИФНСПолучателяОтчета(Форма);
Если ЗначениеЗаполнено(НаименованиеИФНС) Тогда
ТаксДокПринт.SetPrintTiffParam1C("Наименование налогового органа-получателя", НаименованиеИФНС);
КонецЕсли;
Если ИмяКнопки = "ПечататьМашиночитаемыйБланк" Тогда
ТаксДокПринт.PrintFile(ВремФайл, "", "", 0);
Иначе
ТаксДокПринт.PreviewFile1C(ВремФайл, 0);
КонецЕсли;
Результат = Истина;
Исключение
//* Закомментировал Кравцов
ОбработатьОшибкуМодуляПечати(ИнформацияОбОшибке().Описание);
ТаксДокПринт = Неопределено;
// * Конец комментария - Кравцов
Результат = Ложь;
КонецПопытки;
КонецЕсли;

//Elit_Sol_20081001 {На некоторых компьютерах траблы
//с региональными настройками и стандартный файл не читается, сформируем свой
//Если НЕ Результат Тогда
// Текст1 = Новый ТекстовыйДокумент;
// Текст1.Прочитать(ВремФайл, КодировкаТекста.ANSI);
// ТекстСтр1 = Текст1.ПолучитьТекст();
//
// Текст2 = Новый ТекстовыйДокумент;
// МестоВставки = Найти(ВремФайл, "v8_");
// НашПуть = Сред(ВремФайл, 1, МестоВставки - 1) + "_temp.txt";
// Для СчетчикСтрок = 1 По СтрЧислоСтрок(ТекстСтр1) Цикл
// Стр = СтрПолучитьСтроку(ТекстСтр1, СчетчикСтрок);
// Текст2.ВставитьСтроку(СчетчикСтрок, Стр);
// КонецЦикла;
//
// Текст2.Записать(НашПуть, КодировкаТекста.ANSI);
//
// Попытка
// ТаксДокПринт.PrintTiffFolder = ВремКаталог;
// НаименованиеИФНС = ОпределитьНаименованиеИФНСПолучателяОтчета(Форма);
// Если ЗначениеЗаполнено(НаименованиеИФНС) Тогда
// ТаксДокПринт.SetPrintTiffParam1C("Наименование налогового органа-получателя", НаименованиеИФНС);
// КонецЕсли;
// Если ИмяКнопки = "ПечататьМашиночитаемыйБланк" Тогда
// ТаксДокПринт.PrintFile(НашПуть, "", "", 0);
// Иначе
// ТаксДокПринт.PreviewFile1C(НашПуть, 0);
// КонецЕсли;
// Результат = Истина;
// Исключение
// ОбработатьОшибкуМодуляПечати(ОписаниеОшибки().Описание);
// ТаксДокПринт = Неопределено;
// Результат = Ложь;
// КонецПопытки;
//КонецЕсли;

//Elit_Sol_20081001 }

ТаксДокПринт = Неопределено;
УдалитьВременныйКаталогШаблонов(ВремКаталог);
Возврат Результат;
КонецФункции