Note: The other languages of the website are Google-translated. Back to English

 Hoe celwaarde automatisch verhogen na elke afdruk?

Stel dat ik een werkbladpagina heb die 100 exemplaren moet worden afgedrukt, de cel A1 is het chequenummer Bedrijf-001, nu zou ik willen dat het aantal na elke afdruk met 1 wordt verhoogd. Dat betekent dat wanneer ik het tweede exemplaar afdruk, het nummer automatisch wordt verhoogd naar Bedrijf-002, het derde exemplaar, het nummer Bedrijf-003 ... honderd exemplaar, het nummer wordt Bedrijf-100. Is er een truc om dit probleem snel en mogelijk in Excel op te lossen?

Celwaarde automatisch verhogen na elke afdruk met VBA-code


pijl blauw rechts bel Celwaarde automatisch verhogen na elke afdruk met VBA-code

Normaal gesproken is er geen directe manier om deze taak in Excel op te lossen, maar hier zal ik een VBA-code maken om ermee om te gaan.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: celwaarde automatisch verhogen na elke afdruk:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het aantal exemplaren in te voeren dat u het huidige werkblad wilt afdrukken, zie screenshot:

documentverhoging bij het afdrukken 1

4. Klikken OK en uw huidige werkblad wordt nu afgedrukt, en tegelijkertijd worden de afgedrukte werkbladen genummerd Bedrijf-001, Bedrijf-002, Bedrijf-003… in cel A1 zoals u nodig hebt.

Opmerking:: In de bovenstaande code, de cel A1 worden de volgnummers ingevoegd die u hebt besteld en de oorspronkelijke celwaarde erin A1 zal worden gewist. En "Bedrijf-00”Is het volgnummer, kunt u deze naar wens wijzigen.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (51)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Deze code is verbazingwekkend, het is precies wat ik nodig heb, maar ik vroeg me af of er een manier is om te beginnen met afdrukken vanaf het nummer dat is ingevoerd in cel "A1"? Als ik bijvoorbeeld 100 exemplaren heb gedrukt, moet ik bij de volgende oplage vanaf nummer 101 afdrukken en vanaf daar optellen. Ik heb een paar code-aanpassingen geprobeerd, maar het lijkt alleen het nummer te nemen dat in de cel is ingevoerd, namelijk 101, voeg 1 toe en dan blijven de rest van de afdrukken bij dat ene nummer, dat wil zeggen 102... Uw hulp zou zeer op prijs worden gesteld: -)
Deze opmerking is gemaakt door de moderator op de site
Als je nog geen oplossing hebt gevonden, kun je regel 17 van de code hierin wijzigen: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Hiermee wordt +1 toegevoegd aan het nummer dat u in cel A1 hebt.
Deze opmerking is gemaakt door de moderator op de site
Het wordt niet naar mijn printer verzonden
Deze opmerking is gemaakt door de moderator op de site
Hallo,

en uitvoer de macro om de naam van de cel uit te wissen.
Als je bijvoorbeeld A1= 153 koopt, krijg je een afdruk van 10 exemplaren. Ik heb de feuilles imprimée de 154 à 164 ET je kunt de naam van de cellule gebruiken voor 164.
Begin met een indruk die je krijgt als je de chiffre dans A1 leest.
J'aimerais aussi si mogelijk na pas avoir aller dans basic. je kunt de macro's actief sturen via l'option impressie. Is het mogelijk?
Deze opmerking is gemaakt door de moderator op de site
Hallo,

en uitvoer de macro om de naam in A1 uit te wissen.

je kunt het beste een voorbeeld geven van A1=153 en een eerlijke indruk van 10 exemplaren. donc je recupéré 10 impressies numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1's'incrémente jusqu'à 164.

Het is mogelijk dat u uw basisgebruiker niet gebruikt voor de indruk. je kunt de macro eenvoudigweg declancheren en de optie impressie heel eenvoudig gebruiken.

Dank u voor uw hulp
Deze opmerking is gemaakt door de moderator op de site
Hallo Kaji,
Pas de onderstaande code toe om uw probleem op te lossen:
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen, als je een ander probleem hebt, reageer dan hier.
Deze opmerking is gemaakt door de moderator op de site
In bijlage vindt u de gewijzigde codes.

En hier is het in tekst:
SubverhogingAfdrukken()
'bijwerken door' Extendoffice
Dim xEnd als variant
Dim xStart als variant
Dim xScreen als Boolean
Dim ik zo lang
On Error Resume Next
LInvoer:
xStart = Application.InputBox ("Voer het eerste nummer in:", "Kutools for Excel")
xEnd = Application.InputBox ("Voer het laatste nummer in:", "Kutools for Excel")
Als TypeName(xCount) = "Boolean" Sub afsluiten
Als (xStart = "") Of (Niet IsNumeriek(xStart)) Of (xStart < 1) Dan
MsgBox "Fout ingevoerd, voer opnieuw in", vbInformation, "Kutools for Excel"
Ga naar LInvoer
Anders
xScreen = Toepassing.ScreenUpdating
Application.ScreenUpdating = False
Voor I = xBegin tot xEinde
ActiveSheet.Range ("A1"). Waarde = " Bedrijf-00" & I
ActiveSheet.PrintOut
Volgende
ActiveSheet.Range ("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik heb serienummers nodig zoals IA1-055242, IA1-055243, IA1-055244 .....
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het plaatsen hiervan, het is erg nuttig. Mijn vraag is deze: ik heb 2 verschillende streepjescodes die op één pagina moeten worden verhoogd, hoe kan ik de code daarvoor aanpassen?
Deze opmerking is gemaakt door de moderator op de site
Sorry dat ik dit in een apart bericht vraag... Mijn serienummers beginnen met een NUL, maar als ik het programma start, worden de nullen verwijderd. Ik heb geprobeerd het nummerveld naar tekst te converteren, maar dat loste het niet op. Andere ideeën?
Deze opmerking is gemaakt door de moderator op de site
R-klik op cel, formaat, aangepast, waar 'Algemeen' staat, vervang dat door zoveel nullen als uw serienummer zal zijn. Hierdoor wordt het benodigde aantal nullen voor uw serienummer geforceerd. Als ik een groep serienummers heb die uit 10-cijferige series bestaan, voer ik 0000000000 in het veld Type in om '0004563571' in het serienummerveld weer te geven.
Deze opmerking is gemaakt door de moderator op de site
Bedankt Art. Ik heb dat geprobeerd, maar de streepjescode bleef de voorloopnullen verwijderen ... zelfs nadat ik een aangepast getalformaat had gemaakt.
Deze opmerking is gemaakt door de moderator op de site
mijn serienummer begint met 227861 hoe kan ik afdrukken vanaf?
Deze opmerking is gemaakt door de moderator op de site
afgedrukt als 30 exemplaren, maar nu kan ik niet afdrukken, heb het script vaak uitgevoerd maar werkt niet, doe niets :(
Deze opmerking is gemaakt door de moderator op de site
bedankt voor het bovenstaande, erg nuttig. is het mogelijk om de laatste waarde op te slaan en te onthouden?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Pieter,
Om de laatst afgedrukte waarde op te slaan en te onthouden wanneer u de volgende keer afdrukt, moet u de volgende VBA-code toepassen:

SubverhogingAfdrukken()
Dim xCount als variant
Dim xScreen als Boolean
Dim ik zo lang
Dim xM zo lang
Dim xMNWS als werkblad
Dim xAWS als werkblad
On Error Resume Next
LInvoer:
xCount = Application.InputBox ("Voer het aantal exemplaren in dat u wilt afdrukken:", "Kutools for Excel")
Als TypeName(xCount) = "Boolean" Sub afsluiten
Als (xCount = "") Of (Niet IsNumeriek(xCount)) Of (xCount < 1) Dan
MsgBox "fout ingevoerd, voer opnieuw in", vbInformation, "Kutools for Excel"
Ga naar LInvoer
Anders
xScreen = Toepassing.ScreenUpdating
Stel xAWS = ActiveSheet in
Bij fout Ga naar EMarkNumberSheet
Stel xMNWS = Vellen in ("IncrementPrint_MarkNumberSheet")
EMarkNumberBlad:
Als xMNWS niets is, dan
Stel xMNWS = Application.Worksheets.Add (Type:=xlWorksheet) in
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Bereik ("A1"). Waarde = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Anders
xM = xMNWS.Bereik("A1").Waarde
End If
Application.ScreenUpdating = False
Voor I = 1 Tot xCount
xM = xM + 1
xAWS.Bereik ("A1"). Waarde = " Bedrijf-00" & xM
xAWS.Afdruk
Volgende
xMNWS.Bereik ("A1"). Waarde = xM
xAWS.Bereik ("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Als u het afgedrukte nummer moet resetten naar het standaardnummer, voert u eerst de onderstaande code uit en voert u vervolgens de bovenstaande code uit om af te drukken.

SubincrementPrint_Reinstall()
Dim xMNWS als werkblad
Bij fout Ga naar EMarkNumberSheet
Stel xMNWS = Vellen in ("IncrementPrint_MarkNumberSheet")
EMarkNumberBlad:
Als niet xMNWS niets is, dan
Application.DisplayAlerts = False
xMNWS.Visible = xlBladVerborgen
xMNWS.Verwijderen
Application.DisplayAlerts = Waar
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, bedankt voor deze code.. Ik heb een vraag. Ik heb deze code gebruikt, maar de series springen als 0071,0072,0073. gebeurde als 3x tussen serie 1-100. Dus ik sloot de vba zonder op te slaan, installeer de code opnieuw, maar het drukt de laatste reeks af die is opgeslagen (0032). Mijn vraag is hoe kan ik continu printen zonder dat de serie springt en hoe kan ik opnieuw printen vanaf 101? zal uw antwoord zeer op prijs stellen. excuses hiervoor. Ik ben geen programmeur, ik hoop dat je het begrijpt. Dank u! 
Deze opmerking is gemaakt door de moderator op de site
bedankt voor het plaatsen van dit, het is erg nuttig. Mijn vraag is deze: ik heb 2 verschillende streepjescodes die op één pagina moeten worden verhoogd, hoe kan ik de code daarvoor aanpassen?
Deze opmerking is gemaakt door de moderator op de site
Hallo Desmond,
Als je 2 plaatsen op één pagina hebt (zoals 2 coupons of 2 sjablonen / 2 vouchers enz.), dan kun je de onderstaande code proberen. (Ervan uitgaande dat uw 1e streepjescode en 2e streepjescode zich in de cellen "A1" en "A20" van dezelfde pagina bevinden, verhoogt deze code waarden zoals Bedrijf-001 en Bedrijf-002 op de eerste pagina en Bedrijf-003 en Bedrijf-004 op de tweede pagina enz. U kunt het celnummer en de bedrijfsnaam naar wens bewerken in regel 20, 21, 23, 24 en 28,29 van de code. 
Het zal je ook vragen om het startnummer en eindnummer in te voeren (met dank aan geniusman voor dit deel van de code). Dus bijvoorbeeld uw startnummer. is 1 en eindigend op nr. 8, het zal 4 pagina's van 1,2 op de 1e pagina, 3,4 op de 2e pagina, 5,6 op de 3e pagina en tenslotte 7,8 op de 4e pagina afdrukken. Ik hoop dat het jou of iemand anders helpt die op zoek is naar dit soort behoefte/vereiste. 
Gewijzigde Code: ----------------------------------------------- ------------Sub IncrementPrint()
'bijwerken door' Extendoffice
Dim xEnd als variant
Dim xStart als variant
Dim xScreen als Boolean
Dim ik zo lang
On Error Resume Next
LInvoer:
xStart = Application.InputBox ("Voer het eerste nummer in:", "Kutools for Excel")
xEnd = Application.InputBox ("Voer het laatste nummer in:", "Kutools for Excel")
Als TypeName(xCount) = "Boolean" Sub afsluiten
Als (xStart = "") Of (Niet IsNumeriek(xStart)) Of (xStart < 1) Dan
MsgBox "Fout ingevoerd, voer opnieuw in", vbInformation, "Kutools for Excel"
Ga naar LInvoer
Anders
xScreen = Toepassing.ScreenUpdating
Application.ScreenUpdating = False
Voor I = xBegin tot xEinde
Als ik Mod 2 = 0 Dan
ActiveSheet.Range ("A1"). Waarde = " Bedrijf-00" & I + 1
ActiveSheet.Range ("A20"). Waarde = " Bedrijf-00" & I
Anders
ActiveSheet.Range ("A20"). Waarde = " Bedrijf-00" & I + 1
ActiveSheet.Range ("A1"). Waarde = " Bedrijf-00" & I
ActiveSheet.PrintOut
End If
Volgende
ActiveSheet.Range ("A1").ClearContents
ActiveSheet.Range ("A20").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

-------------------------------------------------- -------------------------------------------------- ----- Bedankt, RNS
Deze opmerking is gemaakt door de moderator op de site
Mijn cel is I3 en het nummer is 2298 wanneer ik de (VBA-code: celwaarde automatisch verhogen na elke afdruk:) het geeft me 22981 hoe krijg ik het op 2298,2299,2300
Deze opmerking is gemaakt door de moderator op de site
Hallo, jenifer,
Gebruik de volgende VBA-code om uw probleem op te lossen:
Opmerking: wijzig de tekst en het nummer van het voorvoegsel in uw eigen.

SubverhogingPrint_Num()
Dim xCount als variant
Dim xScreen als Boolean
Dim ik zo lang
Dim xStr als tekenreeks
Dim xInt als geheel getal
On Error Resume Next
xStr = "Bedrijf-" 'voorvoegsel tekst
xInt = 2291 'getal'
LInvoer:
xCount = Application.InputBox ("Voer het aantal exemplaren in dat u wilt afdrukken:", "Kutools for Excel")
Als TypeName(xCount) = "Boolean" Sub afsluiten
Als (xCount = "") Of (Niet IsNumeriek(xCount)) Of (xCount < 1) Dan
MsgBox "fout ingevoerd, voer opnieuw in", vbInformation, "Kutools for Excel"
Ga naar LInvoer
Anders
xScreen = Toepassing.ScreenUpdating
Application.ScreenUpdating = False
Voor I = 1 Tot xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Waarde = xStr & xInt
ActiveSheet.PrintOut
Volgende
ActiveSheet.Range ("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Hallo kunnen jullie mij hierbij helpen? Ik wil dat de xINT uit meer dan 5 cijfers bestaat. Telkens als ik een getal met 6 cijfers invul, gaat de telling terug naar 1. Hoe kan ik dat voorkomen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, erg interessant, ook al ben ik op zoek naar een andere oplossing die ik niet kon vinden en zelfs als ik probeerde de code aan te passen, kon ik dat tot nu toe niet bereiken. In navolging van uw voorbeeld zou ik dezelfde pagina 100 keer moeten afdrukken, in dezelfde PDF bijvoorbeeld en op elke pagina nam het paginanummer toe. Zoals ik al zei, heb ik de sorteermethode geprobeerd, maar zoals ik begreep, kun je samen afdrukken als je meerdere exemplaren van dezelfde afdruk nodig hebt. Bij voorbaat dank Giuseppe
Deze opmerking is gemaakt door de moderator op de site
Hallo, deze code werkt uitstekend, maar na 32767 celwaarde gaat hij weer terug naar 1. Na deze waarde wordt afgedrukt vanaf nummer 1.
Deze opmerking is gemaakt door de moderator op de site
heel erg bedankt, het werkt voor mij. En ik slaag erin om een ​​paar kleine veranderingen aan te brengen om aan mijn behoeften te voldoen. Waardeer echt dat je het deelt.
Deze opmerking is gemaakt door de moderator op de site
Hallo Jennifer, probeer dit eens
SubverhogingAfdrukken()
'bijwerken door' Extendoffice 20160530
Dim xCount als variant
Dim xScreen als Boolean
Dim ik zo lang
On Error Resume Next
LInvoer:
xCount = Application.InputBox ("Voer het aantal exemplaren in dat u wilt afdrukken:", "Kutools for Excel")
Als TypeName(xCount) = "Boolean" Sub afsluiten
Als (xCount = "") Of (Niet IsNumeriek(xCount)) Of (xCount < 1) Dan
MsgBox "fout ingevoerd, voer opnieuw in", vbInformation, "Kutools for Excel"
Ga naar LInvoer
Anders
xScreen = Toepassing.ScreenUpdating
Application.ScreenUpdating = False
Voor I = 1 Tot xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Waarde = ActiveSheet.Range("J18").Waarde + 1
Volgende
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hartstikke bedankt
Deze opmerking is gemaakt door de moderator op de site
Werkt goed voor het afdrukken van incrementele #'s. Hoe print ik elke 5e, 10e, wanneer nodig?
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om te selecteren welke waarden ik wil afdrukken? ik heb bijvoorbeeld reeks 1 tot 30 afgedrukt, maar moet reeks 15 tot 19 opnieuw afdrukken.
Deze opmerking is gemaakt door de moderator op de site
hey, ik wil het nummer van het K11-celnummer na het afdrukken wijzigen in 1-2-3-4-5-6 enz. Kan je me helpen? en vertel me ook hoe ik die functie moet aanroepen, help!
Deze opmerking is gemaakt door de moderator op de site
Ik vroeg me af hoe ik een kleine wijziging kon aanbrengen zodat het 1 van 10, 2 van 10, 3 van 10, enz.
Dit werkt anders prima. Bedankt.
Deze opmerking is gemaakt door de moderator op de site
hallo, mijn naam is zeker, ik heb gegevens in Excel-formaat zonder serienummer, wat graag een voorbeeld van een vrachtbrief is. ik moet het nemen als 100 pagina's afdrukken en ik moet het serienummer afdrukken wat ik ook nodig heb van een 4-cijferig, maar tijdens het afdrukken moet ik het op een handmatige manier doen. kunt u uitleggen wie u moet afdrukken om automatisch de serienummercode te genereren tijdens het afdrukken?
Deze opmerking is gemaakt door de moderator op de site
Super goed !! Ik ben geen programmeur, maar het is me gelukt om de celref en de unieke nummering die ik wilde te veranderen. Werkte fantastisch voor mij God zegene u!
Deze opmerking is gemaakt door de moderator op de site
Is het ook mogelijk om deze code toe te voegen, zodat er automatisch 2 exemplaren worden afgedrukt?
Deze opmerking is gemaakt door de moderator op de site
Ik zou denken dat je dit onderdeel zou kunnen veranderen:ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut

naar
ActiveSheet.Range ("A1"). Waarde = " Bedrijf-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

om van elk 2 exemplaren te krijgen.
Deze opmerking is gemaakt door de moderator op de site
Ik vroeg me af of je het bestand na het heropenen gewoon rechtstreeks kunt afdrukken en het nog steeds het volgnummer volgt?
Wat ik momenteel doe, is elke keer dat ik het bestand open, ALT + F11 en vervolgens F5 en geef het aantal exemplaren aan. Het zal dan het bestand met de juiste nummering afdrukken en vervolgens opnieuw opslaan. en wanneer ik weer open ga, hoef ik alleen maar dezelfde stap te doen.
Als er een code is waarmee u deze elke keer dat u het bestand opent gewoon rechtstreeks kunt afdrukken en het nog steeds de sequentiële nummering volgt?
dank bij voorbaat
Deze opmerking is gemaakt door de moderator op de site
Ik vroeg me af of je het bestand na het heropenen gewoon rechtstreeks kunt afdrukken en het nog steeds het volgnummer volgt?

Wat ik momenteel doe, is elke keer dat ik het bestand open, ALT + F11 en vervolgens F5 en geef het aantal exemplaren aan. Het zal dan het bestand met de juiste nummering afdrukken en vervolgens opnieuw opslaan. en wanneer ik weer open ga, hoef ik alleen maar dezelfde stap te doen.

Als er een code is waarmee u deze elke keer dat u het bestand opent gewoon rechtstreeks kunt afdrukken en het nog steeds de sequentiële nummering volgt?

dank bij voorbaat
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt voor het delen van bovenstaande code. Het is voor iedereen erg nuttig. Kunnen we wat meer code toevoegen voor het verhogen van 8 cijfers in plaats van 1 na afdrukken? Wacht op uw antwoord. Bedankt
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL