space between rows in header

[backup69]

Hi

Maibe anyone can help.
if i use this

Set baas = Worksheets("Andmebaas")
mytext = baas.Range("J1").Value & _
vbCrLf & baas.Range("J2").Value & _
vbCrLf & baas.Range("J3").Value & _
vbCrLf & baas.Range("J4").Value & _
vbCrLf & baas.Range("J5").Value & _
vbCrLf & baas.Range("J6").Value & _
vbCrLf & baas.Range("J7").Value
With ActiveSheet.PageSetup
.RightHeader = mytext
End With

my header rows with to big space between rows but should be minimum.

[Zack Barresse]

how about setting it manually in your code...

Sub printSetup()

    Set baas = Worksheets("Andmebaas")
    mytext = baas.Range("J1").Value & _
    vbCrLf & baas.Range("J2").Value & _
    vbCrLf & baas.Range("J3").Value & _
    vbCrLf & baas.Range("J4").Value & _
    vbCrLf & baas.Range("J5").Value & _
    vbCrLf & baas.Range("J6").Value & _
    vbCrLf & baas.Range("J7").Value
    With ActiveSheet.PageSetup
        .RightHeader = mytext
        
        'set to whatever you want
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.25)
        .FooterMargin = Application.InchesToPoints(0.25)
    End With
    
End Sub

hth

ps. congrats on estonia's seat in the un!!

[backup69]

TY
yesterday estonia join with NATO http://www.natonews.com/
But this not help me. I need minimise space between rows.
Try make header with this code and u see how ugly this. And worksheet first row above header last row.

still need solution

[backup69]

Sry

To simple ( vbLf )
found here
http://www.mrexcel.com/board2/viewtopic.php?t=57219