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

 Jak automaticky zvyšovat hodnotu buňky po každém tisku?

Předpokládám, že mám stránku listu, kterou je třeba vytisknout 100 kopií, buňka A1 je kontrolní číslo Company-001, nyní bych chtěl, aby se počet po každém výtisku zvýšil o 1. To znamená, že když vytisknu druhou kopii, počet se automaticky zvýší na společnost-002, třetí kopie, číslo bude společnost-003 ... sto kopií, číslo bude společnost-100. Existuje nějaký trik, jak tento problém rychle a možná vyřešit v aplikaci Excel?

Automatické zvyšování hodnoty buňky po každém tisku pomocí kódu VBA


šipka modrá pravá bublina Automatické zvyšování hodnoty buňky po každém tisku pomocí kódu VBA

Normálně neexistuje žádný přímý způsob, jak vyřešit tento úkol v aplikaci Excel, ale zde vytvořím kód VBA, který se s ním vypořádá.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Automatické zvyšování hodnoty buňky po každém tisku:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste zadali počet kopií, které chcete vytisknout aktuální list, viz screenshot:

přírůstek dokumentu při tisku 1

4, klikněte OK Tlačítko a váš aktuální list se nyní tiskne a současně jsou tištěné listy očíslovány Company-001, Company-002, Company-003 ... v buňce A1, jak potřebujete.

Poznámka: Ve výše uvedeném kódu buňka A1 budou vložena pořadová čísla, která jste si objednali, a původní hodnota buňky v A1 bude vymazáno. A "Společnost-00„Je pořadové číslo, můžete je podle potřeby změnit.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (51)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Tento kód je úžasný, je to přesně to, co potřebuji, ale zajímalo by mě, jestli existuje způsob, jak začít tisknout od čísla, které je zadáno v buňce "A1"? Pokud jsem například vytiskl 100 kopií, při příštím tisku budu muset tisknout od čísla 101 a od toho počítat. Zkoušel jsem několik úprav kódu, ale zdá se, že to bere pouze číslo zadané v buňce, tj. 101, přidá 1 a zbytek výtisků se zasekne s tímto jedním číslem, tj. 102... Vaše pomoc by byla velmi oceněna: -)
Tento komentář byl moderátorem webu minimalizován
Pokud jste ještě nenašli řešení, můžete upravit řádek 17 kódu takto: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Tím přidáte +1 k číslu, které máte v buňce A1.
Tento komentář byl moderátorem webu minimalizován
Neposílá se do mé tiskárny
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudras par exemple avoir A1= 153, je lance une impression de 10 copy. J'ai dis feuilles imprimée de 154 à 164 ET je vousrais que le le le la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si možné na pas à avoir aller dans basic. je voudras que la macro s'active directionement via l'option impression. Je to možné?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

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

je voudras si c'est possible par exemple A1=153 et faire une impression de 10 exemple. donc je récupéré 10 zobrazení číslovaných od 154 do 164 ET je zkontrolováno jako le 153 en A1 s'incrémente jusqu'à 164.

Je možné, že není možné použít základní nalijte dojem. je voudras pouvoir declancher directement la macro en utilisant l'option impression tout simplement.

Děkujeme vám za vaši pomoc
Tento komentář byl moderátorem webu minimalizován
Ahoj kaji,
Chcete-li vyřešit svůj problém, použijte níže uvedený kód:
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

Zkuste to prosím, doufám, že vám to pomůže, pokud máte nějaký jiný problém, napište sem.
Tento komentář byl moderátorem webu minimalizován
V příloze naleznete upravené kódy.

