Generering af nummerings ved udskrivning

Hvor skal nummeret skrives ?

Prøv denne makro:
Indsættes i arkets kodemodul

-------

Public Sub PrintSkabelon()

Dim i As Integer

For i = 1 To 600
    [G14] = i
    ActiveSheet.PrintOut
    Application.StatusBar = "Printer nummer: " + i
Next i

Application.StatusBar = False

End Sub

-------


[G14] ændres til den celle hvor tallet skal stå.

Lav evt. lige en prøveudskrift hvor du erstatter 600 med f.eks. 5.
Bare for en sikkerheds skyld :-)

Jeg er ikke den helt store hej m.h.t. macroer - når du skriver kodemodul mener du så VisualBasic?? Jeg har lagt den ind her og når den afspilles kører der kun en side ud (selv efter at 600 er ændret til 5)!!

Lige et tillægsspørgsmål - hvis det samme tal skal figurerer i 2-3 celler på samme side - kan det lade sig gøre??

Prøv med denne her

--------------
Public Sub PrintSkabelon()

Dim i As Integer

For i = 1 To 3
    [G14] = i
    [G15] = i
    [G16] = i
    ActiveSheet.PrintOut
    Application.StatusBar = "Printer nummer: " & i
Next i

Application.StatusBar = False

End Sub
--------------

[G14], [G15] kan du bare ændre som det passer.

Jeg glemte at spørge om nummeret skal starte fra 1... ?

Yeps, der skal startes med 1

Det var møj bedre - det virker - tak for hjælpen!!!

Ok, du får et svar så :-)

Hov, jeg havde vist lagt et i forvejen :-)

Iøvrigt hvis du ikke vil printe hele fanebladet ud, kan du skrive
ActiveSheet.PrintOut From:=1, To:=2