software

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 Studentquot;Hazaquot; wrote:

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

Thanks a lot Gary!!!

quot;Gary''s Studentquot; skrev:

gt; Let's use A1 as the counter. Enter and run the following macro:
gt;
gt;
gt; Sub printandcount()
gt; Cells(1, 1) = Cells(1, 1) 1
gt; ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
gt; End Sub
gt;
gt; If you run the macro instead of pressing the print icon, A1 will track the
gt; number of prints.
gt; --
gt; Gary's Student
gt;
gt;
gt; quot;Hazaquot; wrote:
gt;
gt; gt; Is it possibly to have a counter in a cell, so it automaticly counts every
gt; gt; document I print. Rank in a cell is 1 on the first doc, 2 on the second 3 on
gt; gt; the third and so on.
gt; gt; Please help me!