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

 Cum se crește automat valoarea celulei după fiecare tipărire?

Presupunând că am o pagină de foaie de lucru necesară pentru a fi tipărită 100 de exemplare, celula A1 este numărul de verificare Company-001, acum, aș dori ca numărul să crească cu 1 după fiecare tipărire. Asta înseamnă că atunci când imprim cel de-al doilea exemplar, numărul va fi mărit automat la Compania-002, al treilea exemplar, numărul va fi Compania-003 ... o sută de exemplare, numărul va fi Compania-100. Există vreun truc pentru a rezolva această problemă în Excel rapid și posibil?

Creșteți automat valoarea celulei după fiecare tipărire cu cod VBA


săgeată albastru dreapta balon Creșteți automat valoarea celulei după fiecare tipărire cu cod VBA

În mod normal, nu există o modalitate directă de a rezolva această sarcină în Excel, dar, aici, voi crea un cod VBA pentru a face față acesteia.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: creșterea automată a valorii celulei după fiecare tipărire:

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. Apoi apăsați F5 tasta pentru a rula acest cod și apare o casetă de prompt pentru a vă reaminti să introduceți numărul de copii pe care doriți să le imprimați foaia de lucru curentă, vedeți captura de ecran:

creșterea doc la imprimare 1

4. Clic OK butonul, iar foaia dvs. de lucru curentă se tipărește acum și, în același timp, foile de lucru tipărite sunt numerotate Compania-001, Compania-002, Compania-003 ... în celula A1, după cum aveți nevoie.

notițe: În codul de mai sus, celula A1 vor fi inserate numerele de ordine pe care le-ați comandat și valoarea inițială a celulei în A1 va fi șters. Și "Compania-00”Este numărul de ordine, le puteți schimba în funcție de nevoile dvs.


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (51)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest cod este uimitor, este exact ceea ce am nevoie, totuși, mă întrebam dacă există o modalitate de a începe tipărirea de la numărul care este introdus în celula „A1”? De exemplu, dacă am tipărit 100 de exemplare, la următoarea tirare va trebui să imprim de la numărul 101 și să număr în sus de acolo. Am încercat câteva ajustări de cod, dar se pare că ia doar numărul introdus în celulă, adică 101, adaugă 1 și apoi restul printurilor sunt blocate cu acel număr, adică 102... Asistența ta ar fi foarte apreciată: -)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dacă nu ați găsit deja o soluție, puteți edita linia 17 a codului astfel: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Acest lucru va adăuga +1 la numărul pe care îl aveți în celula A1.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu se trimite la imprimanta mea
Acest comentariu a fost redus la minimum de moderatorul de pe site
bonjour,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impression de 10 exemplare. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si possible na pas à avoir aller in basic. je voidrais că macroul este activ direct prin opțiunea impresiei. Este posibil?
Acest comentariu a fost redus la minimum de moderatorul de pe site
bonjour,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par exemple A1=153 et faire une impression de 10 copies. donc je récupéré 10 impressions numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

De asemenea, este posibil să nu aibă nevoie de utilizare de bază pentru impresie. Je voudrais pouvoir declancher direct la macro utilizând opțiunea de impresie pur și simplu.

Vă mulțumim pentru ajutor
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, kaji,
Pentru a vă rezolva problema, vă rugăm să aplicați codul de mai jos:
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

Vă rugăm să încercați, sper că vă poate ajuta, dacă aveți orice altă problemă, vă rugăm să comentați aici.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Găsiți atașat codurile modificate.

