Для создания файла Excel с разбивкой на страницы в 1С:Предприятие можно использовать объект COM для работы с Excel. Ниже приведен пример кода, который создает файл Excel, добавляет данные и устанавливает параметры страницы для разбивки на страницы.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | 1C Попытка // Создаем объект Excel Excel = Новый COMОбъект("Excel.Application"); Excel.Visible = Ложь; // Скрываем Excel // Создаем новую книгу Workbook = Excel.Workbooks.Add(); Лист = Workbook.Worksheets(1); // Заполняем данные Для НомерСтроки = 1 По 100 Цикл Лист.Cells(НомерСтроки, 1).Value = "Данные " + НомерСтроки; КонецЦикла; // Устанавливаем параметры страницы Лист.PageSetup.Orientation = 2; // Альбомная ориентация Лист.PageSetup.LeftMargin = Excel.CentimetersToPoints(2); Лист.PageSetup.RightMargin = Excel.CentimetersToPoints(2); Лист.PageSetup.TopMargin = Excel.CentimetersToPoints(2); Лист.PageSetup.BottomMargin = Excel.CentimetersToPoints(2); Лист.PageSetup.FitToPagesWide = 1; // По ширине Лист.PageSetup.FitToPagesTall = 0; // Не ограничиваем по высоте // Добавляем разрывы страниц Для НомерСтроки = 1 По 100 Цикл Если НомерСтроки % 50 = 0 Тогда // Каждые 50 строк Лист.HPageBreaks.Add(Лист.Rows(НомерСтроки + 1)); КонецЕсли; КонецЦикла; // Сохраняем файл ПолноеИмяФайла = "C:ТестовыйФайл.xlsx"; Workbook.SaveAs(ПолноеИмяФайла); Workbook.Close(); Excel.Quit(); Сообщить("Файл успешно создан: " + ПолноеИмяФайла); Исключение Сообщить("Ошибка: " + ОписаниеОшибки()); КонецПопытки; |
В этом коде:
– Создается новый файл Excel и заполняется данными.
– Устанавливаются параметры страницы, такие как ориентация и поля.
– Добавляются разрывы страниц каждые 50 строк.
– Файл сохраняется по указанному пути.
Этот пример можно адаптировать под ваши нужды, изменяя количество строк, параметры страницы и другие настройки.