Вместо Т.Напечатать(0);
Надо написать:
Рег = СоздатьОбъект("РеестрWin");
Рег.ОткрытьКлюч("HKEY_CURRENT_USER","Software\1C\1Cv7\7.7\_НОВАЯ БАЗА\V7\" + ИмяПользователя + "\Moxel\Default","KEY_READ");
ИмяПринтера = "";
Рег.ЗапроситьЗначение("DefaultPrinter",ИмяПринтера);
Т = СоздатьОбъект("Таблица");
Т.ВывестиСекцию("Шапка");
Т.ПараметрыСтраницы(,,,,,,,,,,,ИмяПринтера + "\");
Т.Напечатать(0);