Is it possibly to have a counter in a cell, so it automaticly counts every
document I print. Rank in a cell is 1 on the first doc, 2 on the second 3 on
the third and so on.
Please help me!

Let's use A1 as the counter. Enter and run the following macro:


Sub printandcount()
Cells(1, 1) = Cells(1, 1) + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

If you run the macro instead of pressing the print icon, A1 will track the
number of prints.
--
Gary's Student


"Haza" wrote:

Is it possibly to have a counter in a cell, so it automaticly counts every
document I print. Rank in a cell is 1 on the first doc, 2 on the second 3 on
the third and so on.
Please help me!

Thanks a lot Gary!!!

"Gary''s Student" skrev:

Let's use A1 as the counter. Enter and run the following macro:


Sub printandcount()
Cells(1, 1) = Cells(1, 1) + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

If you run the macro instead of pressing the print icon, A1 will track the
number of prints.
--
Gary's Student


"Haza" wrote:

Is it possibly to have a counter in a cell, so it automaticly counts every
document I print. Rank in a cell is 1 on the first doc, 2 on the second 3 on
the third and so on.
Please help me!