Hi,
Try this,

Put below code in thisworkbook's module.


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim MyAct
Dim InvSht As Worksheet
Dim InvNo As Range

Set InvSht = Worksheets("Sheet1") 'Change to suite
Set InvNo = InvSht.Range("F1") 'Change to suite

If ActiveSheet.Name = InvSht.Name Then

MyAct = MsgBox("Do you want to print Invoice with Invoice No. Auto
increment?", vbYesNo, "Print Invoice")

If MyAct = vbYes Then InvNo = InvNo + 1

End If

End Sub



Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!