paginanummers afdruklken

[KOENBEIRENS]

hallo,

ik heb een exelbestand van 2 pagina's die 500 maal moeten afgedrukt worden in recto-verso, met een brother HL 5150 D? nu zou ik op de voorkant graag een nummering hebben van 1 tot 500. Hoe los ik dit op?

dank bij voorbaat

 

[HSV]

Zoiets misschien.

Pak even een leeg bestandje, en laat de code lopen.

In cel A1 van elk blad wordt de nummering gezet.

Verander zo nodig Range("A1").
De code loopt 5 maal (verander for i = 1 to 5, naar 500).
Verander als het goed bevonden is, 'Printpreview' in 'Printout'.

Sub prt()
 Dim i As Integer
   For i = 1 To 5
    Sheets("Blad1").Range("A1") = i
     Sheets("Blad2").Range("A1") = i
    Sheets("Blad1").PrintPreview
   Sheets("Blad2").PrintPreview
 Next i
End Sub

 

[KOENBEIRENS]

harry,

thx voor de reactie, ik heb eerst de lijntjes geknipt en geplakt in cel a1 maar dan gaan ze tot lijn 9, daarna heb ik alles samen in cel a1 gezet met alt en enter maar dan krijg ik bij printpreview gewoon de getypte tekst. wat doe ik verkeerd? misschien heb ik zelf wat megabytes tekort.

groetjes

 

[HSV]

Druk Alt+F11.
Nu kom je in het VBA gedeelte van Excel.
Klik op 'Invoegen' → 'Module'
Plak hier de code van mijn eerder bericht.
Sluiten om weer terug te keren naar Excel → Alt+F11 of Alt+Q.
Druk Alt+F8 en laat de code 'prt' uitvoeren.

 

[KOENBEIRENS]

bedankt

harry,

hartelijk bedankt het werkt zoals ik het wou.

groetjes

koen

 

[HSV]

Graag gedaan Koen,

Niet vergeten de vraag als opgelost te zetten.
Bvd.

 

[KOENBEIRENS]

en daarmee is t probleem opgelost

 

[HSV]

en daarmee is t probleem opgelost

Je moet wel op de daarvoor bestemde knop drukken (volgens mij in je openingsvraag), zodat het groen aangevinkt staat.