• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Hromadna zmena nastaveni tisku

Zaslal/a Rozmy 25.6.2013 10:14

Ahoj.
V minulosti mi tu někdo z vás pomohl vyřešit hromadné nastavování formátu stránky u excelů v jedné složce (v příloze).
Nyní bych se chtěl zeptat, zda by bylo možné tuhle chytrou věcičku naučit měnit také další atributy tisku, jako je např. "Přispůsobit list na jednu stránku" atd. .
Dost často pracuji s větším množstvím souborů, které musím do teď vždy po jednom otevírat a nastavovat.
Díky moc za ochotu...

Příloha: 14103_hromadna-zmena-tisku.zip (21kB, staženo 14x)

Zaslat odpověď >

---

marjankaj(25.6.2013 10:28)#014104

Daj si zaznamenať makro, urob si potrebné zmeny. A pred tlačou si to makro spusti.citovat

Palooo(25.6.2013 11:04)#014105

hej staci urobit presnu kopiu toho isteho makra co tam mas a len prepises toto:

For i = 6 To Range("b65000").End(xlUp).Row
Workbooks.Open (Cesta & Cells(i, 2)) 'otevreni souboru
'''START''''' toto prepisat podla seba
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.PaperSize = xlPaperA4
''''END'''' toto prepisat podla seba
Workbooks(Workbooks.Count).Close savechanges:=True 'zavreni souboru
Next i


Tam doplnis to nahrate makro v style:
Workbooks(Workbooks.Count).ActiveSheet.MAKROcitovat

Rozmy(25.6.2013 11:05)#014106

to marj...: ano...to je řešení... a pokaždé, když budu potřebovat upravovat tisk, tak postupně pootevírat všech cca 50 sešitů a tam vždy makro spustit.
Neměl by někdo nějaké elegantnější řešení?
Ten soubor z přílohy prvního příspěvku od Pokiho je totiž úplně výborný. Klidně bych si ho lehce poupravil pro moje potřeby, jen nevím, co napsat místo "PaperSize" atd...citovat

Palooo(25.6.2013 11:09)#014107

urobil by som to ale neviem co je upravit na "jednu stranku" :))) ... kedze ked si dam Tlacit tak mam moznosti len Area, Orientate, Typ papieru, Oramovanie a Scalingcitovat

marjankaj(25.6.2013 11:27)#014108

Makro si môžeš uložiť do "osobného zošitu makier" a budeš ho mať kedykoľvek k dispozícii, keď si otvoríš excel.

Elegantnejšie riešenie na úpravu ďalších atribútov tlače ti tu ťažko niekto urobí.

No podľa tvojej prílohy si makro spustíš iba raz a to si samo otvorí tie tvoje zošity a aj vytlačí.citovat

Palooo(25.6.2013 11:28)#014109

tu mas ukazku ako by to malo potom vypadat ked to odtial vyrezes

Příloha: 14109_hromadna-zmena-tisku.zip (19kB, staženo 16x)

citovat

Rozmy(25.6.2013 11:42)#014110

Palooo:
Děkuji mnohokrát, tohle je přesně to, co nyní potřebuji.
Tyhle řádky mi chyběly.
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.Zoom = False
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.FitToPagesWide = 1
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.FitToPagesTall = 1
S tímhle už si poradím... škoda, že tu nikde nevidím tlačítko THX ;)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse