View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Frank Stone Frank Stone is offline
external usenet poster
 
Posts: 134
Default Header/Left margin

you might try adding a few leading spaces to the text in
the left header to shift the text over to where you want
it. yes cheap i know but it works.
-----Original Message-----
Hi,

I run Excel 2k, SR1.

I'm formatting a report using PagesSetup.

I've reduced the reportsections left margin to 0.61...

The problem is that
the header margin doesn't seem to use the body sections

left margin, making
the text in the left header print a few points to the

right of the rest of
the report.

Is there any way, using VBA, to also ajust the headers

left margin?

TIA
Peter

[part of the code]

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$" & Range(strStartcell).Row
.LeftHeader = "&""Arial,Bold""&14Report Header"
.RightHeader = "&8&D"
.RightFooter = "&8&P(&N)"
.LeftMargin = Application.InchesToPoints

(0.611811023622047)
.RightMargin = Application.InchesToPoints

(0.611811023622047)
.TopMargin = Application.InchesToPoints

(0.984251968503937)
.BottomMargin = Application.InchesToPoints

(0.784251968503937)
.HeaderMargin = Application.InchesToPoints

(0.511811023622047)
.FooterMargin = Application.InchesToPoints

(0.411811023622047)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With



.