.FitToPagesTall и .FitToPagesWide - это количество страниц, на которых размещается документ (в высоту или ширину), может быть либо положительным числом, либо False (тогда идет обработка связанного параметра). Соответственно, данные параметры не могут принимать значения <=0, а значит, и True ( = -1 после приведения). В общем, надо отвыкать от "0 - это False, не 0 - это True". Вернее, данные эквиваленты допустимо использовать с операторами языка, или для битовой логики, - но никак не со свойствами/методами объектов (подразумевающими обработку процедурой property)
.FitToPagesTall и .FitToPagesWide - это количество страниц, на которых размещается документ (в высоту или ширину), может быть либо положительным числом, либо False (тогда идет обработка связанного параметра). Соответственно, данные параметры не могут принимать значения <=0, а значит, и True ( = -1 после приведения). В общем, надо отвыкать от "0 - это False, не 0 - это True". Вернее, данные эквиваленты допустимо использовать с операторами языка, или для битовой логики, - но никак не со свойствами/методами объектов (подразумевающими обработку процедурой property)AndreTM
Skype: andre.tm.007 Donate: Qiwi: 9517375010
Сообщение отредактировал AndreTM - Воскресенье, 30.08.2015, 12:22
False в этом случае - это false. Свойство FitToPagesTall объекта PageSetup описано как Variant. Описание класса может содержать что-то вроде [vba]
Код
Dim PagesToTall as Long
Public Property Let FitToPagesTall(propertyValue) If propertyValue = False Then ' проверяем .FitToPagesWide Else If propertyValue >= 1 Then PagesToTall = Round(propertyValue, 0) Else Err.Raise 1004 End If End If End Property
как раз и означает, что эквивалентное, но не равное
False в этом случае - это false. Свойство FitToPagesTall объекта PageSetup описано как Variant. Описание класса может содержать что-то вроде [vba]
Код
Dim PagesToTall as Long
Public Property Let FitToPagesTall(propertyValue) If propertyValue = False Then ' проверяем .FitToPagesWide Else If propertyValue >= 1 Then PagesToTall = Round(propertyValue, 0) Else Err.Raise 1004 End If End If End Property