Excel: Paper Page Width

[Kurt Remlin]

Hi,

Is there a way to get a page width (either in points or inches) from
Excel directly?

I had to write my own VB function (see below) just for Letter and
Legal paper but wonder if there is a better way to do it.

==============================
Function PageWidth(xlWB As Excel.Workbook) As Single
With xlWB.ActiveSheet.PageSetup
If .Orientation = xlPortrait Then
PageWidth = 8.5
ElseIf .PaperSize = xlPaperLetter Then
PageWidth = 11
ElseIf .PaperSize = xlPaperLegal Then
PageWidth = 14
Else
PageWidth = 0
End If
End With
End Function
==============================

 

[NickHK]

Kurt,
Depending what you are trying to achieve, this information may not be that
useful, as the amount of page space that you can work with will vary
depending on the type of printer that you have.

If you are concerned where certain values will print, you can use something
like:
ThisWorkbook.Sheets(1).HPageBreaks(1).Location.Address

NickHK

 

[Kurt Remlin]

I'm trying to calculate the distance (in points, inches or
"columnwidth" units) from the last column to the right margin in order
to extend it all the way to the right.

See http://groups.google.com/[email protected]
=============================================================