When running the macro, it almost appears that the footers appear to be
"Double Spaced". How can I control the distance bewteen the lines of the
footers?

Sub Workbook_BeforePrint(Cancel As Boolean)

shtGPA9D.PageSetup.RightFooter = "TEST" & vbCrLf & "Version" & vbCrLf &
"This information represents"

shtGPA9D.PageSetup.LeftFooter = "" & vbCrLf & "" & vbCrLf & "Illus-ABSSYS"

End Sub

hi
try replacing vbCrLf with Chr(10) just to see what happens.

Regards
FSt1

"Brad" wrote:

When running the macro, it almost appears that the footers appear to be
"Double Spaced". How can I control the distance bewteen the lines of the
footers?

Sub Workbook_BeforePrint(Cancel As Boolean)

shtGPA9D.PageSetup.RightFooter = "TEST" & vbCrLf & "Version" & vbCrLf &
"This information represents"

shtGPA9D.PageSetup.LeftFooter = "" & vbCrLf & "" & vbCrLf & "Illus-ABSSYS"

End Sub

hi
i was shooting from the hip on this. but i thought about it and did some tests
using xp2002 here
Chr(10) and Chr(13) do NOT double space
vbCrLf and vbNewline do seem to double space
don't know why. I have used vbNewLine in message boxes without double space
but in footers it does seem to do that.
Regards
FSt1

"FSt1" wrote:

hi
try replacing vbCrLf with Chr(10) just to see what happens.

Regards
FSt1

"Brad" wrote:

When running the macro, it almost appears that the footers appear to be
"Double Spaced". How can I control the distance bewteen the lines of the
footers?

Sub Workbook_BeforePrint(Cancel As Boolean)

shtGPA9D.PageSetup.RightFooter = "TEST" & vbCrLf & "Version" & vbCrLf &
"This information represents"

shtGPA9D.PageSetup.LeftFooter = "" & vbCrLf & "" & vbCrLf & "Illus-ABSSYS"

End Sub

Thank youi!

"FSt1" wrote:

hi
try replacing vbCrLf with Chr(10) just to see what happens.

Regards
FSt1

"Brad" wrote:

When running the macro, it almost appears that the footers appear to be
"Double Spaced". How can I control the distance bewteen the lines of the
footers?

Sub Workbook_BeforePrint(Cancel As Boolean)

shtGPA9D.PageSetup.RightFooter = "TEST" & vbCrLf & "Version" & vbCrLf &
"This information represents"

shtGPA9D.PageSetup.LeftFooter = "" & vbCrLf & "" & vbCrLf & "Illus-ABSSYS"

End Sub