How to print last page of sheet?

[kcm]

Hi,

I would like to print only the last page of a sheet with the simple
click on a button, but I cannot find a way to program that.

Thanks for any help on the subject.

Kees

 

[Ron de Bruin]

Hi

Try this

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

 

[Frank Kabel]

Hi
use the following:
Sub print_last
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, _
Copies:=1, Collate:=True
End Sub

 

[kcm]

Frank,

Nice trick, works fine.

Thanks,
Kees

Hi
use the following:
Sub print_last
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, _
Copies:=1, Collate:=True
End Sub

 

[kcm]

Ron,

Thanks. Is this documented somewhere?

Kees

 

[Ron de Bruin]

Hi Kees

It is a old xl4macro

Tom Ogilvy posted the following links

**************************
http://support.microsoft.com/default.aspx?scid=kb;en-us;143466
XL97: Macro97.exe File Available on Online Services

http://support.microsoft.com/default.aspx?scid=kb;en-us;128185
XL: Macrofun.exe File Available on Online Services

These are in the old Help format. You can get ones in html help format for
xl2000 and xl2002 from the office download site:

http://office.microsoft.com/Downloads/default.aspx