標題: [發問] 空白欄位不列印問題請教 [打印本頁]

---

作者: honching99    時間: 2011-10-1 15:18     標題: 空白欄位不列印問題請教

小弟基本資料將近2頁(舉例)，因第53-85列欄位是要保留不可刪除的，是否在列印時，可以利用巨集功能自動將最後第86列欄位往上移，減少列印空間。也就是說空白欄位不列印出來，請各位幫忙!!

---

作者: binargoo    時間: 2011-10-1 16:20

本帖最後由 binargoo 於 2011-10-1 16:22 編輯

回復 1# honching99

標記53~85\右鍵隱藏，列印之後再恢復簡單不複雜。

---

作者: honching99    時間: 2011-10-1 22:41

回復 2# binargoo


    感謝binargoo回應，不過因資料蠻多，每次重複隱藏太麻煩，所以才思考可否用巨集方式來簡化!!!

---

作者: Hsieh    時間: 2011-10-1 22:50

回復 3# honching99

1. Sub 隱藏()
   
2. Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
   
3. End Sub
   
4. Sub 復原()
   
5. Cells.EntireRow.Hidden = False
   
6. End Sub

複製代碼

---

作者: honching99    時間: 2011-10-1 23:04

回復 4# Hsieh

感謝Hsieh版主
小弟又增加預覽列印功能搭配
ActiveWindow.SelectedSheets.PrintPreview

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)