Leftaligning text in right header

  • Thread starter Thread starter PO
  • Start date Start date
P

PO

Hi

I'm extracting invoicedata from a database into a worksheet
I want to leftalign the pagenumber and invoicenumber in the right header in
pagesetup of the worksheet. Each time the user retrieves the invoicedata I
use the following code to set the right header for the worksheet:

Sub SetHeader
....
with activesheet.pagesetup
.rightheader = "Page" & _
Chr(10) & "&P(&N)" & _
Chr(10) & "Invoicenr" & _
Chr(10) & strInvNr
end with
End sub

If I place the text in the right header, however, the text right aligns.
I've tried to place the text in the left header and use the string function:

with activesheet.pagesetup
.leftheader = string(165, " ") & "Page" & _
string(165, " ") & Chr(10) & "&P(&N)" & _
string(165, " ") & Chr(10) & "Invoicenr" & _
string(165, " ") & Chr(10) & strInvNr
end with

This doesn't work since you only can place up to 254 characters in one
header.
I use Excel 2000.

Any ideas?

TIA
PO
 
If you were willing to try to pad it from the left, and that doesn't work,
then the next step it to pad it from the right.

Seems like working 100% is relative. You won't be able to absolutely locate
it on the sheet - unless someone else has the better suggestion.
 
You could change the font size to something massive, like 72 point, which
makes the spaces you use cover more space.
Then after the spaces, return the font size to standard 10 point (or
whatever you're using).

"&48" & String(25, " ") & "&10Page"
 
Back
Top