It is possible with code but why not print only the last page of the sheet
with code

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



--

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



"AOU" wrote in message
...
I have a form thta data is entered daily. Is there a way that I can print
the
form out. Then as data is entered, I insert the printed form in the
printer
and only print the new data on the form.
--
AOU