為了節約用紙,保護環境,在不影響閱讀的情況下,我們有必要把多頁數據縮印為一頁打印出來。比如下面的Excel數據,從頁面分割線上可知是有多頁數據:
那麼,我們如何實現把多頁數據縮印為一頁呢?下面有三種方法:
[方法1]通過頁面設置對話框完成,步驟如下圖:
步驟1:
步驟2:
步驟3:
[方法2]通過分頁預覽完成,步驟如下圖:
步驟1:
步驟2:
[方法3]通過VBA代碼完成,步驟如下圖:
在ThisWorkbook模塊中輸入的代碼如下:
Public Sub PrintOnePage()
Dim sht As Worksheet
Set sht = Worksheets(1)
With sht.PageSetup
.Zoom = False
.PaperSize = xlPaperA4
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Set sht = Nothing
End Sub
好了,以上三種方法,你喜歡哪一種呢?請發表你寶貴的建議和意見。
如果你喜歡這篇文章,歡迎點贊,評論,轉發和收藏。
,