Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Hallo,
Ik heb een formulier wat een nummer heeft; is er een mogelijkheid om dit nummer automatisch 1 op te hogen nadat het formulier geprint is?
Er bestaat geen event dat geactiveerd wordt na het printen.
Toch wel, Workbook_BeforePrint event.
BeforePrint vertaal ik als na het printen.
Ik weet wel dat je met BeforePrint het eea kan omzeilen maar ik bedoelde dat er geen AfterPrint is.
Met vriendelijke groet,
Roncancio
Heren, bedankt voor het meedenken.
Echter, als ik het antwoord lees kom ik er weer achter dat ik eigenlijk niets van excel weet,
want er wordt gesproken van een workbook event en dat zegt mij dus niets.
Betekent het dat ik een soort macro moet maken?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
ActiveSheet.PrintOut
Worksheets(1).Range("A1").Value = Worksheets(1).Range("A1").Value + 1
End Sub
:shocked:Ik heb de code geplaatst en alle verwijzingen naar A1 gewijzigd in R2 omdat dat de cel is waar mijn nummer in staat.
Maar nu wordt het nummer na printen met 2 verhoogt. Wat gaat er nog fout?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
[B]Application.EnableEvents = False[/B]
ActiveSheet.PrintOut
[B]Application.EnableEvents = True[/B]
Worksheets(1).Range("R2").Value = Worksheets(1).Range("R2").Value + 1
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.