автомасштаб » Поиск

Результаты по ключевому слову: автомасштаб

Как вывести список на печать с учетом установленных отборов?

Этот код аналог функции Вывести список - вывод списка элементов справочника или списка документов:

Код 1C v 8.х

 Процедура ДействияФормыПечать(Кнопка)

	

	//Список для вывода

	Список = ЭтаФорма.ТабличноеПолеДокументов;

	

	//Табличный документ и его параметры

	ТабДок = Новый ТабличныйДокумент;

	ТабДок.АвтоМасштаб = Истина;

	ТабДок.ТолькоПросмотр = Ложь;

	ТабДок.ОтображатьСетку = Ложь;

	

	//Макет

	Макет = Документы.Заказ.ПолучитьМакет("МакетСписок");

	

	//Обозначение облостей макета

	ОбластьШапка = Макет.ПолучитьОбласть("Шапка");

	ОбластьСтрока = Макет.ПолучитьОбласть("Строка");

	

	//Вывод облости макета

	ТабДок.Вывести(ОбластьШапка);

	

	//Читаем список через построитель отчета

	Построитель = Новый ПостроительОтчета;

	Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(Список);

	Выборка = Построитель.Результат.Выбрать();

	

	Пока Выборка.Следующий() Цикл

		

		ОбработкаПрерыванияПользователя();

		ОбластьСтрока.Параметры.Заполнить(Выборка);

	

		//Вывод облости макета

		ТабДок.Вывести(ОбластьСтрока);

	КонецЦикла;

	

	//Показываем сформированную печатную форму	

	ТабДок.Показать();

	

КонецПроцедуры

Категория: Список Справочника, Документов, Регистров

Конвертация экселя в картику

На листе екселя есть картинки, надписи в произвольной форме. Как это чудище с конвертировать в картинку. Нашел процедуру

ФайлПрограммы = НовыйФайл("C:\Program Files\Bullzip\PDF Printer\gs\gswin32c.exe");

Если Не ФайлПрограммы.Существует() Тогда ТекстСообщения = "Не установлена программа - Bullzip"; ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);

Возврат "";

КонецЕсли;

ИмяКартинки = "Проба";

ПринтерPDF.SetValue("output", "D:\" +ИмяКартинки + ".jpg");

ПринтерPDF.SetValue("ShowSaveAS", "never");

ПринтерPDF.SetValue("ShowProgress", "no");

ПринтерPDF.SetValue("ShowProgressFinished", "no");

ПринтерPDF.SetValue("ShowSettings", "never");

ПринтерPDF.SetValue("ShowPDF", "no");

ПринтерPDF.SetValue("ConfirmOverwrite","no");

ПринтерPDF.SetValue("Device","jpeg");

ПринтерPDF.WriteSettings();

НастройкиПечатиОриентация= 1;// 1 - портерт, 2 - ландшафт.

НастройкиПечатиМасштаб= 100;// масштаб в процентах.

НастройкиПечатиРазложитьПоКопиям = 1;// 0 - не разбирать по копиям, 1 - разобрать по копиям.

НастройкиПечатиПолеЛев= 10;

НастройкиПечатиПолеПрав= 10;

НастройкиПечатиПолеВерх= 10;

НастройкиПечатиПолеНиз= 10;

НастройкиПечатиКолонтитулВерх= 0;

НастройкиПечатиКолонтитулНиз= 0;

НастройкиПечатиАвтомасштабПоШирине = 1;// 1 - включить, 0 - выключить.

НастройкиПечатиЧерноБелаяПечать = 0;// 1 - включить, 0 - выключить.

НастройкиПечатиИмяПринтера = "Bullzip PDF Printer";// Имя принтера в ОС

Таб.ПараметрыСтраницы(НастройкиПечатиОриентация, НастройкиПечатиМасштаб, НастройкиПечатиРазложитьПоКопиям,

НастройкиПечатиПолеЛев, НастройкиПечатиПолеПрав, НастройкиПечатиПолеВерх, НастройкиПечатиПолеНиз,

НастройкиПечатиКолонтитулВерх, НастройкиПечатиКолонтитулНиз, НастройкиПечатиАвтомасштабПоШирине,

НастройкиПечатиЧерноБелаяПечать, НастройкиПечатиИмяПринтера);

Таб.КоличествоЭкземпляров(1);

Таб.Напечатать(0);

Но есть вопрос? Как перетащить лист экселя в Таб? Нашел много способов и на этом форуме но перетаскиваются только текстовые данные, а мне нужно все.

Категория: Работа с Microsoft Office и OpenOffice

Табличный документ: Колонтитулы и параметры страницы

Большинство обучающих материалов по программированию в системе 1С при описании формирования печатных форм на основе объекта «Табличный документ» ограничиваются выводом готовой формы на экран. Для пользователей же куда более важным является то, как документ будет выглядеть в распечатанном виде. Здесь, кроме хорошо сверстанного макета, играют роль и установки параметров печати.Почти все параметры, доступные в диалогах настройки печати (настройки принтера, свойства страницы), можно указать непосредственно при формировании табличного документа.Рассмотрим свойства и методы табличного документа, относящиеся к настройкам печати (в приведенных примерах «ТабДок» это объект типа «Табличный документ»).

Свойство «ИмяПринтера» позволяет задать для печати принтер, отличный от установленного по умолчанию. Имя должно совпадать с именем принтера, заданным в системе:

ТабДок.ИмяПринтера="HP LaserJet 3050 Series PCL 6";

При печати пакета документов можно сэкономить время, установив признак разбора по копиям:

ТабДок.РазборПоКопиям=истина;

Число копий можно указать так:

ТабДок.КоличествоЭкземпляров=5;

Разумеется, можно задать поля:

ТабДок.ПолеСлева=20;//Поле слева 20мм, остальные поля 10мм (по умолчанию)

Еще несколько свойств страницы:

ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт; ТабДок.ЭкземпляровНаСтранице=2; //на листе будет размещено 2 страницы ТабДок.Автомасштаб=истина; //аналогично настройкам масштаба «по ширине страницы»

При необходимости можно указать конкретное значение масштабирования в процентах (свойство «МасштабПечати»).

Свойство «РазмерСтраницы» позволяет задать стандартные форматы страницы – “A3”, “A4”, “A5” (полный список вариантов доступен в справке 1С).

ТабДок.РазмерСтраницы="A3";// буква А должна быть английской

Для нестандартного размера бумаги (Custom) можно указать значения высоты и ширины страницы (в мм):

ТабДок.РазмерСтраницы="Custom";//нестандартный размер ТабДок.ВысотаСтраницы=350; ТабДок.ШиринаСтраницы=350;

Также в табличном документе доступно управление выводом колонтитулов и их содержимым. Для этого служат свойства «ВерхнийКолонтитул» и «НижнийКолонтитул». Например:

ТабДок.ВерхнийКолонтитул.Выводить=истина; //будет напечатан верхний колонтитул ТабДок.РазмерКолонтитулаСверху=7; //размер колонтитула 7мм (по умолчанию 10мм) ТабДок.ВерхнийКолонтитул.ВертикальноеПоложение=ВертикальноеПоложение.Верх; ТабДок.ВерхнийКолонтитул.НачальнаяСтраница=2;//колонтитул выводится со второй страницы ШрифтКолонтитула=Новый Шрифт("Courier New", 8,,Истина); ТабДок.ВерхнийКолонтитул.Шрифт=ШрифтКолонтитула; //наклонный шрифт ТабДок.ВерхнийКолонтитул.ТекстВЦентре="Верхний колонтитул"; ТабДок.ВерхнийКолонтитул.ТекстСправа="Стр.[&НомерСтраницы] из [&СтраницВсего]"; //нумерация страниц ТабДок.ВерхнийКолонтитул.ТекстСлева="[&Дата]";//текущая дата

Сформированный документ отправляется на печать с помощью метода «Напечатать()». Возможно два варианта вызова.

1) Непосредственно на принтер:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать); ТабДок.Напечатать(истина);

2) Перед печатью будет выведен диалог печати:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.Использовать); ТабДок.Напечатать(ложь);

Кроме того можно управлять и разбиением документа на страницы. Оценить количество страниц в документе по настройкам текущего принтера можно так:

ТабДок.КоличествоСтраниц();

С помощью методов «ПроверитьВывод()» и «ПроверитьПрисоединение()» можно определить, умещается ли табличный документ или массив областей табличного документа на странице в высоту и в ширину при текущих настройках принтера.Надо иметь ввиду, что работа последних трех методов зависит от установленного принтера. Если методу не удается его найти, вызывается исключение.

