Admin: 1 revision imported

2021-02-07T06:54:20Z

1 revision imported

Admin: Created page with "{{infobox function |name=PrintSettingsChanged |object=Электронная таблица |caption=Флаг изменения..."

2020-07-25T12:55:26Z

Created page with "{{infobox function |name=PrintSettingsChanged |object=Электронная таблица |caption=Флаг изменения..."

New page

{{infobox function
|name=PrintSettingsChanged
|object=[[Электронная таблица SFT|Электронная таблица]]
|caption=Флаг изменения установок печати
|type=0
|status=2
|db=0
|rw=1
|visual=0}}
{{HeadLinks|
* [[Main_Page|Начальная страница]]
* [[Общее_описание_языка|Общее описание]]
* [[Объекты]]
* [[Электронная таблица SFT|Электронная таблица]]}}
Атрибут возвращает 1, если были изменены любые установки, связанные с печатью таблицы (кроме названия принтера). После выполнения печати этот атрибут автоматически сбрасывается. Атрибут может использоваться в универсальных обработчиках печати, а также для сохранения индивидуальных изменений печатных форм.

== Синтаксис ==
<code>
{{Grey|Table.}}'''PrintSettingsChanged'''():''<Были изменены установки печати таблицы (INT)>''
</code>

==== Возвращаемое значение ====
Возвращает 1, если установки печати изменялись, 0 в ином случае.

== Примеры ==
<pre>
//Функция размещается в глобальном модуле и вызывается в момент интерактивной печати таблицы
//Она также может использоваться для виртуализации печати, но в данном примере
// функция сохраняет установки печати в файл с тем, чтобы загрузить их, когда потребуется снова
// распечатать эту печатную форму
Function OnBeforePrint(Таб)
Result:=1;
If Таб.PrintSettingsChanged Then
Файл:=Uppercase(Таб.GetSourceName);
//Файл: MODULES\FREEFORMS\УЧЕТНЫЕОТДЕЛЫ\АНАЛИТИЧЕСКИЕ\АНАЛИЗЫПРОДАЖ\АНАЛИЗПРОДАЖ\TABLE
If pos("MODULES\FREEFORMS\",Файл)=0 Then
//Сохраняем установки только для таблиц из этого пути
Exit;
EndIf;
//Сохраняем только для "стандартных" таблиц
If Uppercase(GetFileName(Файл))<>"TABLE" Then
Exit;
EndIf;
TearStr(Файл,"MODULES\FREEFORMS\");
//Создаем имя файла установок
Файл:=AddBackSlash(GetUserDirectory())+"УстановкиПечатныхФорм\"+Replace(Replace(RemoveBackSlash(GetPath(Файл)),"\","_"),".","_")+".set";

//Список установок для сохранения
aList:=List.Create();
aList.SetByName("Orientation",Таб.Printing.Orientation);
aList.SetByName("ScaleMode",Таб.Printing.ScaleMode);
aList.SetByName("Scale",Таб.Printing.Scale);
aList.SetByName("PageOptions",Таб.Printing.PageOptions);
aList.SetByName("Left",Таб.Printing.Fields.Left);
aList.SetByName("Right",Таб.Printing.Fields.Right);
aList.SetByName("Up",Таб.Printing.Fields.Up);
aList.SetByName("Down",Таб.Printing.Fields.Down);
aList.SetByName("Titles.Up",Таб.Printing.Titles.Up.Size);
aList.SetByName("Titles.Down",Таб.Printing.Titles.Down.Size);
//Сохраним установки
ObjectToFile(aList,Файл);
EndIf;
EndFunction
</pre>

← Older revision	Revision as of 06:54, 7 February 2021
(No difference)

Table.PrintSettingsChanged - Revision history

Admin: 1 revision imported

Admin: Created page with "{{infobox function |name=PrintSettingsChanged |object=Электронная таблица |caption=Флаг изменения..."