Doornummeren bij elke afdruk van document

id6

unread,

Jan 13, 2006, 4:35:36 PM1/13/06

to

Bij deze de volgende vraag:

Het automatiseren van opvolgende nummers bij het afdrukken.

Hoe kan ik een document afdrukken en dat er dan in een cel bij elke afdruk
een oplopend nummer staat.

Bijv. afdruk 1 staat er in de cel 0001
en in afdruk 2 staat er in de cel 0002

De bedoeling is dat er dan maar 1 document wordt gemaakt en dat de nummering
bij het afdrukken oploopt.
eventueel een start getal invoeren zou ook niet verkeerd zijn voor als er
achteraf nog meerdere documenten opvolgend afgedrukt moeten worden.

Dit mag in elk office programma zijn.

Het liefst in een word document maar mag ook anders.

Of wanneer iemand daar een ander programma voor weet hoor ik dat natuurlijk
ook graag.

Dit wordt ook veel gebruikt voor het maken van toegangskaarten.

Wie kan me helpen..

maff

unread,

Jan 13, 2006, 6:01:03 PM1/13/06

to

in excel kan het volgens mij (oa) zo:
open de vba editor (alt f11), kies in het linkervenster "this workbook"
kies in het rechtervenster onder "algemeen" de optie workbook, en dan
rechts van dit keuzevak de optie Before print

zet daar de volgende code bij:
Sheets(1).Range("a1").Value = Range("a1") + 1
Nu wordt op blad 1 in cel a1 voor je afdrukt de waarde met 1 opgehoogd. Per
print zie je dus de hoeveelste deze print is.

--
Is werkelijk waar?

"id6" schreef:

id6

unread,

Jan 14, 2006, 12:37:07 PM1/14/06

to

Dit werkt inderdaad.

Alleen wanneer het bestand is opgeslagen en opnieuw wordt geopend dan is
vanwege de hoge beveiliging een certificaat nodig om gebruik te kunnen maken
van de macro of men moet de beveiliging verlagen.

Maar voor eigen gebruik is dit geen probleem maar wanneer anderen er mee
moeten gaan werken die niet zoveel verstand van computers hebben dan is het
toch niet zo eenvoudig.

In ieder geval bedankt voor je advies.
Heb het opgeslagen in een txt bestand voor mijn naslag.

Met vriendelijke groet,

"maff" <maff_82z...@hotmail.com> schreef in bericht
news:6C59C3D0-9325-4D8C...@microsoft.com...

id6

unread,

Jan 14, 2006, 12:40:46 PM1/14/06

to

Dit werkt inderdaad.

Alleen wanneer het bestand is opgeslagen en opnieuw wordt geopend dan is
vanwege de hoge beveiliging een certificaat nodig om gebruik te kunnen maken
van de macro of men moet de beveiliging verlagen.

Maar voor eigen gebruik is dit geen probleem maar wanneer anderen er mee
moeten gaan werken die niet zoveel verstand van computers hebben dan is het
toch niet zo eenvoudig.

In ieder geval bedankt voor je advies.
Heb het opgeslagen in een txt bestand voor mijn naslag.

Met vriendelijke groet,

"maff" <maff_82z...@hotmail.com> schreef in bericht
news:6C59C3D0-9325-4D8C...@microsoft.com...

id6

unread,

Jan 14, 2006, 12:45:41 PM1/14/06

to

ouderm...@gmail.com

unread,

Nov 16, 2018, 2:34:09 AM11/16/18

to

On Saturday, January 14, 2006 at 12:01:03 AM UTC+1, maff wrote:
> in excel kan het volgens mij (oa) zo:
> open de vba editor (alt f11), kies in het linkervenster "this workbook"
> kies in het rechtervenster onder "algemeen" de optie workbook, en dan
> rechts van dit keuzevak de optie Before print
>
> zet daar de volgende code bij:
> Sheets(1).Range("a1").Value = Range("a1") + 1
> Nu wordt op blad 1 in cel a1 voor je afdrukt de waarde met 1 opgehoogd. Per
> print zie je dus de hoeveelste deze print is.
>
> --

Kan iemand me hiermee helpen? Ik probeer een unieke code te drukken via deze manier. Ik voeg volgende toe:

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

Maar toch krijg ik als ik wil printen een error om te debuggen op de tweede rij, maar ik zou niet weten wat ik moet aanpassen.