Fred,

What I am doing is creating a Purchase Order Form and I want to increment
the Purchase Order number when I print multiple forms.

I found this macro on the net but it keeps giving me a syntax error:
Sub PrintJobSheet()

startjob = InputBox('Enter the first job number to be printed')

endjob = InputBox('Enter the last job number to be printed')

For thisjob = startjob To endjob

Range(F5).Select

ActiveCell.FormulaR1C1 = thisjobActiveWindow.SelectedSheets.PrintOut

Next

End Sub

Let me know what I need to do.

Thanks,
Brian



"Fred Smith" wrote:

You'll need to provide more information.

Do you want it to increment with every line? Every page? Every time you
print?

Regardless, you'll probably need a macro to achieve what you want. If a
macro solution is acceptable, post to .programming to get the best response.

Regards,
Fred.

"Brian" wrote in message
...
I am trying to print a form with incrementing numbers in a cell when I
print.