koala
07-07-2009, 05:00 AM
Hi forum,
I am trying to get automated data into a footer and am using the following code:
With ActiveSheet.PageSetup
.RightFooter = "Date Page Printed:" & [Date] & vbLf & _
"Time Page Printed:" & [Time] & vbLf & _
"Printed by:" & Application.UserName
End With
However something is wrong as it says I have a runtime error '13' .. type mismatch
Also how do I change the font to size 8.
Any help is greatly appreciated.
Koala
I am trying to get automated data into a footer and am using the following code:
With ActiveSheet.PageSetup
.RightFooter = "Date Page Printed:" & [Date] & vbLf & _
"Time Page Printed:" & [Time] & vbLf & _
"Printed by:" & Application.UserName
End With
However something is wrong as it says I have a runtime error '13' .. type mismatch
Also how do I change the font to size 8.
Any help is greatly appreciated.
Koala