Print Last Page

H

Heather Irvin

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
 
R

Ron de Bruin

Hi

Try this Heather

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