< návrat zpět

MS Excel


Téma: Tisk dany ch oblasti z vice listu najednou rss

Zaslal/a 8.1.2018 9:51

Merlin99Zdarvim, mam sesit se 3 listama a chtěl bych po mkliknuti na tisk aby se tiskly oblasti tisku A:10 - H:26 na vse dany listech najedou každý list na jednu A4. Jde to nejak najedou abych nemusel z každýho listu tisknout zvlast. Diky za rady..

Zaslat odpověď >

#038932
Merlin99
Myslim bez toho abych musel na kazdem liste definovat oblast tisku. Chtel bych to nastavit nekde jednou pro všechny sesity...citovat
#038933
avatar
Hromadné nastavení oblastí tisku by šlo přes makro:Sub Nastavit_hromadne_oblasti_tisku()
Dim objekt_list As Worksheet

For Each objekt_list In ThisWorkbook.Worksheets
objekt_list.PageSetup.PrintArea = "$A$10:$H$26"
Next objekt_list

End Sub

Tisk celého sešitu jde pak zvolit v nastavení tisku (Soubor / Tisk + Nastavení / Vytisknout celý sešit).
P.citovat
#038943
Merlin99
Pavlus: To je presne ono TOP díky moc. Chci se zeptat slo by nejak "$A$10:$H$26" dostat na List1 do bunky A1: kde bych si to mohl menit? To by byla uz dokonalost. Díky za nápad uz takhle pomohlo 9citovat
#038947
avatar
Jasně, to není problém.
P.

Např.:
objekt_list.PageSetup.PrintArea = Sheets("List1").Range("A1").Valuecitovat
#038950
Merlin99
Pavluvs: Funguje skvele SUPER práce DÍKY moc 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21