Before Printing

[Laf4sens]

Hi All,

I'm know NOTHING in macros or VBE. But I know that in my excel spreadsheet I want to increment my invoice number then print 2 copies of my invoice. I got this piece of code from my friend and I want to use it in BeforePrint:

Sub Print2()
'Sub Print2Copies()
'
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End Sub

Can somebody help?

Thanks in advance...

Marc

 

[VoG]

Try this in the ThisWorkbook module. change A1 to the cell that contains your invoice number.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
Range("A1").Value = Range("A1").Value + 1
Application.EnableEvents = False
ActiveSheet.PrintOut copies:=2
Application.EnableEvents = True
End Sub