xyfvdf dsfdsg (Klon) (Klon)

Bežne by sme riešili situáciu s tlačou všetkých otvorených dokumentov vo Worde tak, že by sme postupne stláčali napr. klávesovú skratku CTRL+P a po prvom nastavené tlače pokračovali stlačením klávesy Enter. Ak chceme nejaký čas ušetriť, môžeme použiť jednoduché makro. Tak poďme na to.

Postup

Najskôr vytvoríme nový dokument v MS Word a uložím ho ako Dokument programu Word s povolenými makrami.

Stlačte Alt + F11 na otvorenie editora VBA prípadne, ak máte zobrazenú kartu Vývojár, tak zvoľte Vývojár → Visual Basic.

V editore VBA kliknite na Insert > Module na vytvorenie nového modulu.

Kód

Skopírujte a vložte nasledovný kód do modulu.

Sub PrintAllOpenDocumentsToPDF()
    Dim doc As Document
    Dim printerName As String
    
    ' Nastavte názov tlačiarne
    printerName = "Microsoft Print to PDF"
    
    ' Prejdite cez všetky otvorené dokumenty
    For Each doc In Application.Documents
        ' Nastavte aktívnu tlačiareň
        Application.ActivePrinter = printerName
        
        ' Vytlačte dokument
        doc.PrintOut
    Next doc
End Sub

Všimnite si, že kód je veľmi jednoduchý, vystupujú v ňom 2 premenné – doc a printerName, pričom si môžete priamo v kóde prepísať názov tlačiarne na tú, ktorú máte predvolenú.

Následne len stlačíme CTRL+S pre uloženie a zatvoríme editor VBA.

Makro spustíme stlačením Alt + F8, vyberieme PrintAllOpenDocumentsToPDF a klikneme na Spustiť. Toto makro následne prejde cez všetky otvorené dokumenty a vytlačí ich na tlačiarni “Microsoft Print to PDF”. Samozrejme je potrebné tlač potvrdzovať, keďže v prípade tlače do PDF je potrebné zadávať názvy PDF dokumentov. Ak budete mať navolenú bežnú tlačiareň, všetky dokumenty sa vytlačia bez ďalšieho potvrdzovania.

A tak ako mám vo zvyku, dávam k dispozícii aj pripravený súbor. Ak budete potrebovať tlačiť viacero dokumentov súčasne, stačí tento súbor otvoriť a spustiť Makro. Nezabudnite si najskôr cez Vývojár → Makrá → (klik na Makro PrintAllDocumentsToPDF) → Upraviť zmeniť názov predvolenej tlačiarne.

A tu je sľúbený súbor:

makro-tlac-otvorene-dokumenty.docm

xyfvdf dsfdsg (Klon)

Bežne by sme riešili situáciu s tlačou všetkých otvorených dokumentov vo Worde tak, že by sme postupne stláčali napr. klávesovú skratku CTRL+P a po prvom nastavené tlače pokračovali stlačením klávesy Enter. Ak chceme nejaký čas ušetriť, môžeme použiť jednoduché makro. Tak poďme na to.

Postup

Najskôr vytvoríme nový dokument v MS Word a uložím ho ako Dokument programu Word s povolenými makrami.

Stlačte Alt + F11 na otvorenie editora VBA prípadne, ak máte zobrazenú kartu Vývojár, tak zvoľte Vývojár → Visual Basic.

V editore VBA kliknite na Insert > Module na vytvorenie nového modulu.

Kód

Skopírujte a vložte nasledovný kód do modulu.

Sub PrintAllOpenDocumentsToPDF()
    Dim doc As Document
    Dim printerName As String
    
    ' Nastavte názov tlačiarne
    printerName = "Microsoft Print to PDF"
    
    ' Prejdite cez všetky otvorené dokumenty
    For Each doc In Application.Documents
        ' Nastavte aktívnu tlačiareň
        Application.ActivePrinter = printerName
        
        ' Vytlačte dokument
        doc.PrintOut
    Next doc
End Sub

