Скгиптовать, скгиптовать, и ещё раз скгиптовать, товарищи.
Вот совершенно простейший пример скГипта, который проверяет размер открытой (само собой, другим скГиптом) страницы, и решает, с какими установками она будет печататься.
Sub Гиппо()
If ActivePage.SizeWidth > 12 Then
ActiveDocument.PrintSettings.Load ("E:\Corel\Custom\Стили печати\A3plus.prs")
Call ComplexStackPrintA3
Else
ActiveDocument.PrintSettings.Load ("E:\Corel\Custom\Стили печати\Гиппо.prs")
Call ComplexStackPrint
End If
End Sub
собственно, это вроде крохотной кормушки, скармливающей на вход мощнейшей процедуры ComplexStackPrint, которую тут я не буду приводить, она длинная, тёмная по смыслу, и осуществляет ПОСОСИСОЧНУЮ ПЕЧАТЬ, минимизирующую холостой ход печатного механизмуса (трибьют ту Тёма Лебедев), да, скармливающей на вход принтер с нужными установками...
|