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