Print Last Page
 

Hello all,

I'd like to create a macro that will print only the last page in a document.

Its a log file that accumulates lots of information, and instead of
re-printing the entire document each time... it'd be nice to have only the
last page print, or even the last 5 rows or so.

Any help or direction would be appreciated.

Thanks
Heather Irvin

Print Last Page
 

Hi

Try this Heather

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Heather Irvin" wrote in message ...
Hello all,

I'd like to create a macro that will print only the last page in a document.

Its a log file that accumulates lots of information, and instead of
re-printing the entire document each time... it'd be nice to have only the
last page print, or even the last 5 rows or so.

Any help or direction would be appreciated.

Thanks
Heather Irvin