Excel VBA 零門(mén)檻：8 個(gè)打印設(shè)置代碼，輸出文檔快人一步！

大家好！我是阿財(cái)！

今天阿財(cái)要帶大家走進(jìn) Excel VBA 的奇妙世界，讓你在打印 Excel 文檔時(shí)如有神助，輕松快人一步！VBA 就像是 Excel 的魔法棒，能幫我們自動(dòng)化許多操作，特別是打印設(shè)置方面，簡(jiǎn)直不要太方便！

打印設(shè)置代碼 1：設(shè)置打印范圍

這段代碼做了什么呢？它指定了工作表“Sheet1”的打印區(qū)域?yàn)?A1 到 C10 單元格。這樣一來(lái)，當(dāng)你打印該工作表時(shí)，就只會(huì)打印出這個(gè)指定范圍內(nèi)的數(shù)據(jù)，避免了不必要的內(nèi)容被打印，是不是很實(shí)用呢？

打印設(shè)置代碼 2：打印多份文檔

Sub PrintCopies()

    With ActiveSheet.PageSetup

      .PrintCopies = 3

    End With

End Sub

看，這里的代碼可以設(shè)置打印份數(shù)哦。在這個(gè)例子中，我們將當(dāng)前活動(dòng)工作表的打印份數(shù)設(shè)置為 3 份。想象一下，如果你需要打印多份相同的報(bào)表，不用手動(dòng)在打印對(duì)話框里一次次設(shè)置，一鍵運(yùn)行代碼就搞定啦！

打印設(shè)置代碼 3：橫向打印

有時(shí)候，我們的數(shù)據(jù)表格比較寬，縱向打印可能會(huì)導(dǎo)致內(nèi)容被截?cái)嗷蛘咦煮w太小難以看清。這個(gè)代碼就可以將“Sheet2”工作表設(shè)置為橫向打印模式，讓你的寬表格能完整美觀地呈現(xiàn)在紙張上。

打印設(shè)置代碼 4：設(shè)置頁(yè)邊距

Sub SetMargins()

    With Sheets('Sheet3').PageSetup

      .LeftMargin = Application.InchesToPoints(0.5)

      .RightMargin = Application.InchesToPoints(0.5)

      .TopMargin = Application.InchesToPoints(0.75)

      .BottomMargin = Application.InchesToPoints(0.75)

    End With

End Sub

通過(guò)這段代碼，我們可以精確地設(shè)置“Sheet3”工作表的頁(yè)邊距。這里使用了Application.InchesToPoints函數(shù)將英寸單位轉(zhuǎn)換為 Excel 頁(yè)面設(shè)置所需要的點(diǎn)數(shù)單位，讓你可以按照自己的需求調(diào)整頁(yè)面布局，使打印效果更加專業(yè)。

打印設(shè)置代碼 5：打印標(biāo)題行

當(dāng)我們打印一個(gè)較長(zhǎng)的表格，有多頁(yè)內(nèi)容時(shí)，如果希望每頁(yè)都顯示標(biāo)題行，這個(gè)代碼就派上用場(chǎng)了。它指定了“Sheet4”工作表的第 1 行和第 2 行作為打印標(biāo)題行，這樣在打印出來(lái)的每一頁(yè)頂部都會(huì)顯示這些標(biāo)題，方便閱讀和查看數(shù)據(jù)。

打印設(shè)置代碼 6：設(shè)置打印質(zhì)量

Sub SetPrintQuality()

    Sheets('Sheet5').PageSetup.PrintQuality = 600

End Sub

不同的打印質(zhì)量會(huì)影響打印文檔的清晰度和打印速度。這里的代碼可以設(shè)置“Sheet5”工作表的打印質(zhì)量為 600dpi。你可以根據(jù)自己的打印機(jī)性能和實(shí)際需求調(diào)整這個(gè)數(shù)值，在打印效果和打印效率之間找到平衡。

打印設(shè)置代碼 7：打印預(yù)覽

在正式打印之前，我們通常都想先預(yù)覽一下打印效果，看看是否有需要調(diào)整的地方。這個(gè)簡(jiǎn)單的代碼就可以彈出當(dāng)前活動(dòng)工作表的打印預(yù)覽窗口，讓你提前檢查打印布局、頁(yè)邊距等設(shè)置是否符合要求，避免浪費(fèi)紙張哦！

打印設(shè)置代碼 8：打印當(dāng)前工作表

Sub PrintCurrentSheet()

    ActiveSheet.PrintOut

End Sub

最后，當(dāng)你一切設(shè)置就緒，就可以使用這個(gè)代碼直接打印當(dāng)前活動(dòng)工作表啦！不需要再去菜單欄里點(diǎn)擊層層選項(xiàng)，一鍵即可完成打印操作，是不是超級(jí)便捷呢？

小伙伴們，今天的 Excel VBA 打印設(shè)置學(xué)習(xí)之旅就到這里啦！記得動(dòng)手試試這些代碼，有問(wèn)題隨時(shí)在評(píng)論區(qū)問(wèn)阿財(cái)哦。祝大家在 Excel 的使用中更加得心應(yīng)手，工作效率節(jié)節(jié)高！