Принудительно вставить разрывы страниц позволяют методы «ВывестиВертикальныйРазделительСтраниц()» и «ВывестиГоризонтальныйРазделительСтраниц()».Таким образом, можно управлять постраничным выводом на печать и контролировать заполнение страницы:

Если Не ТабДок.ПроверитьВывод(МассивВыводимыхОбластей) Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;

Категория: Табличный документ

Шаблон кода для вывода данных в табличный документ

Часто при разработке необходимо вывести данные в печатную форму, ниже шаблон вывода в табличный документ

Пример процедуры Вывода на печать

Код 1C v 8.х

 Процедура Печать(ТабДок) Экспорт



//создание нового  табличного   документа 

ТабДок = Новый ТабличныйДокумент; 



//получение макета для печати расходной накладной

Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Основной");



//получим область "Заголовок" как новый  табличный   документ  (!)

Область = Макет.ПолучитьОбласть("Заголовок"); 



//укажем параметры области

Область.Параметры.НомерДокумента = Номер;

Область.Параметры.От = Дата;

Область.Параметры.Кому = Контрагент;



//выведем заполненную область "Заголовок"  в   табличный   документ 

ТабДок.Вывести(Область);



//выведем область "Шапка"  в   табличный   документ 

ТабДок.Вывести(Макет.ПолучитьОбласть("Шапка"));



//получение области "Строка"

//обратите внимание, что это можно сделать до цикла по строкам

Область = Макет.ПолучитьОбласть("Строка");



// вывод  строк  документа  в печатную форму

Для Каждого СтрСостава Из Состав Цикл 

          //заполнение параметров области из строки  табличной  части 

     Область.Параметры.Заполнить(СтрСостава);



     // вывод  сформированной области  в   табличный   документ 

     ТабДок.Вывести(Область);



КонецЦикла;



// вывод  области "Подвал"

Область = Макет.ПолучитьОбласть("Подвал");

Область.Параметры.ИтогоКоличество = Состав.Итог("Количество");

Область.Параметры.ИтогоСумма = Состав.Итог("Сумма");

ТабДок.Вывести(Область);



//установим параметры отображения  табличного   документа 

ТабДок.ТолькоПросмотр = Истина;

ТабДок.ОтображатьЗаголовки = Истина;

ТабДок.ОтображатьСетку = Ложь;



//покажем  табличный   документ  на экране 

ТабДок.Показать();



КонецПроцедуры<br>

Пример функции формирующей печатную форму Счета по Ссылке на документ:

Код 1C v 8.х

 Функция СформироватьПечатнуюФорму(СсылкаНаДокумент, ОбъектыПечати)



ТабличныйДокумент = Новый ТабличныйДокумент;

ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетНаОплату";



МакетОбработки = ПолучитьМакет("Счет");



//заполняем шапку

ОбластьШапка = МакетОбработки.ПолучитьОбласть("Шапка");

ОбластьШапка.Параметры.НомерДокумента = СсылкаНаДокумент.Номер;

ОбластьШапка.Параметры.ДатаДокумента = СсылкаНаДокумент.Дата;

ОбластьШапка.Параметры.НазваниеОрганизации = СсылкаНаДокумент.Организация.Наименование;

//выводим шапку в табличный документ

ТабличныйДокумент.Вывести(ОбластьШапка);



//заполняем строки ТЧ

ОбластьСтроки = МакетОбработки.ПолучитьОбласть("СтрокаТЧ");



// Перебор строк документа

Для Каждого ТекущаяСтрока Из СсылкаНаДокумент.Товары Цикл

ЗаполнитьЗначенияСвойств(ОбластьСтроки.Параметры, ТекущаяСтрока);

ТабличныйДокумент.Вывести(ОбластьСтроки);

КонецЦикла;



//заполняем подвал

ОбластьПодвал = МакетОбработки.ПолучитьОбласть("Подвал");

ОбластьПодвал.Параметры.КоличествоИтог = СсылкаНаДокумент.Товары.Итог("Количество");

ОбластьПодвал.Параметры.СуммаИтог = СсылкаНаДокумент.Товары.Итог("Сумма");

ОбластьПодвал.Параметры.ИмяОтветственного = СсылкаНаДокумент.Менеджер.Наименование;

//выводим подвал в табличный документ

ТабличныйДокумент.Вывести(ОбластьПодвал);



// Установим настройки выводимого документа

ТабличныйДокумент.АвтоМасштаб = Истина;



Возврат ТабличныйДокумент;

КонецФункции

Категория: Табличный документ

Печатная форма с использованием СКД

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

Код 1C v 8.х

 Процедура ОсновныеДействияФормыПечать(Кнопка)



 Если Ссылка = Документы.РасчетЗаказа.ПустаяСсылка() тогда

 Предупреждение("Документ не записан");

 Возврат;

 Иначе

 Схема = ПолучитьМакет("Макет1");

 Настройки = Схема.НастройкиПоУмолчанию;

 КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных();

 КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);



ПараметрДок = Новый ПараметрКомпоновкиДанных("документ");

 ЗначениеПараметраДок = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(ПараметрДок);

 ЗначениеПараметраДок.Значение = Ссылка;

 ЗначениеПараметраДок.Использование = Истина;

 Настройки = КомпоновщикНастроек.Настройки;



 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки);

 ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

 ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);

 ДокументРезультат = Новый ТабличныйДокумент;

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

 ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);



 ДокументРезультат.ОтображатьЗаголовки = Ложь;

 ДокументРезультат.ОтображатьСетку = Ложь;

 ДокументРезультат.АвтоМасштаб = Истина;

 ДокументРезультат.Показать();



 КонецЕсли;

КонецПроцедуры

Автор: sanja

Категория: Схема Компоновки Данных

Печать в PDF

Столкнулся с вопросом печати счета на оплату сразу в pdf.
Решение: установка виртуального принтера bioPDF скачать можно тут. И прописывание в 1с следующего кода:

Код 1C v 8.х

 

    Попытка

        ПДФ_принтер = Новый COMОбъект("bioPDF.PDFPrinterSettings");

    Исключение

        #Если Клиент Тогда

            Предупреждение("Не удалось подключиться к PDF-принтеру!", 60);

        #КонецЕсли

        Возврат;

    КонецПопытки;

    ПДФ_принтер_имя = ПДФ_принтер.GetPrinterName();

    ИмяФайла = Константы.КаталогФайловПДФ.Получить() +"" + Заголовок + ".pdf";



    ПДФ_принтер.SetValue("output",    ИмяФайла);

    ПДФ_принтер.SetValue("ConfirmOverwrite", "yes");

    ПДФ_принтер.SetValue("ShowSaveAS",   "never");

    ПДФ_принтер.SetValue("ShowSettings",  "never");

    ПДФ_принтер.SetValue("ShowPDF",    "no");

    ПДФ_принтер.SetValue("Target",    "printer");



    ПДФ_принтер.SetValue("Subject",  "Report generated at " + ТекущаяДата());

    ПДФ_принтер.SetValue("UseThumbs", "yes");

    ПДФ_принтер.SetValue("Zoom",  "100");



    ПДФ_принтер.SetValue("WatermarkFontSize", "10");

    ПДФ_принтер.SetValue("WatermarkTransparency", "50");

    ПДФ_принтер.SetValue("WatermarkVerticalPosition", "bottom");

    ПДФ_принтер.SetValue("WatermarkHorizontalPosition", "right");

    ПДФ_принтер.SetValue("WatermarkVerticalAdjustment", "3");

    ПДФ_принтер.SetValue("WatermarkHorizontalAdjustment", "1");

    ПДФ_принтер.SetValue("WatermarkRotation", "90");

    ПДФ_принтер.SetValue("WatermarkColor", "#ff0000");

    ПДФ_принтер.SetValue("WatermarkOutlineWidth", "1");

    ПДФ_принтер.WriteSettings(True);



    ПечатныйДокумент.ИмяПринтера = ПДФ_принтер_имя;

    ПечатныйДокумент.АвтоМасштаб = Истина;

    ПечатныйДокумент.Напечатать();

Как выяснилось во время печати в pdf есть проблема с передачей прозрачности картинки. Если вставлять прозрачную печать в счет поверх подписи, то в pdf-документе печать будет непрозрачной и затрет все собой. У меня был частный случай, когда печать находилась на одном и том же месте документа и за ней постоянно было одно и то же. Решением в данном случае стала генерация картинки печати с фоном, на котором она должна быть и вставка её в макет.

