Automatische nummering en datum bij printen.

[Toppertje1987]

Ik ben opzoek naar een excel bestandje, dat telkens anders is als ik hem uitprint.

De datum van de betreffende dag moet worden weergegeven bij het uitprinten en telkens moet er een nieuw nummer verschijnen, dit mag gewoon op lopen vanaf 0001 t/m oneindig.

Is er misschien iemand die dit snel even in elkaar kan zetten?

Nummer het liefst in het midden bovenaan, en de datum onder in het midden.
Hoeft niet groot te zijn. Normale text grote is perfect!

Alvast enorm bedankt!!!

Groet Stefan

 

[HSV]

Mogelijk zal dit gaan om een factuurnummer?

Als je een bestandje upload en een uitleg geeft waarom of wanneer.
Je printer houdt nl. niet bij hoe vaak jij gaat printen volgens mij.
Dus zal dit mogelijk via een omweg moeten.

 

[Toppertje1987]

Notulen voor vergaderingen, wil er graag een datum bij hebben en een nummer, zodat we ze bij elkaar kunnen houden.
Gaat aardig wat vergaderd worden vandaar dat het tot in het oneindige moet kunnen lopen. (1000 is ook zeker voldoende)

Zag hier op een ander deel van het forum wel dat het kon met macro's enzo. Maar dat lukte me zelf echt niet, vandaar mn vraag.
Een zelf aanpassende datum kan je ook in een cel toevoegen met: =vandaag(), maar zou het mooier vinden als dit alleen bij printen
zichtbaar is.

Als datum en nummer als zichtbaar zijn, bij het overnieuw openen van het bestand is dat ook helemaal perfect. Hoeft niet speciaal
alleen te verschijnen bij het uitprinten.

Bedankt!

 

[HSV]

Kijk even naar printpreview, sluiten, en weer printpreview openen.
Druk Alt+F11 voor openen VB-editer.
Dubbelklik op ThisWorkbook.
Verander de Range("E2") naar jouw cel onderaan.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Range("E1") = Date
  Range("E2") = Range("E2") + 1
End Sub

 

[Toppertje1987]

Super Bedankt!

Ga er gelijk mee aan de slag!

Groet Stefan

 

[HSV]

Graag gedaan Stefan,

Als het gelukt is, denk dan even aan de status van je vraag (opgelost).
Anders vernemen we het wel.
Bvd.