標題: 清除 列印範圍外的格線 [打印本頁]

---

作者: yc1031    時間: 2012-7-26 09:03     標題: 清除 列印範圍外的格線

各位好,

我想請問一下, 我要怎麼清除列印範圍外的格線?   (以下是清除清除列印範圍外的"資料", 但格線還是在)

Dim pValues As Variant
With ActiveSheet
    pValues = .Range(.PageSetup.PrintArea).Value
    .Cells.ClearContents
    .Range(.PageSetup.PrintArea).Value = pValues

End With
End Sub

感謝!

---

作者: hugh0620    時間: 2012-7-26 17:23

回復 1# yc1031


Dim pValues As Variant
With ActiveSheet
    .Cells.Borders.LineStyle = xlNone   '格線的處理
    .Range(.PageSetup.PrintArea).Borders.LineStyle = xlContinuous
End With

---

作者: yc1031    時間: 2012-8-8 10:07

回復 2# hugh0620


    非常感謝您!

我剛有試了, 是成功的, 謝謝 :D

---

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