Так же решением может быть печать не в pdf а xps документ. Там с прозрачностью все нормально.
Автор: Андрей Данилюк

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

Категория: COM-объекты, WMI, WSH

Как закрепить, фиксировать область выводимого табличного документа?

Код 1C v 8.х

  //Фиксируем область, Закрепим область, сверху 4 ячейки, слева 1 

ТаблДокумент.ФиксацияСверху = 4;

ТаблДокумент.ФиксацияСлева = 1;

//Установить вид страницы Альбомная

ТаблДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

//Установим автомасштаб

ТаблДокумент.АвтоМасштаб = Истина;

//Установим только просмотр

ТаблДокумент.ТолькоПросмотр = Истина;

Код 1C v 7.x

  Таблица.Опции(,,1,1,,,);

Категория: Табличный документ

Пример вывода в шапке отчета произвольного текста и Картинки

Многие спрашивают "Как в шапке отчета созданом с помощи СКД разместить произвольный текст и Картинку?", так вот:

1. Для примера буду использовать отчет созданный в Пример разработки простого отчета - Схема Компоновки Данных (СКД)
2. В отчете создадим основную форму и для кнопки сформировать пропишем процедуру ПечатьНажатие:
title

Код 1C v 8.х

 Процедура ПечатьНажатие(Элемент)

 СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

 

 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

 ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

 Настройки = КомпоновщикНастроек.Настройки;

 МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);

      

 ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,, ДанныеРасшифровки);

 

 ДокументРезультат = ЭлементыФормы.Результат;

 ДокументРезультат.АвтоМасштаб = Истина; // Сделаем по ширине листа

 //А если сделать так как на следующей строчке, то можно вывести в новый Табличный документ

 //ДокументРезультат = Новый ТабличныйДокумент;

 

 //Вывод текста и картинки

 Макет = ПолучитьМакет("НазваниеСРисунком");

 ОбластьВывести = Макет.ПолучитьОбласть("Вывести");

    ОбластьВывести.Параметры.ТекДата=ТекущаяДата();

 ДокументРезультат.Вывести(ОбластьВывести);

 //Текст и картинку вывели, теперь сам отчет

 

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

 ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

 

 ДокументРезультат.ОтображатьСетку = Ложь;

 ДокументРезультат.ОтображатьЗаголовки = Ложь;

 ДокументРезультат.Показать();

КонецПроцедуры

3. И создаем макет "НазваниеСРисунком"
title

4. Сохраняем, запускаем, получаем:
title

Автор: Евгений Мигачев

Категория: Схема Компоновки Данных

Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF.

Оптимальным решением является установка Bullzip PDF Printer . После установки в системе появляется виртуальный принтер, с помощью которого можно "печатать" в файл pdf из любого приложения. Программа бесплатная, работает в терминале и имеет поддержку русского языка.
После установки, можно печатать напрямую используя код:

Код 1C v 8.х

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



Сообщить(ОписаниеОшибки());

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

КонецПопытки;

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

КонецПроцедуры

Здесь функция ПолучитьПринтерПоУмолчанию() нужна для того чтобы вернуть печатной форме принтер по умолчанию, т.к. если напечатать без предварительного просмотра то печать пойдет на виртуальный PDF принтер BullzipPDFPrinter.

Код 1C v 8.х

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2&#8243;»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

КонецФункции

Печать в PDF используя bioPDF

Категория: Администрирование

Построение диаграммы

Код 1C v 8.х

 Процедура ФормДиаграммы()

           Траб=Новый ТаблицаЗначений;

           Траб.Очистить();

           Траб.Колонки.Добавить("ххх");

           Траб.Колонки.Добавить("Норм");

           Траб.Колонки.Добавить("Факт");

          

           НовСтр=Траб.Добавить();

           НовСтр.ххх="а1";

           НовСтр.Норм=5;

           НовСтр.Факт=10;

           НовСтр=Траб.Добавить();

           НовСтр.ххх="а2";

           НовСтр.Норм=2;

           НовСтр.Факт=15;

           НовСтр=Траб.Добавить();

           НовСтр.ххх="а3";

           НовСтр.Норм=8;

           НовСтр.Факт=14;

                                     

           ТабДок = Новый ТабличныйДокумент;

           Макет = Отчеты.УчетнаяКарточка.ПолучитьМакет("Диагр");

          

           ОблДиаграмма = Макет.ПолучитьОбласть("Диагр1");

           Диаграмма = ОблДиаграмма.Рисунки.D1.Объект;

          

           Диаграмма.СерииВСтроках = Ложь;

           Диаграмма.Обновление=Ложь;

          

           Диаграмма.ИсточникДанных = Траб;

          

           Диаграмма.Обновление=Истина;

           ТабДок.Вывести(ОблДиаграмма);

          

           ТабДок.АвтоМасштаб=Истина;

           ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

           ТабДок.Показать();

