Программа для потоковой печати фотографий

[KarSlon]

Скгиптовать, скгиптовать, и ещё раз скгиптовать, товарищи.

Вот совершенно простейший пример скГипта, который проверяет размер открытой (само собой, другим скГиптом) страницы, и решает, с какими установками она будет печататься.

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, которую тут я не буду приводить, она длинная, тёмная по смыслу, и осуществляет ПОСОСИСОЧНУЮ ПЕЧАТЬ, минимизирующую холостой ход печатного механизмуса (трибьют ту Тёма Лебедев), да, скармливающей на вход принтер с нужными установками...