Tisk jen listů s červenými "oušky"

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

VOM
Level 1.5
Level 1.5
Příspěvky: 114
Registrován: srpen 10
Pohlaví: Muž
Stav:
Offline

Tisk jen listů s červenými "oušky"

Příspěvekod VOM » 01 bře 2018 15:55

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

Reklama
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod Grimm » 01 bře 2018 21:38

Kód: Vybrat vše

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not ThisWorkbook.ActiveSheet.Tab.Color = vbRed Then
    Cancel = True
    MsgBox "Tisknout lze jen listy s červeným ouškem", vbExclamation, "Omezení tisku !!!"
End If
End Sub

Kód umístit do modulu ThisWorkbook

VOM
Level 1.5
Level 1.5
Příspěvky: 114
Registrován: srpen 10
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod VOM » 06 bře 2018 11:24

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

Milan

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod Grimm » 06 bře 2018 21:01

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

Kód: Vybrat vše

Sub Tisk_cervenych()
Dim Cervene() As String
Dim List As Worksheet
Dim i As Integer

For Each List In ThisWorkbook.Worksheets
    If List.Tab.Color = vbRed Then
        ReDim Preserve Cervene(i)
         Cervene(i) = List.Name
         i = i + 1
    End If
Next List

Sheets(Cervene).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub


#2

Kód: Vybrat vše

Sub Tisk_cervenych_i_s_grafy()
Dim Cervene() As String
Dim i As Integer, x As Integer

For x = 1 To ThisWorkbook.Sheets.Count
    If Sheets(x).Tab.Color = vbRed Then
        ReDim Preserve Cervene(i)
         Cervene(i) = Sheets(x).Name
         i = i + 1
    End If
Next x

Sheets(Cervene).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub


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

VOM
Level 1.5
Level 1.5
Příspěvky: 114
Registrován: srpen 10
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod VOM » 07 bře 2018 07:31

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

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod Grimm » 07 bře 2018 20:19

:crazy: 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 :evil:

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.

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod elninoslov » 08 bře 2018 15:06

Tak si urobte doplnok. Rozbalte ho sem:

Kód: Vybrat vše

c:\Users\meno užívateľa\AppData\Roaming\Microsoft\AddIns\

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é.
Přílohy
ExportRedListToPDF.zip
(27.6 KiB) Staženo 33 x

VOM
Level 1.5
Level 1.5
Příspěvky: 114
Registrován: srpen 10
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod VOM » 09 bře 2018 07:20

Děkuji. Perfektní!
Milan

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod Grimm » 11 bře 2018 14:52

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?

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod elninoslov » 11 bře 2018 23:25

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.
Přílohy
ExportRedListToPDF.zip
(34.25 KiB) Staženo 21 x

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod Grimm » 12 bře 2018 21:05

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

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Tisk jen listů s červenými "oušky"

Příspěvekod elninoslov » 13 bře 2018 08:58

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.
Přílohy
ExportRedListToPDF.zip
(33.46 KiB) Staženo 27 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Tisk ELD souboru
    od Jandak » 30 dub 2023 09:53 » v Problémy s hardwarem
    4
    1101
    od Grander Zobrazit poslední příspěvek
    09 čer 2023 21:31
  • Nekvalitní tisk Příloha(y)
    od Dolpi » 21 led 2024 21:09 » v Problémy s hardwarem
    3
    1000
    od Dolpi Zobrazit poslední příspěvek
    25 led 2024 18:23
  • tisk samolepicich etiket
    od jirino92 » 02 led 2024 10:08 » v Vše ostatní (hw)
    4
    787
    od Martab Zobrazit poslední příspěvek
    02 led 2024 13:11
  • Scan a tisk u dvou tiskáren
    od amirinda » 14 říj 2023 06:49 » v Vše ostatní (sw)
    12
    1745
    od amirinda Zobrazit poslední příspěvek
    14 říj 2023 16:39
  • Jakou tiskárnu pro domácí občasný tisk
    od Miranda6 » 23 úno 2024 12:43 » v Problémy s hardwarem
    15
    1128
    od richchie Zobrazit poslední příspěvek
    25 úno 2024 15:26

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 10 hostů