Re: Excel 2000 macro error

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Bob Phillips (bob.phillips_at_notheretiscali.co.uk)
Date: 02/03/04 

Date: Tue, 3 Feb 2004 16:59:54 -0000

Bryce,

Long-shot, but it might be wrap-around. Try this

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Active***.PageSetup.LeftFooter = _
ActiveWorkbook.FullName
End Sub 

-- 
HTH
Bob Phillips
    ... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Bryce" <bmunger@bhengineers.com> wrote in message
news:736a01c3ea73$97d5dda0$7d02280a@phx.gbl...
> I am using Excel 2000 SP3 on a Win 2000 system.  I am
> trying to get the filename with path to print in the
> footer of a workbook.  I found the following code online
> to do what I want:
>
> Private Sub Workbook_BeforePrint(Cancel As Boolean)
>     Active***.PageSetup.LeftFooter =
> ActiveWorkbook.FullName
> End Sub
>
> When I 1st tried it a few months ago, it worked without
> any problem.  Now when I try to print or print preview I
> get: Run-time error '50290': Method 'FullName' of
> object '_workbook' failed and nothing appears in the
> footer.
>
> Does anyone have any idea why this isn't working?
>
Quantcast