Všimnite si, že kód je veľmi jednoduchý, vystupujú v ňom 2 premenné – doc a printerName, pričom si môžete priamo v kóde prepísať názov tlačiarne na tú, ktorú máte predvolenú.

Následne len stlačíme CTRL+S pre uloženie a zatvoríme editor VBA.

Makro spustíme stlačením Alt + F8, vyberieme PrintAllOpenDocumentsToPDF a klikneme na Spustiť. Toto makro následne prejde cez všetky otvorené dokumenty a vytlačí ich na tlačiarni “Microsoft Print to PDF”. Samozrejme je potrebné tlač potvrdzovať, keďže v prípade tlače do PDF je potrebné zadávať názvy PDF dokumentov. Ak budete mať navolenú bežnú tlačiareň, všetky dokumenty sa vytlačia bez ďalšieho potvrdzovania.

A tak ako mám vo zvyku, dávam k dispozícii aj pripravený súbor. Ak budete potrebovať tlačiť viacero dokumentov súčasne, stačí tento súbor otvoriť a spustiť Makro. Nezabudnite si najskôr cez Vývojár → Makrá → (klik na Makro PrintAllDocumentsToPDF) → Upraviť zmeniť názov predvolenej tlačiarne.

A tu je sľúbený súbor:

makro-tlac-otvorene-dokumenty.docm

xyfvdf dsfdsg

Bežne by sme riešili situáciu s tlačou všetkých otvorených dokumentov vo Worde tak, že by sme postupne stláčali napr. klávesovú skratku CTRL+P a po prvom nastavené tlače pokračovali stlačením klávesy Enter. Ak chceme nejaký čas ušetriť, môžeme použiť jednoduché makro. Tak poďme na to.

Postup

Najskôr vytvoríme nový dokument v MS Word a uložím ho ako Dokument programu Word s povolenými makrami.

Stlačte Alt + F11 na otvorenie editora VBA prípadne, ak máte zobrazenú kartu Vývojár, tak zvoľte Vývojár → Visual Basic.

V editore VBA kliknite na Insert > Module na vytvorenie nového modulu.

Kód

Skopírujte a vložte nasledovný kód do modulu.

Sub PrintAllOpenDocumentsToPDF()
    Dim doc As Document
    Dim printerName As String
    
    ' Nastavte názov tlačiarne
    printerName = "Microsoft Print to PDF"
    
    ' Prejdite cez všetky otvorené dokumenty
    For Each doc In Application.Documents
        ' Nastavte aktívnu tlačiareň
        Application.ActivePrinter = printerName
        
        ' Vytlačte dokument
        doc.PrintOut
    Next doc
End Sub

Všimnite si, že kód je veľmi jednoduchý, vystupujú v ňom 2 premenné – doc a printerName, pričom si môžete priamo v kóde prepísať názov tlačiarne na tú, ktorú máte predvolenú.

Následne len stlačíme CTRL+S pre uloženie a zatvoríme editor VBA.

Makro spustíme stlačením Alt + F8, vyberieme PrintAllOpenDocumentsToPDF a klikneme na Spustiť. Toto makro následne prejde cez všetky otvorené dokumenty a vytlačí ich na tlačiarni “Microsoft Print to PDF”. Samozrejme je potrebné tlač potvrdzovať, keďže v prípade tlače do PDF je potrebné zadávať názvy PDF dokumentov. Ak budete mať navolenú bežnú tlačiareň, všetky dokumenty sa vytlačia bez ďalšieho potvrdzovania.

A tak ako mám vo zvyku, dávam k dispozícii aj pripravený súbor. Ak budete potrebovať tlačiť viacero dokumentov súčasne, stačí tento súbor otvoriť a spustiť Makro. Nezabudnite si najskôr cez Vývojár → Makrá → (klik na Makro PrintAllDocumentsToPDF) → Upraviť zmeniť názov predvolenej tlačiarne.

A tu je sľúbený súbor:

makro-tlac-otvorene-dokumenty.docm

Ahoj svet!

Vitajte vo WordPress. Toto je váš prvý článok. Upravte ho alebo zmažte a začnite písať!