• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Tisk listů s rozdílným počtem kopií

Zaslal/a Dita 20.10.2021 8:56

Dobrý den
V příloze mám zapsaný kód pro tisk listů "Titulní strana", "1. strana" a "Kniha jízd". Prosím o úpravu, aby se "Titulní strana" a "1. strana" vytiskla 1x a "Kniha jízd" vytiskla 5x.
Děkuji

Příloha: 51367_kniha-jizd_pocet-kopii.rar (27kB, staženo 19x)

Zaslat odpověď >

---

Shiva(21.10.2021 9:30)#051371

Zdravim Vás, tak tu knihu jízd jen nakopírujte 5x pod sebe a je to :-)citovat

Dita(21.10.2021 11:18)#051372

Děkuji. To je jedna z možností. 5x jsem dal jako příklad. Bude jich třeba 40 a to už se mi zdá zbytečné citovat

Stalker(21.10.2021 13:36)#051373

Co tohle:
Sub Tisk()
Dim TiskovaSestava(1 To 2, 1 To 2)
Dim i As Integer

TiskovaSestava(1, 1) = Array("Titulní strana", "1. strana")
TiskovaSestava(1, 2) = 1
TiskovaSestava(2, 1) = "Kniha jízd"
TiskovaSestava(2, 2) = 5

For i = LBound(TiskovaSestava, 1) To UBound(TiskovaSestava, 1)
Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2)
Next i

Erase TiskovaSestava
End Subcitovat

Dita(22.10.2021 15:46)#051374

@Stalker děkuji. Akorát nevím, proč mi .PrintPreview vyhodí chybu.
Díkycitovat

Stalker(22.10.2021 20:11)#051375

Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2)

Nahraď tímto:

Sheets(TiskovaSestava(i, 1)).PrintOut , Copies:=TiskovaSestava(i, 2), Preview:=Truecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse