Переменная не определена

[sergejK74]

Тогда можно для простоты так

Код Выделить Развернуть

&НаКлиенте
Процедура Печать(Команда)
Если Год = 0 Тогда
возврат;
КонецЕсли;
НачальнаяДата = Дата(Год,1,1);
ТабличныйДокумент =  ПечатьНаСервере(НачальнаяДата,Год);
ТабличныйДокумент.Показать();
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПечатьНаСервере(НачДата,Год)
ТабДок = Новый ТабличныйДокумент;
Пока Год(НачДата) = Год Цикл
Месяц = Месяц(НачДата);
День = День(НачДата)+1;
Если НачалоМесяца(НачДата) = НачДата Тогда
ИмяОбласти = "R1C"+Месяц;
Ячейка = ТабДок.Область(ИмяОбласти);
Ячейка.Текст = строка(Формат(НачДата,"ДФ=MMMM"));
КонецЕсли;
ИмяОбласти = "R"+День+"C"+Месяц;
Ячейка = ТабДок.Область(ИмяОбласти);
Ячейка.Текст = строка(Формат(НачДата,"ДФ=dd.MM.yyyy"));
НачДата = НачДата + 24*60*60;
КонецЦикла;
Возврат ТабДок;
КонецФункции

[mrflow]

Работает)
Спасибо ОГРОМНОЕ!)