A tady je to v textu:
Sub IncrementPrint()
'aktualizovat od Extendoffice
Dim xEnd jako varianta
Dim xStart jako varianta
Dim xScreen jako Boolean
Dim I As Long
On Error Resume Next
LInput:
xStart = Application.InputBox("Zadejte prosím první číslo:", "Kutools pro Excel")
xEnd = Application.InputBox("Zadejte prosím poslední číslo:", "Kutools pro Excel")
If TypeName(xCount) = "Boolean" Pak Exit Sub
If (xStart = "") Nebo (Not IsNumeric(xStart)) Nebo (xStart < 1) Pak
MsgBox "Zadaná chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
Jiný
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Pro I = xZačátek do xKonec
ActiveSheet.Range("A1").Value = "Společnost-00" & I
ActiveSheet.PrintOut
další
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Potřebuji sériová čísla jako IA1-055242, IA1-055243, IA1-055244 .....
Tento komentář byl moderátorem webu minimalizován
Děkuji za zveřejnění, je to velmi užitečné. Moje otázka zní takto: Mám 2 různé čárové kódy, které je třeba zvýšit na jedné stránce, jak to mohu upravit?
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, že se na to ptám v samostatném příspěvku... Moje sériová čísla začínají nulou, ale když program spustím, nuly se vyloučí. Zkoušel jsem převést číselné pole na text, ale to nevyřešilo. Další nápady?
Tento komentář byl moderátorem webu minimalizován
R-Click Cell, Format, Custom, Kde je uvedeno 'General', nahraďte to tolika nulami, kolik bude vaše sériové číslo. Tím vynutíte počet nul potřebných před vaše sériové číslo. Pokud mám skupinu sériových čísel, která jsou 10místnými seriály, zadám 0000000000 do pole Typ, abych získal „0004563571“, který se zobrazí v poli sériového čísla.
Tento komentář byl moderátorem webu minimalizován
Děkuji Art. Zkoušel jsem to, ale čárový kód stále vylučoval úvodní nuly... i po provedení vlastního číselného formátu.
Tento komentář byl moderátorem webu minimalizován
moje sériové číslo začíná 227861 jak mohu tisknout
Tento komentář byl moderátorem webu minimalizován
vytištěno jako 30 kopií, ale teď nemohu tisknout, skript jsem spouštěl mnohokrát, ale nefunguje, nic nedělejte :(
Tento komentář byl moderátorem webu minimalizován
děkuji za výše uvedené, opravdu užitečné. je možné uložit a zapamatovat si poslední hodnotu
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Pietere,
Chcete-li uložit a zapamatovat si poslední vytištěnou hodnotu při příštím tisku, měli byste použít následující kód VBA:

Sub IncrementPrint()
Dim xCount jako varianta
Dim xScreen jako Boolean
Dim I As Long
Dim xM As Long
Dim xMNWS jako pracovní list
Dim xAWS jako pracovní list
On Error Resume Next
LInput:
xCount = Application.InputBox("Zadejte prosím počet kopií, které chcete vytisknout:", "Kutools pro Excel")
If TypeName(xCount) = "Boolean" Pak Exit Sub
If (xCount = "") Nebo (Not IsNumeric(xCount)) Nebo (xCount < 1) Pak
MsgBox "zadaná chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
Jiný
xScreen = Application.ScreenUpdating
Nastavte xAWS = ActiveSheet
On Error GoTo EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Pokud xMNWS není nic, pak
Nastavit xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Hodnota = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Jiný
xM = xMNWS.Range("A1").Hodnota
End If
Application.ScreenUpdating = False
Pro I = 1 To xCount
xM = xM + 1
xAWS.Range("A1").Value = "Společnost-00" & xM
xAWS.PrintOut
další
xMNWS.Range("A1").Hodnota = xM
xAWS.Range("A1").Vymazat obsah
Application.ScreenUpdating = xScreen
End If
End Sub

Pokud potřebujete resetovat vytištěné číslo na výchozí číslo, spusťte nejprve níže uvedený kód a poté spusťte výše uvedený kód pro tisk.

Sub IncrementPrint_Reinstall()
Dim xMNWS jako pracovní list
On Error GoTo EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
If Not xMNWS Is Nothing Then
Application.DisplayAlerts = False
xMNWS.Visible = xlSheetHidden
xMNWS.Delete
Application.DisplayAlerts = True
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, děkuji za tento kód. Mám dotaz. Použil jsem tento kód, ale série skákají jako 0071,0072,0073. stalo se to asi 3x mezi sériemi 1-100. Zavřel jsem tedy vba bez uložení znovu nainstalujte kód, ale vytiskl poslední uloženou sérii (0032). Moje otázka zní, jak mohu tisknout nepřetržitě bez přeskakování série a jak mohu znovu tisknout počínaje 101? opravdu ocení vaši odpověď. omlouvám se za to. Nejsem programátor, doufám, že mi rozumíte. Děkuji! 
Tento komentář byl moderátorem webu minimalizován
děkuji za toto zveřejnění, je to velmi užitečné. Moje otázka zní takto: Mám 2 různé čárové kódy, které je třeba zvýšit na jedné stránce, jak to mohu upravit?
Tento komentář byl moderátorem webu minimalizován
Ahoj Desmonde,
Pokud máte 2 místa na jedné stránce (např. 2 kupóny nebo 2 šablony / 2 vouchery atd.), můžete zkusit použít níže uvedený kód. (Za předpokladu, že váš 1. čárový kód a 2. čárový kód jsou v buňkách „A1“ a „A20“ stejné stránky, tento kód zvýší hodnoty jako Společnost-001 a Společnost-002 na první stránce a Společnost-003 a Společnost-004 na druhé stránce atd. Na řádcích 20, 21, 23, 24 a 28,29 kódu můžete upravit číslo buňky a název společnosti, jak chcete. 
Také vás požádá o zadání počátečního a koncového čísla (za tuto část kódu děkujeme géniovi). Takže například vaše startovní č. je 1 a končí č. 8, vytiskne 4 strany 1,2 na 1. stranu, 3,4 na 2. stranu, 5,6 na 3. stranu a nakonec 7,8 na 4. stranu. Doufám, že to pomůže vám nebo komukoli, kdo hledá tento typ potřeby/požadavku. 
Upravený kód:----------------------------------------------- ------------Sub IncrementPrint()
'aktualizovat od Extendoffice
Dim xEnd jako varianta
Dim xStart jako varianta
Dim xScreen jako Boolean
Dim I As Long
On Error Resume Next
LInput:
xStart = Application.InputBox("Zadejte prosím první číslo:", "Kutools pro Excel")
xEnd = Application.InputBox("Zadejte prosím poslední číslo:", "Kutools pro Excel")
If TypeName(xCount) = "Boolean" Pak Exit Sub
If (xStart = "") Nebo (Not IsNumeric(xStart)) Nebo (xStart < 1) Pak
MsgBox "Zadaná chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
Jiný
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Pro I = xZačátek do xKonec
Pokud I Mod 2 = 0 Pak
ActiveSheet.Range("A1").Value = "Společnost-00" & I + 1
ActiveSheet.Range("A20").Value = "Společnost-00" & I
Jiný
ActiveSheet.Range("A20").Value = "Společnost-00" & I + 1
ActiveSheet.Range("A1").Value = "Společnost-00" & I
ActiveSheet.PrintOut
End If
další
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

-------------------------------------------------- -------------------------------------------------- -----Díky, RNS
Tento komentář byl moderátorem webu minimalizován
Moje buňka je I3 a číslo je 2298, když zkouším (kód VBA: Automatické zvýšení hodnoty buňky po každém tisku:) dává mi to 22981, jak ji dostanu na 2298,2299,2300
Tento komentář byl moderátorem webu minimalizován
Ahoj, jennifer,
Chcete-li vyřešit svůj problém, použijte následující kód VBA:
Poznámka: Změňte text předčíslí a číslo na své vlastní.

Sub IncrementPrint_Num()
Dim xCount jako varianta
Dim xScreen jako Boolean
Dim I As Long
Dim xStr jako řetězec
Dim xInt jako celé číslo
On Error Resume Next
xStr = "Společnost-" 'text předpony
xInt = 2291 'číslo
LInput:
xCount = Application.InputBox("Zadejte prosím počet kopií, které chcete vytisknout:", "Kutools pro Excel")
If TypeName(xCount) = "Boolean" Pak Exit Sub
If (xCount = "") Nebo (Not IsNumeric(xCount)) Nebo (xCount < 1) Pak
MsgBox "zadaná chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
Jiný
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Pro I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
další
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, můžete mi s tím pomoci? Chci, aby xINT bylo více než 5 číslic. Pokaždé, když vložím číslo se 6 číslicemi, počet se vrátí na 1. Jak tomu mohu zabránit?
Tento komentář byl moderátorem webu minimalizován
Ahoj, velmi zajímavé, i když hledám jiné řešení, které jsem nemohl najít, a i když jsem se snažil kód upravit, zatím jsem toho nemohl dosáhnout. Podle vašeho příkladu bych potřeboval vytisknout stejnou stránku 100krát, například do stejného PDF a na každé stránce se číslo stránky zvýšilo. Jak jsem řekl, zkusil jsem metodu třídění, ale jak jsem pochopil, umožňuje vám tisknout společně, pokud potřebujete více kopií stejného výtisku. Předem díky Giuseppe
Tento komentář byl moderátorem webu minimalizován
Ahoj, tento kód funguje výborně, ale po hodnotě buňky 32767 se opět vrací na 1. Po této hodnotě se tiskne od čísla 1.
Tento komentář byl moderátorem webu minimalizován
děkuji moc, funguje mi to. A podařilo se mi udělat pár drobných změn, aby vyhovovaly mým potřebám. Opravdu si vážím vašeho sdílení.
Tento komentář byl moderátorem webu minimalizován
Ahoj Jennifer, zkus tohle
Sub IncrementPrint()
'aktualizovat od Extendoffice 20160530
Dim xCount jako varianta
Dim xScreen jako Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Zadejte prosím počet kopií, které chcete vytisknout:", "Kutools pro Excel")
If TypeName(xCount) = "Boolean" Pak Exit Sub
If (xCount = "") Nebo (Not IsNumeric(xCount)) Nebo (xCount < 1) Pak
MsgBox "zadaná chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
Jiný
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Pro I = 1 To xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
další
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Tisíceré díky
Tento komentář byl moderátorem webu minimalizován
Funguje dobře pro tisk přírůstkových #. Jak mohu tisknout každých 5., 10., když je potřeba?
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak vybrat, jaké hodnoty chci vytisknout? například jsem vytiskl sekvenci 1 až 30, ale potřebuji znovu vytisknout sekvenci 15 až 19.
Tento komentář byl moderátorem webu minimalizován
hej chci změnit počet buněk K11 po vytištění na 1-2-3-4-5-6 atd pls můžete u pomoci? a také mi řekněte, jak tuto funkci zavolat, pls help
Tento komentář byl moderátorem webu minimalizován
Přemýšlel jsem, jak udělat malou změnu, aby se vytisklo 1 z 10, 2 z 10, 3 z 10 atd.
Jinak tohle funguje skvěle. Dík.
Tento komentář byl moderátorem webu minimalizován
ahoj, jmenuji se suresh, mám data ve formátu Excel bez sériového čísla, které má rád například nákladní list. Potřebuji to vzít jako tisk na 100 stran a potřebuji vytisknout sériové číslo, co kdy potřebuji, ze 4 číslic, ale při tisku to musím dělat ručně. můžete u vysvětlit, koho tisknout, automaticky generovat kód sériového čísla během tisku
Tento komentář byl moderátorem webu minimalizován
Skvělý !! Nejsem programátor, ale podařilo se mi změnit referenční číslo buňky a jedinečné číslování, které jsem chtěl. Fungovalo to pro mě skvěle, Bůh vám žehnej!
Tento komentář byl moderátorem webu minimalizován
Je možné k tomuto kódu také přidat, aby se automaticky vytiskly 2 kopie?
Tento komentář byl moderátorem webu minimalizován
Myslím, že byste mohli změnit tuto část:ActiveSheet.Range("A1").Value = "Společnost-00" & já
ActiveSheet.PrintOut

na
ActiveSheet.Range("A1").Value = "Společnost-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

získat 2 kopie každého z nich.
Tento komentář byl moderátorem webu minimalizován
Zajímalo by mě, jestli můžete soubor po opětovném otevření rovnou vytisknout a stále následuje pořadové číslo?
To, co právě dělám, je pokaždé, když otevřu soubor, ALT + F11 a poté F5 a uvedu počet kopií. Poté vytiskne soubor se správným číslováním a poté jej znovu uloží. a když se znovu otevřu, musím udělat stejný krok.
Pokud existuje kód, kde jej můžete rovnou vytisknout pokaždé, když otevřete soubor, a bude stále následovat sekvenční číslování?
díky předem
Tento komentář byl moderátorem webu minimalizován
Zajímalo by mě, jestli můžete soubor po opětovném otevření rovnou vytisknout a stále následuje pořadové číslo?

To, co právě dělám, je pokaždé, když otevřu soubor, ALT + F11 a poté F5 a uvedu počet kopií. Poté vytiskne soubor se správným číslováním a poté jej znovu uloží. a když se znovu otevřu, musím udělat stejný krok.

Pokud existuje kód, kde jej můžete rovnou vytisknout pokaždé, když otevřete soubor, a bude stále následovat sekvenční číslování?

díky předem
Tento komentář byl moderátorem webu minimalizován
Velice vám děkujeme za sdílení výše uvedeného kódu. Je to velmi užitečné pro všechny. Můžeme přidat další kód pro zvýšení 8 čísel místo 1 po výtiscích? Čekáme na vaši odpověď. dík
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění