Определение размера напечатанной страницы в Excel VBA

Question

В Excel VBA есть способ определения ширины печатной страницы в единицах?

Пример псевдокода выглядит следующим образом:

Dim remainingWidth as Double

remaningWidth = <property that gives printed page width> - _  
                ActiveSheet.PageSetup.LeftMargin - _  
                ActiveSheet.PageSetup.RightMargin - _  
                Range("A:H").Width  

Answer 1

Вот все члены PageSetup. . Сначала я хотел написать функцию, которая использует Orientation и PaperSize и возвращает ширину страницы. Например:

If ActiveSheet.Orientation = xlLandscape And ActiveSheet.PaperSize = xlPaperLetter Then
    dblPaperWidth = 15840 '11 inches in twips
Else
    ...
End If