< 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 III

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

Aktivní diskuse

VBA macro kopírovanie oblasti

elninoslov • 21.8. 0:23

VBA macro kopírovanie oblasti

marjankaj • 20.8. 22:23

VBA macro kopírovanie oblasti

Anonym • 20.8. 18:45

Denní plán směn - poslední úpravy

pk-wall • 20.8. 9:35

Denní plán směn - poslední úpravy

elninoslov • 20.8. 9:30

Denní plán směn - poslední úpravy

pk-wall • 20.8. 7:56

Počet incidentů v roce

elninoslov • 19.8. 14:06