Daj si zaznamenať makro, urob si potrebné zmeny. A pred tlačou si to makro spusti.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hromadna zmena nastaveni tisku
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)
14103_hromadna-zmena-tisku.zip (21kB, staženo 14x)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
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
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
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
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
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
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
tu mas ukazku ako by to malo potom vypadat ked to odtial vyrezes
Příloha: 14109_hromadna-zmena-tisku.zip (19kB, staženo 16x)
citovat14109_hromadna-zmena-tisku.zip (19kB, staženo 16x)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
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)
\n
\nMenu
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.
RSS nejnovější články