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

Hi

Try this

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


"kcm" wrote in message ...
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

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


--
Regards
Frank Kabel
Frankfurt, Germany

"kcm" schrieb im Newsbeitrag
...
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

Frank,

Nice trick, works fine.

Thanks,
Kees

Frank Kabel wrote:

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


--
Regards
Frank Kabel
Frankfurt, Germany

"kcm" schrieb im Newsbeitrag
...

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,

Thanks. Is this documented somewhere?

Kees


Ron de Bruin wrote:

Hi

Try this

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