Determining size of printed page in Excel VBA -

Is VBA a way to determine the width of units of a printed page in Excel?

The example pseudo-code is as follows:

  Duplicate = Vet =  

My initial idea is to write a function that takes in orientation and paper sizes And returns page width back. For example:

  if ActiveSheet.Orientation = xlLandscape and ActiveSheet.PaperSize = xlPaperLetter then dblPaperWidth = 15840 '11 inches twips other ... end if  

< / Div>