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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32