Macro crashes if printer not installed

[Phil]

I am using the following code to add a footer to a page:

ActiveSheet.PageSetup.RightFooter = "&8&F" & Chr(10) & "&A" & Chr(10) &
"&D"

The problem is that the macro crashes on a computer that does not have
a printer installed. Can anyone please suggest a way to handle this?

[Tom Ogilvy]

You can assign/configure a print driver even though you don't actually
connect a printer to the computer. You then select that in your print
setup.

--
Regards,
Tom Ogilvy

"Phil" <plmcelwee@yahoo.com> wrote in message
news:1105720265.958796.301160@z14g2000cwz.googlegroups.com...
> I am using the following code to add a footer to a page:
>
> ActiveSheet.PageSetup.RightFooter = "&8&F" & Chr(10) & "&A" & Chr(10) &
> "&D"
>
> The problem is that the macro crashes on a computer that does not have
> a printer installed. Can anyone please suggest a way to handle this?
>

[Bob Phillips]

I don't have a machine without a printer driver, so I can't test it, but you
could try wrapping it with error handling

On Error Goto no_printer
...

no_printer:
Msgbox "No printer installed"

--
HTH

Bob Phillips

"Phil" <plmcelwee@yahoo.com> wrote in message
news:1105720265.958796.301160@z14g2000cwz.googlegroups.com...
> I am using the following code to add a footer to a page:
>
> ActiveSheet.PageSetup.RightFooter = "&8&F" & Chr(10) & "&A" & Chr(10) &
> "&D"
>
> The problem is that the macro crashes on a computer that does not have
> a printer installed. Can anyone please suggest a way to handle this?
>