Повторение строк заголовка на каждой странице при обработке файлов Excel средствами платформы 1С:Предприятие

Вопросы повторения строк на каждой странице при работе с файлом Excel из программы, работающей в системе 1С.

Описание
Подробнее

Описание

При разработке печатной формы средствами платформы 1С:Предприятие есть возможность повторять при печати строки (заголовка, например) на каждом листе. Все просто, проблем нет. Заголовок повторяется на каждой странице. То же самое реализуется и в ПО Excel.

Когда возникла необходимость выполнить повторение заголовков на каждом листе при подготовке к печати файла Excel, формируемого программой, работающей в системе 1С, пришлось потратить много времени на поиск необходимой информации. Безуспешно. Возможно, я плохо искал и еще надо было покурить мануал по методам Excel.

Расставить заголовки можно программно, последовательно измеряя высоту строк. Недостатки у данного метода, конечно, есть:

Редактирование файла приведет к смещению заголовков. Решение: так же, программно, можно убрать заголовки и расставить их вновь.
Изменение масштаба, либо отступов приведет к смещению заголовков и повторная расстановка заголовков уже не поможет. Необходимо задать новую высоту страницы. В принципе, ее можно рассчитать, либо подобрать.

Можно вообще для вывода использовать уже настроенный файл-шаблон Excel.

Но, если формируемый документ является отчетом, не предназначенным к дальнейшему изменению вручную, либо файл передается для последующего вывода на печать, стоит отдать предпочтение предлагаемому предельно простому методу.

Приведенный ниже программный код прост и понятно закомментирован. Если будете расставлять заголовки в только что сформированном документе, предварительно сохраните его, иначе метод Excel неправильно определяет высоту строки.

Надеюсь, приведенный пример будет полезен.

НомерКопируемойCтроки = 2;
	
	Попытка Excel = Новый COMОбъект("Excel.Application"); 
	Исключение 
		Сообщить("Программа EXCEL не установлена на этом компьютере!"); 
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	РасположениеФайла = "C:\";
	ПолноеИмяФайла = РасположениеФайла +  "ТестовыйФайл.xlsx"; 
	
	Попытка
		Book = Excel.WorkBooks.Open(ПолноеИмяФайла);
	Исключение 
		Сообщить("Не найден файл" + ПолноеИмяФайла); 
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;

	ТекЛист = Book.WorkSheets(1);
	
	
	
	ОбщаяВысота = 0; 					 		   
		   Для СтЧ = 1 по ТекЛист.UsedRange.Rows.Count + 1 Цикл   //Цикл по всем строкам файла.
			   ОбщаяВысота = ОбщаяВысота + ТекЛист.Cells(СтЧ, 1).RowHeight;   //Последовательно перебираем строки и считаем их высоту.
			   
			   Если ОбщаяВысота > 465 Тогда     //Если при добавлении высоты очередной строки общая высота строк текущей страницы превысит 465, 
				   								//вставляем разрыв страницы и повторяющиеся строки перед этой очередной строкой  до 465 и вставляем
												//строку для повтора.  Высота задается в единицах Escel, в которых измеряется высота строки.
	                 							//Высота 465 подобрана для альбомной ориентации со стандартными отступами и масштабом 100 проц. 
					 							//При масштабировании и изменении полей эту величину необходимо корректировать.

				   
				   
				   Сообщить("Высота страницы превышена, включая строку № " +СтЧ+"  Вставляем повторяющуюся строку в " + СтЧ);
				   
				   ТекЛист.Rows(НомерКопируемойCтроки).Copy(); //копирование строки для повтора.
				   ТекЛист.Rows(СтЧ).Insert();                 //Вставка повторяющейся строки.
				   ТекЛист.HPageBreaks.Add(ТекЛист.Rows(СтЧ));//Вставляем разрыв страницы.
				   
				   ОбщаяВысота = 0;   // Обнуляем счетчик высоты для подсчета высоты строк на следующей странице.
					
			   КонецЕсли;
		   КонецЦикла;
		   
		   
		   
	Попытка
		Book.Save();
		Сообщить("Файл " + " " + " успешно сохранен"); 
	Исключение
		Сообщить(ОписаниеОшибки() + " Файл не сохранен!");
	КонецПопытки;

	Book.Close();
    Excel.Quit();
	
	



	//При необходимости можно задать параметры страницы.
        ТекЛист.PageSetup.Orientation = 2;//1 - книжная, 2 - альбомная.
		
		ТекЛист.PageSetup.LeftMargin = Excel.CentimetersToPoints(2/10); //Отступы.
		ТекЛист.PageSetup.RightMargin = Excel.CentimetersToPoints(2/10);
		ТекЛист.PageSetup.TopMargin = Excel.CentimetersToPoints(2/10);
		ТекЛист.PageSetup.BottomMargin = Excel.CentimetersToPoints(2/10);

		
		ТекЛист.PageSetup.FitToPagesWide = 1; //По ширине листа
		ТекЛист.PageSetup.FitToPagesTall = False; //Нет привязки по количеству строниц по высоте
		
		ТекЛист.PageSetup.Zoom = 100;  //Задаем масштабирование.

Каталог решений - Повторение строк заголовка на каждой странице при обработке файлов Excel средствами платформы 1С:Предприятие