Головна » Файли » Готові скрипти

Переміщення рамки для друку вправо
08.03.2020, 20:36

Скрипт переміщує "жовту рамку" так, щоб лівий її край посунувся на місце правого (умовно на наступний листок вправо).

Таким чином можна створити шаблон, на якому зразу розміщено декілька сторінок і просто запускаючи скрипт, друкувати наступну сторінку.

$Properties=@Map.GetProperties
$Properties=@ReplaceChar ,.$Properties
@Text.Text $Properties
$Koor1=@Text.Line[2]
$Koor3=@Text.Line[4]
$Line1=@Text.Line[1]
$Scal=@StringPart 1 $Line1
$XR1=@StringPart 1 $Koor1
$YR1=@StringPart 2 $Koor1
$YR1=$YR1+210*$Scal/1000
$XR2=@StringPart 1 $Koor3
$XR2=297*$Scal/1000
$XR2=$XR1+$XR2
$YR2=210*$Scal/1000
$YR2=$YR1+$YR2
@Text.Line[2] $XR1 $YR1
@Text.Line[3] $XR2 $YR1
@Text.Line[4] $XR2 $YR2
@Text.Line[5] $XR1 $YR2
$Properties=@Text.Text
$Properties=@ReplaceChar .,$Properties
@Map.SetProperties $Properties
@Window.Refresh

Категорія: Готові скрипти | Додав: Микола
Переглядів: 1125 | Завантажень: 0 | Коментарі: 5 | Рейтинг: 5.0/1
Всього коментарів: 5
avatar
1 sadist • 17:49, 21.12.2020
А можна зробити так щоб ще щоб листок переміщався в ліво?
avatar
0
2 Микола • 17:58, 21.12.2020
так само тільки вліво, чи що ви маєте на увазі?
avatar
3 sadist • 18:22, 21.12.2020
Так, буває потрібно вернутись на попередній шаблон
avatar
0
4 Микола • 21:51, 21.12.2020
Просто в рядку 
$YR1=$YR1+210*$Scal/1000
замініть "+" на "-":
$YR1=$YR1-210*$Scal/1000
avatar
5 sadist • 22:01, 21.12.2020
Дякую
avatar