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

 Hvordan øges celleværdien automatisk efter hver udskrivning?

Antag, jeg har en regnearkside, der skal udskrives 100 kopier, cellen A1 er kontrolnummeret Company-001, nu vil jeg gerne have, at antallet stiger med 1 efter hver udskrift. Det betyder, at når jeg udskriver den anden kopi, forøges antallet automatisk til Company-002, det tredje eksemplar, antallet bliver Company-003… hundrede eksemplarer, antallet bliver Company-100. Er der noget trick til at løse dette problem i Excel hurtigt og muligvis?

Automatisk forøgelse af celleværdi efter hver udskrivning med VBA-kode


pil blå højre boble Automatisk forøgelse af celleværdi efter hver udskrivning med VBA-kode

Normalt er der ingen direkte måde for dig at løse denne opgave på i Excel, men her opretter jeg en VBA-kode for at håndtere den.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Automatisk forøgelse af celleværdi efter hver udskrivning:

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde dig om at indtaste antallet af kopier, som du vil udskrive det aktuelle regneark, se skærmbillede:

dokumentforøgelse ved udskrivning 1

4. Klik OK knappen, og dit aktuelle regneark udskrives nu, og på samme tid er de trykte regneark nummereret Company-001, Company-002, Company-003 ... i celle A1, som du har brug for.

Bemærk: I ovenstående kode, cellen A1 vil blive indsat de sekvensnumre, du bestilte, og den oprindelige celleværdi i A1 vil blive ryddet. Og “Virksomhed-00”Er sekvensnummeret, du kan ændre dem til dit behov.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (51)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kode er fantastisk, den er præcis, hvad jeg har brug for, men jeg tænkte på, om der er en måde at begynde at udskrive fra det tal, der er indtastet i celle "A1"? For eksempel, hvis jeg har printet 100 eksemplarer, skal jeg ved næste oplag printe fra nummer 101 og tælle op derfra. Jeg har prøvet et par kodejusteringer, men det ser kun ud til at tage det tal, der er indtastet i cellen, dvs. 101, tilføje 1, og så sidder resten af ​​udskrifterne fast med det ene tal, dvs. 102... Din hjælp ville blive meget værdsat: -)
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis du ikke allerede har fundet en løsning, kan du redigere linje 17 i koden til denne: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Dette vil give +1 til det nummer, du har i A1-cellen.
Denne kommentar blev minimeret af moderatoren på webstedet
Den sender ikke til min printer
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

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 copies. 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 muligt na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'option impression. Er det muligt?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

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.

Je voudrais aussi si possible ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l'option impression tout simplement.

Tak for din hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
Hej kaji,
For at løse dit problem skal du anvende nedenstående kode:
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

Prøv venligst, håber det kan hjælpe dig, hvis du har andre problemer, bedes du kommentere her.
Denne kommentar blev minimeret af moderatoren på webstedet
Find vedhæftede de ændrede koder.

Og her er det i teksten:
Sub IncrementPrint()
'opdatering af Extendoffice
Dim xEnd som variant
Dim xStart som variant
Dim xScreen Som Boolean
Dim I Så længe
On Error Resume Next
LInput:
xStart = Application.InputBox("Indtast venligst det første tal:", "Kutools for Excel")
xEnd = Application.InputBox("Indtast venligst det sidste tal:", "Kutools til Excel")
Hvis TypeName(xCount) = "Boolean" Afslut Sub
Hvis (xStart = "") Eller (Not IsNumeric(xStart)) Eller (xStart < 1) Så
MsgBox "Fejl indtastet, indtast venligst igen", vbInformation, "Kutools for Excel"
Gå til LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = xStart Til xEnd
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Næste
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har brug for serienumre som IA1-055242, IA1-055243, IA1-055244 .....
Denne kommentar blev minimeret af moderatoren på webstedet
Tak fordi du skrev dette, det er meget nyttigt. Mit spørgsmål er dette: Jeg har 2 forskellige stregkoder, der skal øges på én side, hvordan kan jeg ændre koden for at gøre det?
Denne kommentar blev minimeret af moderatoren på webstedet
Beklager at spørge om dette i et separat indlæg... Mine serienumre starter med et NUL, men når jeg kører programmet eliminerer det nullerne. Jeg forsøgte at konvertere nummerfeltet til tekst, men det fiksede det ikke. Andre ideer?
Denne kommentar blev minimeret af moderatoren på webstedet
R-klik på celle, format, brugerdefineret, hvor der står 'Generelt', erstat det med så mange nuller, som dit serienummer vil være. Dette vil tvinge det nødvendige antal nuller foran dit serienummer. Hvis jeg har en gruppe serienumre, der er 10-cifrede serier, indtaster jeg 0000000000 i feltet Type for at få '0004563571' til at blive vist i serienummerfeltet.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak Art. Jeg prøvede det, men stregkoden blev ved med at fjerne de foranstillede nuller... selv efter at have lavet et brugerdefineret talformat.
Denne kommentar blev minimeret af moderatoren på webstedet
mit serienummer starter med 227861 hvordan kan jeg printe fra
Denne kommentar blev minimeret af moderatoren på webstedet
udskrevet som 30 kopier, men nu kan jeg ikke udskrive, kørte scriptet mange gange, men det virker ikke, gør ikke noget :(
Denne kommentar blev minimeret af moderatoren på webstedet
tak for ovenstående, virkelig nyttigt. er det muligt at gemme og huske den sidste værdi
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Pieter,
For at gemme og huske den sidst udskrevne værdi, næste gang du udskriver, skal du anvende følgende VBA-kode:

Sub IncrementPrint()
Dim xCount As Variant
Dim xScreen Som Boolean
Dim I Så længe
Dim xM As Long
Dim xMNWS Som arbejdsark
Dim xAWS som arbejdsark
On Error Resume Next
LInput:
xCount = Application.InputBox("Indtast venligst antallet af kopier, du vil udskrive:", "Kutools for Excel")
Hvis TypeName(xCount) = "Boolean" Afslut Sub
Hvis (xCount = "") Eller (Not IsNumeric(xCount)) Eller (xCount < 1) Så
MsgBox "fejl indtastet, indtast venligst igen", vbInformation, "Kutools for Excel"
Gå til LInput
Else
xScreen = Application.ScreenUpdating
Indstil xAWS = ActiveSheet
Ved fejl Gå til EMarkNumberSheet
Indstil xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Hvis xMNWS ikke er noget så
Indstil xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Værdi = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Else
xM = xMNWS.Range("A1").Værdi
End If
Application.ScreenUpdating = False
For I = 1 Til xCount
xM = xM + 1
xAWS.Range("A1").Value = " Company-00" & xM
xAWS.PrintOut
Næste
xMNWS.Range("A1").Værdi = xM
xAWS.Range("A1"). ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Hvis du har brug for at nulstille det udskrevne nummer til standardnummeret, skal du først køre nedenstående kode, og derefter udføre ovenstående kode for at udskrive.

Sub IncrementPrint_Reinstall()
Dim xMNWS Som arbejdsark
Ved fejl Gå til EMarkNumberSheet
Indstil xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Hvis ikke xMNWS er ​​ingenting, så
Application.DisplayAlerts = False
xMNWS.Visible = xlSheetHidden
xMNWS.Slet
Application.DisplayAlerts = True
End If
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, tak for denne kode.. Jeg har et spørgsmål. Jeg brugte denne kode, men serien hopper som 0071,0072,0073. skete som 3x mellem serie 1-100. Så jeg lukkede vba'en uden at gemme geninstaller koden, men den udskriver den sidste serie, der blev gemt (0032). Mit spørgsmål er, hvordan kan jeg udskrive kontinuerligt uden at serien springer, og hvordan kan jeg genudskrive igen fra 101? vil virkelig sætte pris på dit svar. undskyld. Jeg er ikke programmør, jeg håber du forstår. Tak skal du have! 
Denne kommentar blev minimeret af moderatoren på webstedet
tak fordi du skrev dette, det er meget nyttigt. Mit spørgsmål er dette: Jeg har 2 forskellige stregkoder, der skal øges på én side, hvordan kan jeg ændre koden for at gøre det?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Desmond,
Hvis du har 2 pladser på én side (som 2 kuponer eller 2 skabeloner / 2 kuponer osv.), så kan du prøve at bruge nedenstående kode. (Forudsat at din 1. stregkode og 2. stregkode er i cellerne "A1" og "A20" på samme side, vil denne kode øge værdier som Company-001 og Company-002 på første side og Company-003 og Company-004 på anden side osv. Du kan redigere cellenummer og firmanavn som du vil i linje 20, 21, 23, 24 og 28,29 i koden. 
Den vil også bede dig om at indtaste startnummeret og slutnummeret (Tak til geniusman for denne del af koden). Så for eksempel dit startnr. er 1 og slutter nr. 8, vil den udskrive 4 sider af 1,2 på 1. side, 3,4 på 2. side, 5,6 på 3. side og til sidst 7,8 på 4. side. Håber det hjælper dig eller nogen, der leder efter denne type behov/krav. 
Ændret kode:------------------------------------------------------ ------------Sub IncrementPrint()
'opdatering af Extendoffice
Dim xEnd som variant
Dim xStart som variant
Dim xScreen Som Boolean
Dim I Så længe
On Error Resume Next
LInput:
xStart = Application.InputBox("Indtast venligst det første tal:", "Kutools for Excel")
xEnd = Application.InputBox("Indtast venligst det sidste tal:", "Kutools til Excel")
Hvis TypeName(xCount) = "Boolean" Afslut Sub
Hvis (xStart = "") Eller (Not IsNumeric(xStart)) Eller (xStart < 1) Så
MsgBox "Fejl indtastet, indtast venligst igen", vbInformation, "Kutools for Excel"
Gå til LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = xStart Til xEnd
Hvis I Mod 2 = 0 Så
ActiveSheet.Range("A1").Value = " Company-00" & I + 1
ActiveSheet.Range("A20").Value = " Company-00" & I
Else
ActiveSheet.Range("A20").Value = " Company-00" & I + 1
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
End If
Næste
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

-------------------------------------------------- -------------------------------------------------- -----Tak, RNS
Denne kommentar blev minimeret af moderatoren på webstedet
Min celle er I3, og tallet er 2298, når jeg prøver (VBA-kode: Auto inkrement celleværdi efter hver udskrivning:) det giver mig 22981 hvordan får jeg det til 2298,2299,2300
Denne kommentar blev minimeret af moderatoren på webstedet
Hej jennifer,
For at løse dit problem skal du anvende følgende VBA-kode:
Bemærk: Ændr venligst præfikset tekst og nummer til dit eget.

Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen Som Boolean
Dim I Så længe
Dim xStr As String
Dim xInt Som heltal
On Error Resume Next
xStr = "Virksomheds-" 'præfikstekst
xInt = 2291 'tal
LInput:
xCount = Application.InputBox("Indtast venligst antallet af kopier, du vil udskrive:", "Kutools for Excel")
Hvis TypeName(xCount) = "Boolean" Afslut Sub
Hvis (xCount = "") Eller (Not IsNumeric(xCount)) Eller (xCount < 1) Så
MsgBox "fejl indtastet, indtast venligst igen", vbInformation, "Kutools for Excel"
Gå til LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 Til xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Næste
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Prøv det, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej kan du hjælpe mig med dette? Jeg vil have xINT til at være mere end 5 cifre. Hver gang jeg sætter et tal med 6 cifre, går tallet tilbage til 1. Hvordan kan jeg forhindre det?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, meget interessant, selvom jeg leder efter en anden løsning, som jeg ikke kunne finde, og selvom jeg prøvede at tilpasse koden, kunne det ikke opnås indtil videre. Efter dit eksempel skulle jeg udskrive den samme side 100 gange, ind i den samme PDF for eksempel, og på hver side steg sidetallet. Som jeg sagde prøvede sorteringsmetoden, men som jeg forstod giver den dig mulighed for at udskrive sammen, hvis du har brug for flere kopier af den samme udskrift. På forhånd tak Giuseppe
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, denne kode fungerer fremragende, men efter 32767 celleværdi igen går den tilbage til 1. Efter denne værdi udskrives den fra nummer 1.
Denne kommentar blev minimeret af moderatoren på webstedet
mange tak, det virker for mig. Og jeg formår at lave et par mindre ændringer, der passer til mine behov. Sætter virkelig pris på din deling.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Jennifer, prøv dette
Sub IncrementPrint()
'opdatering af Extendoffice 20160530
Dim xCount As Variant
Dim xScreen Som Boolean
Dim I Så længe
On Error Resume Next
LInput:
xCount = Application.InputBox("Indtast venligst antallet af kopier, du vil udskrive:", "Kutools for Excel")
Hvis TypeName(xCount) = "Boolean" Afslut Sub
Hvis (xCount = "") Eller (Not IsNumeric(xCount)) Eller (xCount < 1) Så
MsgBox "fejl indtastet, indtast venligst igen", vbInformation, "Kutools for Excel"
Gå til LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 Til xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
Næste
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
End If
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Tusind tak
Denne kommentar blev minimeret af moderatoren på webstedet
Fungerer godt til udskrivning af trinvise #'er. Hvordan udskriver jeg hver 5., 10. efter behov?
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at vælge, hvilke værdier jeg vil udskrive? for eksempel udskrev jeg sekvens 1 til 30, men skal genudskrive sekvens 15 til 19 igen.
Denne kommentar blev minimeret af moderatoren på webstedet
hej jeg vil ændre nummeret på K11-cellenummeret efter print til 1-2-3-4-5-6 osv. kan du hjælpe? og fortæl mig også, hvordan man kalder den funktion, vær sød at hjælpe
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tænkte på, hvordan man laver en lille ændring, så den udskriver 1 af 10, 2 af 10, 3 af 10 osv.
Ellers fungerer dette glimrende. Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
hej, mit navn er sikkert, jeg har en data i excel-format uden noget serienummer, som kan lide et eksempel på en fragtregning. Jeg er nødt til at tage det som 100 sider print og skal udskrive serienummeret, hvad jeg har brug for fra et 4-cifret, men under udskrivning skal jeg gøre det manuelt. kan du forklare, hvem der skal udskrive automatisk generere serienummerkoden under udskrivning
Denne kommentar blev minimeret af moderatoren på webstedet
Store !! Jeg er ikke en programmør, men jeg formåede at ændre Cell ref og den unikke nummerering, jeg ønskede. Virkede fremragende for mig Gud velsigne dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Er det også muligt at tilføje denne kode, så der automatisk udskrives 2 kopier?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ville tro, du kunne ændre denne del: ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

til
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

at få 2 eksemplarer af hver.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tænkte på, om du bare lige kan udskrive filen efter genåbning, og den stadig følger det sekventielle nummer?
Det, jeg gør i øjeblikket, er, hver gang jeg åbner filen, ALT + F11 og derefter F5 og angive antallet af kopier. Den vil så udskrive filen med den korrekte nummerering, så er det bare at gemme igen. og når jeg åbner igen, skal jeg bare gøre samme trin.
Hvis der er en kode, hvor du lige kan printe den ud, hver gang du åbner filen, og den vil stadig følge den sekventielle nummerering?
tak på forhånd
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tænkte på, om du bare lige kan udskrive filen efter genåbning, og den stadig følger det sekventielle nummer?

Det, jeg gør i øjeblikket, er, hver gang jeg åbner filen, ALT + F11 og derefter F5 og angive antallet af kopier. Den vil så udskrive filen med den korrekte nummerering, så er det bare at gemme igen. og når jeg åbner igen, skal jeg bare gøre samme trin.

Hvis der er en kode, hvor du lige kan printe den ud, hver gang du åbner filen, og den vil stadig følge den sekventielle nummerering?

tak på forhånd
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak for at dele ovenstående kode. Det er meget nyttigt for alle. Kan vi tilføje noget kode mere for at øge 8 numre i stedet for 1 efter udskrifter? Venter på dit svar. Tak
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL