寵物集市-寵物集市華東、華南、華北排行榜一覽表
330
2025-03-31
如何在沒有頁眉和頁腳的情況下打印Word文檔？
如何在沒有頁眉和頁腳的情況下打印Word文檔？
如果您的Word文檔中有頁眉和頁腳，則在打印此文檔時，默認情況下也會打印頁眉和頁腳。 但是，有時不需要打印頁眉和頁腳。 在這種情況下，本文中的方法可能會對您有所幫助。
通過使用VBA代碼打印沒有頁眉和頁腳的Word文檔
通過使用VBA代碼打印沒有頁眉和頁腳的Word文檔要打印不帶頁眉和頁腳的Word文件，請按照以下VBA代碼進行操作：
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 然后，單擊 插頁 > 模塊，將以下代碼復制并粘貼到打開的空白模塊中：
VBA代碼：不帶頁眉和頁腳的打印Word文檔：
Sub PrintDocWithoutHeaderFooter()
Call SetHeaderAndFooter(True)
Options.PrintHiddenText = False
Dialogs(wdDialogFilePrint).Show
Call SetHeaderAndFooter(False)
End Sub
Sub SetHeaderAndFooter(xBool As Boolean)
Dim xSel As Selection
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
Next s
End Sub
3。 插入以上代碼后，請按 F5 鍵運行它，然后會彈出一個“打印”對話框，然后應根據需要配置打印設置，請參見屏幕截圖：
4。 然后，單擊 OK要開始打印，將立即打印不帶頁眉和頁腳的文檔。
最佳辦公生產力工具
Kutools for Word - 通過 Over 提升您的文字體驗 100 顯著特點！深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.
?? 文檔掌握: 分頁 / 合并文件 / 以各種格式導出選擇（PDF/TXT/DOC/XLSX） / 批量轉換為PDF / 將頁面導出為圖像 / 一次打印多個文件 ...
? 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字 ...
?? 輕松清潔: 掃開 多余的空間 / 分節符/ 所有標題 / 文本框 / 超鏈接 / 如需更多刪除工具，請前往我們的刪除組
? 創意插入: 插頁 千位分隔符 / 復選框 / 單選按鈕 / 二維碼 / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表標題 / 多張圖片 / 在我們的插入組中發現更多信息
?? 精準選擇: 精確定位特定頁面 / 表 / 形狀 / 標題段落 / 使用我們的選擇組輕松導航
? 星級增強: 快速導航至任何位置 / 自動插入重復文本 / 在文檔窗口之間無縫切換 / 11 轉換工具 ...
使用 Kutools 轉換您的 Word 任務。 ?? 立即下載并試用 30 天 ??。
了解更多 免費下載 購買
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
