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
==============================

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.Add ress

NickHK

"Kurt Remlin" wrote in message
m...
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
==============================

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/groups?hl=en&lr=lang_en|lang_ru&ie=UTF-8&oe=UTF-8&safe=off&selm=4d804b04.0405041018.5bb0f227%40pos ting.google.com
================================================== ===========
"NickHK" wrote in message ...
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.Add ress

NickHK

"Kurt Remlin" wrote in message
m...
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
==============================