MS Excel

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

Zaslal/a Merlin99 8.1.2018 9:51

Zdarvim, 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ěď >

Merlin99(8.1.2018 10:11)#038932

Myslim bez toho abych musel na kazdem liste definovat oblast tisku. Chtel bych to nastavit nekde jednou pro všechny sesity...citovat

Pavlus(8.1.2018 13:08)#038933

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

Merlin99(8.1.2018 20:11)#038943

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

citovat

Pavlus(8.1.2018 22:17)#038947

Jasně, to není problém.
P.

Např.:
objekt_list.PageSetup.PrintArea = Sheets("List1").Range("A1").Valuecitovat

Merlin99(9.1.2018 7:55)#038950

Pavluvs: Funguje skvele SUPER práce DÍKY moc

citovat

Uživatelské menu

Nejste přihlášen(a)

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.