Și iată-l în text:
Sub IncrementPrint()
'updateby Extendoffice
Dim xEnd As Variant
Dim xStart ca variantă
Dim xScreen ca boolean
Dim I As Long
La data de eroare CV următoare
LIntrare:
xStart = Application.InputBox(„Vă rugăm să introduceți primul număr:”, „Kutools pentru Excel”)
xEnd = Application.InputBox(„Vă rugăm să introduceți ultimul număr:”, „Kutools pentru Excel”)
Dacă TypeName(xCount) = „Boolean”, Ieșiți din sub
Dacă (xStart = "") Sau (Nu IsNumeric(xStart)) Sau (xStart < 1) Atunci
MsgBox „Eroare introdusă, introduceți din nou”, vbInformation, „Kutools pentru Excel”
GoTo LInput
Altfel
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Fals
Pentru I = xStart To xEnd
ActiveSheet.Range("A1").Value = "Companie-00" și I
ActiveSheet.PrintOut
Pagina Următoare →
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Final, dacă
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am nevoie de numere de serie precum IA1-055242, IA1-055243, IA1-055244 .....
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc că ați postat asta, este foarte util. Întrebarea mea este următoarea: am 2 coduri de bare diferite care trebuie să fie incrementate pe o singură pagină, cum pot modifica codul pentru a face asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îmi pare rău că întreb asta într-o postare separată... Numerele mele de serie încep cu ZERO, dar când rulez programul elimină zerourile. Am încercat să convertesc câmpul numeric în text, dar asta nu a remediat. Alte idei?
Acest comentariu a fost redus la minimum de moderatorul de pe site
R-Click Celulă, Format, Personalizat, Unde scrie „General”, înlocuiți-l cu câte zerouri va fi numărul dvs. de serie. Acest lucru va forța cantitatea de zerouri necesară în fața numărului dvs. de serie. Dacă am un grup de numere de serie care sunt seriale de 10 cifre, introdu 0000000000 în câmpul Tip pentru a obține „0004563571” pentru a se afișa în câmpul numărul de serie.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc art. Am încercat asta, dar codul de bare a continuat să elimine zerourile de început... chiar și după ce am făcut un format personalizat de numere.
Acest comentariu a fost redus la minimum de moderatorul de pe site
numărul meu de serie începe cu 227861 de unde pot imprima
Acest comentariu a fost redus la minimum de moderatorul de pe site
tipărit ca 30 de copii, dar acum nu pot imprima, am rulat scriptul de multe ori, dar nu funcționează, nu face nimic :(
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc pentru cele de mai sus, foarte util. este posibil să salvați și să vă amintiți ultima valoare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Pieter,
Pentru a salva și a reține ultima valoare tipărită când imprimați data viitoare, ar trebui să aplicați următorul cod VBA:

Sub IncrementPrint()
Dim xCount ca variantă
Dim xScreen ca boolean
Dim I As Long
Dim xM As Long
Dim xMNWS ca fișă de lucru
Dim xAWS ca foaie de lucru
La data de eroare CV următoare
LIntrare:
xCount = Application.InputBox(„Vă rugăm să introduceți numărul de copii pe care doriți să le imprimați:”, „Kutools pentru Excel”)
Dacă TypeName(xCount) = „Boolean”, Ieșiți din sub
Dacă (xCount = "") sau (nu esteNumeric(xCount)) sau (xCount < 1) atunci
MsgBox „Eroare introdusă, introduceți din nou”, vbInformation, „Kutools pentru Excel”
GoTo LInput
Altfel
xScreen = Application.ScreenUpdating
Setați xAWS = ActiveSheet
La eroare, accesați EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Dacă xMNWS este nimic, atunci
Set xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Valoare = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Altfel
xM = xMNWS.Range("A1").Valoare
Final, dacă
Application.ScreenUpdating = Fals
Pentru I = 1 To xCount
xM = xM + 1
xAWS.Range("A1").Value = "Companie-00" și xM
xAWS.PrintOut
Pagina Următoare →
xMNWS.Range("A1").Valoare = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Final, dacă
End Sub

Dacă trebuie să resetați numărul tipărit la numărul implicit, rulați mai întâi codul de mai jos, apoi executați codul de mai sus pentru a imprima.

Sub IncrementPrint_Reinstall()
Dim xMNWS ca fișă de lucru
La eroare, accesați EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Dacă nu, xMNWS este nimic, atunci
Application.DisplayAlerts = Fals
xMNWS.Visible = xlSheetHidden
xMNWS.Șterge
Application.DisplayAlerts = Adevărat
Final, dacă
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mulțumesc pentru acest cod.. Am o întrebare. Am folosit acest cod, dar seria sari ca 0071,0072,0073. s-a întâmplat de 3 ori între seriile 1-100. Așa că am închis vba fără a salva, reinstalează codul, dar a tipărit ultima serie care a fost salvată (0032). Întrebarea mea este cum pot imprima continuu fără să sară seria și cum pot retipări din nou începând cu 101? va aprecia cu adevărat răspunsul dvs. scuze pentru asta. Nu sunt programator, sper ca intelegi. Mulțumesc! 
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc pentru postarea asta, este de mare ajutor. Întrebarea mea este următoarea: am 2 coduri de bare diferite care trebuie să fie incrementate pe o singură pagină, cum pot modifica codul pentru a face asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Desmond,
Dacă aveți 2 locuri pe o pagină (cum ar fi 2 Cupoane sau 2 șabloane / 2 vouchere etc.), atunci puteți încerca să utilizați codul de mai jos. (Presupunând că primul cod de bare și al doilea cod de bare sunt în celulele „A1” și „A2” ale aceleiași pagini, acest cod va crește valori precum Company-1 și Company-20 pe prima pagină și Company-001 și Company-002 pe a doua pagină și așa mai departe.Puteți edita numărul celulei și numele companiei după cum doriți în rândurile 003, 004, 20, 21 și 23 din cod. 
De asemenea, vă va cere să introduceți numărul de început și numărul final (mulțumim lui geniusman pentru această parte a codului). Deci, de exemplu, numărul dvs. de pornire. este 1 și se termină cu nr. 8, va tipări 4 pagini de 1,2 pe pagina 1, 3,4 pe pagina a 2-a, 5,6 pe pagina a 3-a și în final 7,8 pe pagina a 4-a. Sper să vă ajute pe dumneavoastră sau pe oricine care caută acest tip de nevoie/cerință. 
Cod modificat:----------------------------------------------- ------------Sub IncrementPrint()
'updateby Extendoffice
Dim xEnd As Variant
Dim xStart ca variantă
Dim xScreen ca boolean
Dim I As Long
La data de eroare CV următoare
LIntrare:
xStart = Application.InputBox(„Vă rugăm să introduceți primul număr:”, „Kutools pentru Excel”)
xEnd = Application.InputBox(„Vă rugăm să introduceți ultimul număr:”, „Kutools pentru Excel”)
Dacă TypeName(xCount) = „Boolean”, Ieșiți din sub
Dacă (xStart = "") Sau (Nu IsNumeric(xStart)) Sau (xStart < 1) Atunci
MsgBox „Eroare introdusă, introduceți din nou”, vbInformation, „Kutools pentru Excel”
GoTo LInput
Altfel
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Fals
Pentru I = xStart To xEnd
Dacă am Mod 2 = 0 Atunci
ActiveSheet.Range("A1").Value = "Companie-00" și I + 1
ActiveSheet.Range("A20").Value = "Companie-00" și I
Altfel
ActiveSheet.Range("A20").Value = "Companie-00" și I + 1
ActiveSheet.Range("A1").Value = "Companie-00" și I
ActiveSheet.PrintOut
Final, dacă
Pagina Următoare →
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Final, dacă
End Sub

-------------------------------------------------- -------------------------------------------------- ----- Mulțumesc, RNS
Acest comentariu a fost redus la minimum de moderatorul de pe site
Celula mea este I3 și numărul este 2298 când încerc (codul VBA: Valoarea celulei de incrementare automată după fiecare imprimare:) îmi dă 22981 cum îl ajung la 2298,2299,2300
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, Jennifer,
Pentru a rezolva problema dvs., vă rugăm să aplicați următorul cod VBA:
Notă: Vă rugăm să schimbați textul și numărul prefixului în propriile dvs.

Sub IncrementPrint_Num()
Dim xCount ca variantă
Dim xScreen ca boolean
Dim I As Long
Dim xStr As String
Dim xInt ca întreg
La data de eroare CV următoare
xStr = "Companie-" 'text prefix
xInt = 2291 'număr
LIntrare:
xCount = Application.InputBox(„Vă rugăm să introduceți numărul de copii pe care doriți să le imprimați:”, „Kutools pentru Excel”)
Dacă TypeName(xCount) = „Boolean”, Ieșiți din sub
Dacă (xCount = "") sau (nu esteNumeric(xCount)) sau (xCount < 1) atunci
MsgBox „Eroare introdusă, introduceți din nou”, vbInformation, „Kutools pentru Excel”
GoTo LInput
Altfel
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Fals
Pentru I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Pagina Următoare →
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Final, dacă
End Sub

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna ma puteti ajuta cu asta? Vreau ca xINT să aibă mai mult de 5 cifre. De fiecare dată când pun un număr cu 6 cifre, numărul se întoarce la 1. Cum pot preveni asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, foarte interesant, deși caut o soluție diferită pe care nu am reușit să o găsesc și chiar dacă am încercat să personalizez codul nu am reușit să o obțin până acum. Urmând exemplul dvs., ar trebui să imprim aceeași pagină de 100 de ori, în același PDF, de exemplu, și pe fiecare pagină numărul paginii a crescut. După cum am spus, am încercat metoda de colat, dar după cum am înțeles, vă permite să imprimați împreună dacă aveți nevoie de mai multe copii ale aceleiași imprimări. Mulțumesc anticipat Giuseppe
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, acest cod funcționează excelent, dar după valoarea celulei 32767 revine din nou la 1. După această valoare se tipărește de la numărul 1.
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc mult, la mine functioneaza. Și reușesc să fac câteva modificări minore pentru a se potrivi nevoilor mele. Apreciez cu adevărat pentru împărtășirea dvs.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Jennifer, Încearcă asta
Sub IncrementPrint()
'updateby Extendoffice 20160530
Dim xCount ca variantă
Dim xScreen ca boolean
Dim I As Long
La data de eroare CV următoare
LIntrare:
xCount = Application.InputBox(„Vă rugăm să introduceți numărul de copii pe care doriți să le imprimați:”, „Kutools pentru Excel”)
Dacă TypeName(xCount) = „Boolean”, Ieșiți din sub
Dacă (xCount = "") sau (nu esteNumeric(xCount)) sau (xCount < 1) atunci
MsgBox „Eroare introdusă, introduceți din nou”, vbInformation, „Kutools pentru Excel”
GoTo LInput
Altfel
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Fals
Pentru I = 1 To xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
Pagina Următoare →
„ActiveSheet.Range(„J18”).ClearContents”

Application.ScreenUpdating = xScreen
Final, dacă
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc de un milion de ori
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează bine pentru tipărirea numărurilor incrementale. Cum imprim la fiecare 5, 10, atunci când este necesar?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a selecta ce valori vreau să imprim? de exemplu, am tipărit secvența de la 1 la 30, dar trebuie să reimpăresc secvența de la 15 la 19 din nou.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, vreau să schimb numărul de celule K11 după tipărire la 1-2-3-4-5-6 etc. Vă rugăm să mă puteți ajuta? și, de asemenea, spuneți-mi cum să apelez această funcție, vă rugăm să ajutați
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mă întrebam cum să fac o mică modificare, astfel încât să imprime 1 din 10, 2 din 10, 3 din 10 etc.
În rest, funcționează grozav. Mulțumiri.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, numele meu este sigur că am date în format Excel fără niciun număr de serie, căruia îi place un exemplu de factură de drum. Trebuie să-l iau ca tipărire de 100 de pagini și trebuie să imprim numărul de serie de la 4 cifre, dar în timpul imprimării trebuie să fac manual. Puteți explica cine să imprime, generează automat codul numărului de serie în timpul imprimării
Acest comentariu a fost redus la minimum de moderatorul de pe site
Grozav !! Nu sunt programator, dar am reușit să schimb reful celulei și numerotarea uniq pe care mi-am dorit-o. A funcționat excelent pentru mine Dumnezeu să vă binecuvânteze!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să adăugați și la acest cod, astfel încât să fie tipărite automat 2 copii?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aș crede că ați putea schimba această parte: ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

la
ActiveSheet.Range("A1").Value = "Companie-00" și I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

pentru a obține câte 2 exemplare din fiecare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mă întrebam dacă puteți imprima direct fișierul după redeschidere și încă urmează numărul secvenţial?
Ceea ce fac în prezent este de fiecare dată când deschid fișierul, ALT + F11 apoi F5 și indică numărul de copii. Apoi va imprima fișierul cu numerotarea corectă, apoi va salva din nou. și când voi redeschide din nou, trebuie doar să fac același pas.
Dacă există un cod în care îl puteți imprima direct de fiecare dată când deschideți fișierul și va urma în continuare numerotarea secvențială?
Multumesc anticipat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mă întrebam dacă puteți imprima direct fișierul după redeschidere și încă urmează numărul secvenţial?

Ceea ce fac în prezent este de fiecare dată când deschid fișierul, ALT + F11 apoi F5 și indică numărul de copii. Apoi va imprima fișierul cu numerotarea corectă, apoi va salva din nou. și când voi redeschide din nou, trebuie doar să fac același pas.

Dacă există un cod în care îl puteți imprima direct de fiecare dată când deschideți fișierul și va urma în continuare numerotarea secvențială?

Multumesc anticipat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc foarte mult pentru distribuirea codului de mai sus. Este foarte util pentru toată lumea. Putem adăuga ceva cod mai mult pentru creșterea cu 8 numere în loc de 1 după imprimări? Așteptăm răspunsul dvs. Mulțumiri
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL