View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming,comp.lang.basic.visual.misc
NickHK[_2_] NickHK[_2_] is offline
external usenet poster
 
Posts: 29
Default Excel: Paper Page Width

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