Dobrý den.
Snažím se v Excelu 2010 vytvořit tlačítka, která mne vytisknou do pdf jeden, nebo dva listy z excelu. Jedno tlačítko tiskne jeden list, druhé dva listy. Samotná funkce tisku funguje dobře. Vytiskne, uloží pdf pod (téměř) správným jménem a otevře v prohlížeči. Ale co mne dál zlobí je formátování polohy a velikosti tlačítka. Po kliknutí na tlačítko se provede makro a všechna tlačítka na daném listu se zmenší a posunou. Za různých okolností jinak. Zatím jsem zjistil následující způsoby:
1) Pokud vložím jako ActiveX, pak se obě tlačítka chovají stejně. Po kliknutí obě tlačítka na listu zmenší a přesunou. Vždy stejným směrem k sloupci A.
2) Pokud tlačítka vložím jako Ovládací prvek formuláře, po vložení pouze přiřadím makro a spustím bez další editace, proběhne vše v pořádku. Pokud ale tlačítko chci "Přichytit k mřížce" a umístím ho k ní, kliknu na druhé tlačítko, obě tlačítka se zmenší, ale zachovají polohu. Pokud kliknu na první tlačítko, obě tlačítka se zvětší na původní velikost a zachovají polohu.
Public Sub Tisk_30_Click()
Application.ScreenUpdating = False
cestaadresare = ThisWorkbook.Path
a = ThisWorkbook.Name
soubor = cestaadresare & "\" & a & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
soubor, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Public Sub Tisk_31_Click()
Application.ScreenUpdating = False
cestaadresare = ThisWorkbook.Path
a = ThisWorkbook.Name
soubor = cestaadresare & "\" & a & ".pdf"
Sheets(Array(1, 3)).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
soubor, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets(3).Select
End Sub
Napadá vás, proč makro ovlivňuje velikost a polohu tlačítka? A proč každé makro jinak? Případně, jak tomu zabránit? Případně, jak zlepšit makro? Od něj chci, aby mne vytisklo jeden, nebo dva listy, uložilo do pdf (ano vím, že aktuálně soubor ukládá stylem xxx.xlsm.pdf, umím to i opravit. Ale asi bych to opravil přes nějakou pomocnou buňku, kde bych si nechal zobrazit název souboru a vzorcem na úpravu textu v buňce bych z názvu odstranil příponu a tuto hodnotu načetl do makra. Pokud vás napadá elegantnější způsob, budu rád za rady), a po uložení otevřelo v pdf prohlížeči.
Děkuji za jakékoli připomínky a rady
