Фактури

Здравейте,
имам едно файлче което съм си направил да си пускам фактурите на фирмата. Направил съм си един брояч който се сменя с единица всеки път когато натисна направения от мене бутон принт. Само че проблема ми е там че номера се сменя преди печат а аз искам да го направя така, че номера да се смени след като е натиснат този бутон т.е. вече след като е разпечатано. Кода ми е следния за този бутон:

Private Sub Workbook_beforePrint(Cancel As Boolean)
Worksheets("sheet1").Cells(13, 22).Value = Worksheets("sheet1").Cells(13, 22).Value + 1
End Sub

Някакви идеи?

Не използвай събитето Workbook_beforePrint, а си напиши макрос, който принтира и после увеличава брояча.
Между другото, този начин на смяна не ти ли създава прблем с номерацията на фактурите. Какво става, ако принтираш една фактура повече пъти?

Geocaching в България

а някякви идеи как да изглежда този макрос?

Sub PrintInvoice ()
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Worksheets("sheet1").Cells(13, 22).Value = Worksheets("sheet1").Cells(13, 22).Value + 1
End Sub

Първия ред дефакто представлява натискане на QuickPrint бутона, като съм задал 2 бр. копия. Можеш да си промениш броя копия. Разпечатва на притера по подразбиране.
Разбира се, възможно е да си форматираш PrintArea в самия макрос, да зададеш принтер и т.н., но предполагам, че така или иначе фактурата ти е дефинирана като PrintArea.

Geocaching в България