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