КонецПроцедуры

Полезная процедура формирования диаграммы в макете
Строить можно и в макете и в форме.

Код 1C v 8.х

 

Процедура ПостроитьДиаграмму(Траб,Диаграмма)



Для Каждого Колонка из Траб.Колонки Цикл

 Если Траб.Колонки.Индекс(Колонка) <> 0 Тогда

  Диаграмма.Серии.Добавить(Колонка.Имя);

 КонецЕсли;

КонецЦикла;



Для Каждого СтрТраб из Траб Цикл

 Точка=Диаграмма.Точки.Добавить(СтрТраб.Получить(0));

 Индекс=0;

 Для Каждого Серия из Диаграмма.Серии Цикл

  Индекс=Индекс+1;

  Диаграмма.УстановитьЗначение(Точка,Серия,СтрТраб.Получить(Индекс));

 КонецЦикла;

КонецЦикла;

КонецПроцедуры

gwa. Григорьев В.

Категория: Диаграмма

Как сформировать, вывести на печать таблицу, табличный документ

Код 1C v 8.х

  //Получение макета и областей вывода

	Макет = ПолучитьМакет("Отчет"); 

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); 

	ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой")

	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали"); 

	

	ТабДок = Новый ТабличныйДокумент; 

	//Вывод параметров в область

	ОбластьЗаголовок.Параметры.ДатаНач = ДатаНач; 

	ОбластьЗаголовок.Параметры.ДатаКон = ДатаКон; 

	//Вывод области в табличный документ

	ТабДок.Вывести(ОбластьЗаголовок); 

	//Вывод картинки

	Картинка = Новый Картинка(ПутьККартинке); 

   // Элемент управления "Логотип" входит в коллекцию картинок области. 

	ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 

	ТабДок.Вывести(ОбластьКартинки); 

    //Выведем шапку таблицы

	ТабДок.Вывести(ОбластьШапкаТаблицы); 

	//Выведм строки из Результата запроса

    ВыборкаДетали = Результат.Выбрать(); 

	Пока ВыборкаДетали.Следующий() Цикл 

		//Заполним параметры значениями свойств переданного объекта. Заполняются только те параметры, имена которых совпадают с именами свойств объекта.

		ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали); 

		//Запишем в и область Описание примечание из запроса

		ОбластьДетальныхЗаписей.Область("Описание").Примечание.Текст = ВыборкаДетали.СодержаниеСобытия; 

		ТабДок.Вывести(ОбластьДетальныхЗаписей); 

	КонецЦикла; 

	//Зададим параметры вывода

	ТабДок.АвтоМасштаб=истина; // уместить на одну страницу

	ТабДок.ТолькоПросмотр=истина;

	ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;

	ТабДок.ОтображатьСетку=Ложь;

	ТабДок.ОтображатьЗаголовки=Ложь;

	//Выведем полученный документ

	ТабДок.Показать();

Код 1C v 7.x

  

Процедура ПросмотрДокумента()

	Таб = СоздатьОбъект("Таблица");

	Таб.ИсходнаяТаблица("РасходныйДокумент");

	Секция = Таб.ПолучитьСекцию("Шапка");

	Таб.ВывестиСекцию(Секция);

	Секция = Таб.ПолучитьСекцию("ПодписьТаблицы");

	Таб.ВывестиСекцию(Секция);

	ВыбратьСтроки();

	Пока  ПолучитьСтроку()=1 Цикл 

		Секция = Таб.ПолучитьСекцию("ТабличнаяЧасть");

		Таб.ВывестиСекцию(Секция);

	КонецЦикла;                       

	Секция = Таб.ПолучитьСекцию("Подвал");	

	Таб.ВывестиСекцию(Секция);

	Таб.ТолькоПросмотр(0);

	Таб.Показать();

КонецПроцедуры

Категория: Табличный документ