3 rychlé způsoby, jak vytisknout dokument Word bez přirážek

V nadcházejícím článku se zaměříme na představení 3 rychlých způsobů, jak vytisknout dokument aplikace Word bez značek.

Pokud váš dokument vyžaduje revizi, pak v dokumentu určitě získáte všechny druhy označení. Existují způsoby, jak je nezobrazovat na obrazovce. Co takhle si je nevytisknout?

Odpověď je kladná. A naše dnešní téma je věnováno tomu, abychom vám poskytli 3 rychlé a účinné metody k dosažení cíle.

Metoda 1: Změňte možnosti tisku

1. Začněte kliknutím na kartu „Soubor“ na pásu karet.
2. Dále klikněte na příkaz „Tisk“.
3. Poté přejděte do části „Nastavení“ a klikněte na první rozevírací pole.
4. V nabídce zrušte výběr možnosti „Tisk značek“. V náhledu na pravé straně nikde neuvidíte značky, což je přesný výsledek, který získáte.
5. Nakonec vyberte tiskárnu a nastavte jiné formátování a klikněte na „Tisk“.

Metoda 2: Použijte kódy VBA

V případě, že dáváte přednost automatickému zpracování, je vaší nejlepší volbou spuštění makra.

1. Nejprve stisknutím „Alt+ F11“ spusťte editor VBA ve Wordu.
2. Poté klikněte na „Normální“.
3. Dále klikněte na záložku „Vložit“ a v její nabídce zvolte „Modul“.
4. Poté dvojitým kliknutím otevřete modul a vložte následující kódy:

Sub PrintDocWithoutComments()
  Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
    Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
    PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

5. Nakonec klikněte na „Spustit“.

Řádek kódu „Copies:=1“ nastavuje tiskovou kopii na 1. Číslo kopie můžete podle potřeby změnit.

Metoda 3: Dávkový tisk více dokumentů bez označení

Pokud nyní potřebujete vytisknout velké množství souborů bez přirážek, následující makro vám ušetří čas.

1. Nejprve umístěte všechny cílové dokumenty do stejné složky.
2. Poté nainstalujte a spusťte makro podle kroků v metodě 2.
3. Nahraďte makro tímto:

Sub BatchPrintDocsWithoutComments()
  Dim objDoc As Document
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = InputBox("Enter folder path:")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
      wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
      Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
      PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Nyní se zobrazí vstupní pole. Zadejte cestu ke složce, kam chcete ukládat všechny cílové dokumenty, a klikněte na tlačítko „OK“. Nezapomeňte na poslední „\“ v řetězci cesty.

Vypořádejte se s korupcí dokumentů

Korupce dokumentů je často se opakujícím tématem. Jako následek, obnovení dokumentu vystoupil na pódium. Ve Wordu je vestavěná funkce, která vám pomůže obnovit poškozené soubory. Bohužel to někdy nefunguje dobře. K provedení práce tedy potřebujete vhodnější nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Obnova aplikace Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com