返回列表下一主題上一主題發帖

清除列印範圍外的格線

yc1031

中學生 Rank: 2

帖子: 106
主題: 35
精華: 0
積分: 146
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2024-3-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

感謝!