PC-HELP.CZ

Pěkně zdravím
Mohl byste prosím někdo poskytnout makro, které zařídí tisk jen listů s např. červenými "oušky".
Děkuji
Milan

Kód umístit do modulu ThisWorkbook

Dobrý den
Děkuji. Vypadá nadějně, ale já bych potřeboval, aby se červené listy vybraly a následně vytiskly.

Milan

já bych potřeboval, aby se červené listy vybraly a následně vytiskly.

Promiň, ale tohle v původním dotazu nebylo. Chtěl si makro, které zařídí tisk listů jen s červeným ouškem. Vůbec si neuvedl jak se bude tisk realizovat.
Příště by to chtělo lepší popis.

Dvě varianty, kód je umístěn v modulu (např. Module1)

#1


#2


První kód ignoruje listy typu graf, druhý nikoliv.

Dobrý den
Já se fakt stydím, ale zase jsem nenapsal přesně co chci.
Na papír prakticky nikdy netisknu. Ukládám do pdf a to posílám emailem. Na nečervených listech jsou interní informace a proto je neposílám.

Nyní mám v osobním sešitu maker toto:

Sub ulozit_PDF()
Dim soubor As String
Dim a As String
Dim b As String
Dim Adresa As String

a = ActiveWorkbook.Name
b = Left(a, InStr(1, a, ".", vbTextCompare) - 1)
Adresa = ActiveWorkbook.path & "\" & b & ".pdf"

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Adresa, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

Potřeboval bych, aby se do pdf uložili jen ty "červené".
Pozn. Makro nemůže být v tisknutém sešitu, to by mi čas neušetřilo.

Věřím, že budeš mít se mnou ještě trpělivost.

Díky
MIlan

Vážně nevím, co si o tom mám myslet.
Co má sakra tisk společného s ukládáním jednotlivých listů sešitu do PDF?! To že makro má být uloženo v osobním sešitu maker si taky uvedl jen tak mimochodem.
Vážně mě taková zadání, která jsou polovičatá a dávkovaná po kapkách přestávají bavit! To je tak těžké srozumitelně a hlavně uceleně popsat svůj "problém"? Proč si ten svůj kód rovnou nevložil do původní otázky? Z toho by alespoň bylo poznat, že Tisk neznamená Tisk

Jakým způsobem se mají generovat názvy jednotlivých souborů PDF?
Soubory se mají ukládat do složky, kde je umístěn excel soubor (tak jak je to nyní)? Nebo se mají generovat složky pro jednotlivé soubory PDF?

Zatím to nechám být, dokud si pořádně neujasníš jak to celé má fungovat.

Tak si urobte doplnok. Rozbalte ho sem:

Zatvorte Excel, otvorte ho - Súbor - Možnosti - Doplnky - označte Exportredlisttopdf - Spustiť - zaškrtnite ho - OK
Pribudla v Exceli záložka Export PDF, kde sú 2 tlačítka, použitie je jasné.

Děkuji. Perfektní!
Milan

Jen upozorním, že doplněk nefunguje ve verzi 2007. Lépe řečeno se do pásu karet nevloží tlačítka pro spuštění jednotlivých procedur. Ve verzi 2010 je vše v pořádku.

To elninoslov:
Prozradíš jakou formou si přidal tlačítka do pásu karet?
Ruční editací souborů xml nebo na to máš nějaký šikovný software?

E2007 nemám ako testovať, a robiť si kvôli tomu ďalšiu virtuálku, či rozbíjať stávajúce virtuálky sa mi nechce.

Tlačítka pridávam do doplnkov cez "Custom UI Editor For Microsoft Office". V tomto nástroji by sa mala dať urobiť aj úprava na E2007 pridaním štýlu "customUI.xml" k doterajšiemu "customUI14.xml", s ikonami a s (asi) rovnakým kódom len sa zmení v prvom riadku "2009/07" za "2006/01". Aj DeBruin to spomína na svojich stránkach.

Objavil som ešte malý problém, keď nieje nový súbor ešte uložený, teda nemá žiadnu cestu, a stlačí sa tlačítko, makro havaruje. Teraz som to chcel rýchlo odstrániť, ale žiaľ msoFileDialogFolderPicker mi riadne blbne. Otvára sa niekoľkokrát po sebe, aj pri nastavovaní Title a pod. ešte pred Show. Keďže som túto záhadu ešte nevyriešil, nedám teda zatiaľ upravenú verziu. Uvidíme inokedy podľa času.

PS: A ešte som omylom ikonu nazval namiesto SinglePDF - SimplePDF :), ale na to kašľať.

EDIT:
No ešte som pred spaním niečo stihol, tak to niekto skúste na E2007.

Ahoj, díky za tip na soft. Mám si s čím hrát.
Zkoušel sem soubor na verzi 2007. Pás karet s tlačítky se již vytvořil, bohužel ani jedno tlačítko není funkční - po kliknutí se nic nestane.

Nemá cenu to řešit, tazatelův "problém" je vyřešen a původní doplněk mu funguje.

Koukám, že se Microsoftu opravdu daří. Místo toho aby aby si člověk vytvořil univerzální doplněk bude si muset pořídit veškeré verze excelu a testovat.

Pěkný večer

Tak som si teda nahodil novú virtuálku s W7x64 a s Off2007 + SP3 + SaveAsPDFandXML doplnkom (lebo Off2007 nevie ukladať defaultne do PDF). Našiel som tam ešte inú vec, ktorú som teraz upravil, ale mne to tlačidlá aj procedúry k nim priradené rozoznalo aj v predchádzajúcej podobe. Rovnako Off2007 aj Off2016. Nahodte si túto upravenú verziu a skúste. Nezabudnite, že pri Off2007 potrebujete oficiálny SaveAsPDFandXML.

PS: Ešte som rozmýšľal, či by sa nedal jednoducho urobiť výber z farebnej ponuky, ale nedal. Musí sa na to naprogramovať vlastný ColorPicker (príp. nájsť nejaký na nete), ktorý bude reflektovať farebnú schému, lebo každý Excelácky ColorPicker čo som skúsil použiť (písmo, pozadie bunky, výplň objektu, farba uška listu,...) vyžaduje priamo hneď zmeniť práve označený objekt. To je pre toto nežiadúce. Toľko práce ale nie som ochotný do toho teraz investovať, takže je tam iba možnosť zmeniť si konštantu farby v makre.