Print increment by 1

Is there a way to have a field in a worksheet to increment by one, every
time I print?
Thanks
Paul

Hi Paul

See
http://www.rondebruin.nl/print.htm#number



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



"Paul D" <[email protected]> wrote in message news:[email protected]...
> Is there a way to have a field in a worksheet to increment by one, every
> time I print?
> Thanks
> Paul
>
>

Or if you want not the print the pages in one time.
Use the beforeprint event

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet.Range("a1")
.Value = .Value + 1
.PrintOut
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub




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



"Ron de Bruin" <[email protected]> wrote in message news:eyoxYm%23%[email protected]...
> Hi Paul
>
> See
> http://www.rondebruin.nl/print.htm#number
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Paul D" <[email protected]> wrote in message news:[email protected]...
>> Is there a way to have a field in a worksheet to increment by one, every
>> time I print?
>> Thanks
>> Paul
>>
>>
>
>