Какой нужно поставить символ в 1С чтобы в Word был разрыв страницы
Есть некая таблица и шаблон в ворде
Шаблон=Константы.ЗаявлениеФизЛица.Получить();
Попытка
Выпуск=ПолучитьCOMОбъект("","WORD.Application");
Исключение
Сообщить(ОписаниеОшибки(),"!!!");
Сообщить("Возможно, MS Word не установлен на этом компьютере.");
Возврат;
КонецПопытки;
ДокВыпуск = Выпуск.Documents.Add(Шаблон,False,0);
Выпуск.Visible=True;
н =0;
Пока н <> Владелец.Приобретатели.Количество() Цикл
Если ЗначениеНеЗаполнено(Владелец.Приобретатели.Получить(н).Владелец.Фамилия) Тогда
ДокВыпуск.Variables.Item("Фам").Value =" ";
ИНаче
ДокВыпуск.Variables.Item("Фам").Value = Владелец.Приобретатели.Получить(н).Владелец.Фамилия;
конецЕсли;
н=н+1;
//Какой нужно поставить символ чтобы получился разрыв страницы и на новой странице напечаталась вторая фамилия?
КонецЦикла;
ДокВыпуск.Fields.UpDate();
Шаблон=Константы.ЗаявлениеФизЛица.Получить();
Попытка
Выпуск=ПолучитьCOMОбъект("","WORD.Application");
Исключение
Сообщить(ОписаниеОшибки(),"!!!");
Сообщить("Возможно, MS Word не установлен на этом компьютере.");
Возврат;
КонецПопытки;
ДокВыпуск = Выпуск.Documents.Add(Шаблон,False,0);
Выпуск.Visible=True;
н =0;
Пока н <> Владелец.Приобретатели.Количество() Цикл
Если ЗначениеНеЗаполнено(Владелец.Приобретатели.Получить(н).Владелец.Фамилия) Тогда
ДокВыпуск.Variables.Item("Фам").Value =" ";
ИНаче
ДокВыпуск.Variables.Item("Фам").Value = Владелец.Приобретатели.Получить(н).Владелец.Фамилия;
конецЕсли;
н=н+1;
//Какой нужно поставить символ чтобы получился разрыв страницы и на новой странице напечаталась вторая фамилия?
КонецЦикла;
ДокВыпуск.Fields.UpDate();
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
н =0;
Пока н <> Владелец.Приобретатели.Количество() Цикл
Если ЗначениеНеЗаполнено(Владелец.Приобретатели.Получить(н).Владелец.Фамилия) Тогда
ДокВыпуск.Variables.Item("ФизЛицо").Value =" ";
ИНаче
ДокВыпуск.Variables.Item("ФизЛицо").Value = Владелец.Приобретатели.Получить(н).Владелец.Фамилия;
конецЕсли;
Н=Н+1;
//ДокВыпуск.Application.Documents(1).Range().InsertBreak(7);
ПоследнийПараграф=ДокВыпуск.Range().Paragraphs.Add (ДокВыпуск.Range().Characters.Last);
ДокВыпуск.Application.Visible = True;
ДокВыпуск.Fields.UpDate();
ДокВыпуск.Activate();
КонецЦикла;
Как правильно установить разрыв страницы и чтобы данные из 1С были на каждом листе?
Пока н <> Владелец.Приобретатели.Количество() Цикл
Если ЗначениеНеЗаполнено(Владелец.Приобретатели.Получить(н).Владелец.Фамилия) Тогда
ДокВыпуск.Variables.Item("ФизЛицо").Value =" ";
ИНаче
ДокВыпуск.Variables.Item("ФизЛицо").Value = Владелец.Приобретатели.Получить(н).Владелец.Фамилия;
конецЕсли;
Н=Н+1;
//ДокВыпуск.Application.Documents(1).Range().InsertBreak(7);
ПоследнийПараграф=ДокВыпуск.Range().Paragraphs.Add (ДокВыпуск.Range().Characters.Last);
ДокВыпуск.Application.Visible = True;
ДокВыпуск.Fields.UpDate();
ДокВыпуск.Activate();
КонецЦикла;
Как правильно установить разрыв страницы и чтобы данные из 1С были на каждом листе?
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот