< návrat zpět

MS Excel

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

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: rar51367_kniha-jizd_pocet-kopii.rar (27kB, staženo 20x)
Zaslat odpověď >
Shiva(21.10.2021 9:30)#051371
avatar
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
avatar
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é 1citovat
Stalker(21.10.2021 13:36)#051373
Stalker
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
avatar
@Stalker děkuji. Akorát nevím, proč mi .PrintPreview vyhodí chybu. 7
Díkycitovat
Stalker(22.10.2021 20:11)#051375
Stalker
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje