Increase cell # by 1 upon page print??

[5150]

Is it possible to increase a cell # by 1 upon page print?? Example: 00001 in A20 then print the form, change number to 00002 for next printout.

 

[dk]

One way is to use the Before_Print event. Something like this:-

• 
  
  * Open the VB editor and click Ctrl+R to make sure the Project explorer is activated.
  * Double click the ThisWorkbook icon of your workbook. You may have to expand the tree in the project explorer to see this.
  * This code will increase the value of cell A1 in Sheet1 every time the Before_Print event is activated.
  

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1
End Sub

The only problem with this is that the event is also fired when the print preview is selected so this code will also increase A1's value by 1 every time the user clicks Print Preview.

If this is a problem then have a look at my reply to an earlier post - http://www.mrexcel.com/board/viewtopic.php?topic=466&forum=2&7

However, that is a bit more complicated.

HTH,
D

 

[5150]

DK, thanks for your assistance, the code works. Once again, thank you very much.