使用vba可以做打印格式處理，如何做一個漂亮的打印頁面，不外乎要設置打印表格的邊框、版式、頁眉、頁角等等。

那麼怎樣設置這些格式呢？

vba編程用到Pagesetup對象，對表格打印進行設置。

PageSetup對象有許多屬性，下面圖片裡列出了大部分常用的屬性，可以對照進行設置。

具體方法下面舉個例子來展示一下最終效果。

PageSetup屬性

第一頁

第二頁

代碼注釋相對完整，不做過多介紹，仔細看代碼，相信一定有收獲。

Private Sub CommandButton1_Click() With Me.PageSetup .TopMargin = 45 .BottomMargin = 25 .LeftMargin = 20 .RightMargin = 20 .BlackAndWhite = True'黑白打印 .CenterHorizontally = True'左右距中 .CenterVertically = False .Draft = False '打印圖形 .FirstPageNumber = 100'設置首頁頁碼 .Orientation = xlLandscape'橫向版式 .Zoom = false .FitToPagesTall = 1 .FitToPagesWide = 1 .PrintTitleRows = ActiveSheet.Rows(1).Address '設置第一行為重複顯示行 .PrintTitleColumns = ActiveSheet.Columns("A").Address '設置A列為列表列 .LeftHeader = "&F" '設置右上角為文件名 With .RightHeaderPicture '設置頁眉圖片 .Filename = ThisWorkbook.Path & "\pic\11.jpg" .Width = 800 .Height = 50 End With .RightHeader = "&G" '驅動器在标頭的右側部分 End With Me.PrintPreview '打印預覽 End Sub

代碼介紹清楚了，我們看一下運行效果，說白了整合代碼這就是一個打印預覽功能。

最終輸出到紙面上應該就是這樣的，如果有什麼不合适，修改相應的屬性值，就可以得到理想的結果了，對比一下第一頁和第二頁，我們設置的頁頭部是同樣了，當然了左側也可以設置為相同的列。

第一頁

第二頁

整體來看，似乎達到了一定的目的，假如以圖書形式來輸入也是一個不錯的選擇。

這樣打印設置就算是一個比較理想的結果。

總之，所有制作的表格都将有一個紙質的輸出，完成一個美觀又清晰的版面，無論如何都一個件很好的事情。

學習VBA就趕快收藏起來吧，關注後，獲取更多Excel VBA編程技巧

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!