print footer on last printed page only - vba ?

[AndreasG]

Hello

I work with excel 2000 and i want to print a specific line of text ( footer) automatically only on the last printed page.
for example i have an excel sheet which is 3 pages printed
i want the text " bla bla bla bla " to be printed only on the footer of the 3rd page

Is there anything you can do to help ?

thanks in advance

Andreas

Best Regards
Andreas
using xl2000 on win2k

 

[Doroth]

I just answered a similar question last week. I don't know if it helped the person or not, but maybe it will help you. Not necessarily the method you are looking for, but it works in word. It probably will work in Excel as well. See

thread68-588739

 

[AndreasG]

hello there friends
fyi
this is the solution , thanks to Tim Urtis for his Help
-------------------------------------------------------

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim LastPage As Long, PageNumber As Long

LastPage = ExecuteExcel4Macro("Get.Document(50)&quot
ActiveSheet.PageSetup.LeftFooter = ""
If LastPage > 1 Then
ActiveSheet.PrintOut From:=1, To:=LastPage - 1
End If
ActiveSheet.PageSetup.LeftFooter = Worksheets("Sheet2&quot.Range("A1&quot.Value
ActiveSheet.PrintOut From:=LastPage, To:=LastPage
ActiveSheet.PageSetup.LeftFooter = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
Cancel = True
End Sub


bye for now



Best Regards
Andreas
using xl2000 on win2k