In Excel

Status
Niet open voor verdere reacties.
Je zou een knop op je tabblad kunnen zetten (buiten je afdrukbereik).

Code:
Private Sub CommandButton1_Click()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 50
    Range("A1").Value = "'00" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Het document is " & (i - 1) & " keer afgedrukt!"

End Sub

De plaats van het nummer is nu cel A1, maar dat kan je zelf aanpassen.
 
Wat is er niet gelukt?
 

Bijlagen

  • genummerd_afdrukken.xlsm
    18 KB · Weergaven: 51
Laatst bewerkt:
Maak er dit van:

Code:
Private Sub CommandButton1_Click()
Range("A53").Value = ""
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 3
    Range("A53").Value = "'" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Het document is " & (i - 1) & " keer afgedrukt!"
End Sub

Werkt het dan wel?
 
Laatst bewerkt:
Maak er dit van:

Code:
Private Sub CommandButton1_Click()
Range("A53").Value = ""
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 3
    Range("A53").Value = "'" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Het document is " & (i - 1) & " keer afgedrukt!"
End Sub

Werkt het dan wel?

SjonR U hebt nu mijn betreffende Excel file gezien, mijn bedoeling is elke wedstrijd te nummeren en dan ook nog eens de achterkant af te drukken en te nummeren. Dus samengevat heeft elk blad 2 nummers, 1 en 2 de achterkant 3 en 4 enz..... Dit alles met maar één blad (ontwerp.)
 
Beste Keudop,

Ik heb je bestand gezien. Ik kan uit de door jou gestelde vraag niet opmaken dat je meerdere nummers op 1 pagina wilt. Ook blijkt nergens uit dat je de pagina dubbelzijdig wil afdrukken.

Sterker nog, jouw bestand heeft over de hele lengte een samengevoegde cel waar je het nummer in hebt willen plaatsen, dus daarin is van twee nummers geen sprake.

Formuleer een volgende vraag aub duidelijk en plaats deze ook in de juiste categorie.

Gr.

Sjon
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan