[Excel] macro ophogen waarde bij meerdere prints

[Jeebeekje]

Ik heb een Excel formulier waarin een veld voorkomt dat na elke printopdracht opgehoogd moet worden met 1. Dit is ook de enige waarde in het document die veranderd.
Daarvoor heb ik de volgende code gebruikt:

Visual Basic .NET:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Blad1").Range("m8") = Sheets("Blad1").Range("m8") + 1
End Sub

Deze code heeft echter als nadeel dat als in het afdrukscherm wordt aangegeven dat het document bijvoorbeeld 3 keer moet worden afgedrukt het nummer niet wordt opgehoogd voor elke print. Dat gebeurt alleen als de print opdracht wordt gegeven via het menu, de taakbalk of door Ctrl+P te gebruiken.
Aangezien er soms wel 25 formulieren per keer moeten worden afgedrukt is het niet te doen om zo vaak op Ctrl+P te drukken.

Ik kan nergens een oplossing voor dit probleem vinden, ik heb niet zo heel veel kennis van VBA.

Heeft er iemand een oplossing?

[Jeebeekje]

Oh shit,
kan een modje de titel veranderen in "[EXCEL] macro ophogen waarde bij meerdere prints"

sorry

[Sosabowski]

Jeebeekje schreef op woensdag 24 juni 2009 @ 14:33:
Oh shit,
kan een modje de titel veranderen in "[EXCEL] macro ophogen waarde bij meerdere prints"

sorry

klik even op bovenaan en vraag het daar vriendelijk. Een modje zal het dan voor je aanpassen.

[Jeebeekje]

IorGie schreef op woensdag 24 juni 2009 @ 14:43:
[...]

klik even op [afbeelding] bovenaan en vraag het daar vriendelijk. Een modje zal het dan voor je aanpassen.

thnx!

[pedorus]

Tsja, als je meerdere kopietjes print, dan is het normaal gesproken zo dat allen hetzelfde zijn. Bij de printsituatie die ik zelf heb kun je trouwens ook op de printer het aantal kopietjes instellen, en dat valt al helemaal niet na te gaan met Excel.
Wat je kan doen is alle printjes via het menu cancellen in beforeprint, en zelf een printfunctie maken die gewoon een for-loopje doet voor het aantal kopieën. Iets als (compleet ongetest):

Visual Basic:

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    numberOfCopies = InputBox("Hoeveel kopietjes?", "Printen", 1)
    For i = 1 to numberOfCopies
        Sheets("Blad1").Range("m8") = Sheets("Blad1").Range("m8") + 1
        Application.EnableEvents = False 
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
        Application.EnableEvents = True
    Next
    Cancel = True  
End Sub 

Jeebeekje schreef op woensdag 24 juni 2009 @ 14:33:
sorry

offtopic:
En dan nog lachen ook

[F_J_K]

Done@titel. Zie pedorus in "[Excel] macro ophogen waarde bij meerder..." voor de oplossing. Overigens zou ik niet printen overloaden, maar een printknop ergens neerzetten in een eigen sub. En dan in feite alles behalve de cancel=true daaronder zetten
(Application.EnableEvents kan je dan ook weglaten, als je geen beforeprint etc gebruikt).

[Jeebeekje]

Bedankt, het werkt inderdaad goed zo.
Ik zie wel dat het niet de meest ideale manier van werken is, maar goed zo werkt het wel.