nummering aanpassen na printen

[rob91]

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?

 

[Wigi]

Ja dat kan.

Er is in VBA een Workbook_BeforePrint event dat kan reageren op het sturen van een printopdracht naar de printer.

Als dat nummer in een cel staat, kan je gewoon dat event gebruiken, de cel met 1 ophogen, en klaar.

Het formulier leest dan telkens diezelfde cel in, zal het nieuwe nummer afficheren.

Wigi

 

[Roncancio]

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.
Je kunt wel code toevoegen door het printen te coderen en vervolgens het ophogen van het nummer daaronder te zetten.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Er bestaat geen event dat geactiveerd wordt na het printen.

Toch wel, Workbook_BeforePrint event.

 

[Roncancio]

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

 

[Wigi]

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

Ah ja, zo bedoel je. De vraagsteller mag er nu wat mee gaan experimenteren en kijken of het lukt :thumb:

 

[rob91]

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?

 

[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?

Yep.:thumb:
Een Event (=gebeurtenis) is een actie die kan worden uitgevoerd waaraan bepaalde code kan worden gehangen. Bijvoorbeeld het klikken op een button zorgt dat er iets geprint, gewijzigd oid wordt.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    ActiveSheet.PrintOut
    Worksheets(1).Range("A1").Value = Worksheets(1).Range("A1").Value + 1
End Sub

Bovenstaande code print het huidige blad en verhoogt de waarde van cel A1 met 1.

Dit plaats je in de VBE (Visual Basic Editory) Dit vind je bij:
- Extra - Macro - Visual Basic Editor
- Beeld - Projectverkenner

Dubbelklik op het werkblad en kies voor programmacode weergeven.
Plak daar de code.

Met vriendelijke groet,


Roncancio

 

[rob91]

[Bovenstaande code print het huidige blad en verhoogt de waarde van cel A1 met 1.]

Roncancio, bedankt voor je oplossing.

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
ActiveSheet.PrintOut
Worksheets(1).Range("R2").Value = Worksheets(1).Range("R2").Value + 1
End Sub

 

[Roncancio]

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?

:shocked:
Krijg je ook een dubbele uitdraai, want dan lijkt het alsof de code 2 keer wordt aangeroepen.

Met vriendelijke groet,


Roncancio

 

[Wigi]

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

Wigi

 

[rob91]

Heren, bedankt.
De code van Wigi werkt perfect!!
Probleem opgelost.

 

[Sporedd]

Office 2007

Goedemorgen,

Werkt dit ook nog in office 2007?

En maakt de taal van het pakket nog wat uit?