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

清除列印範圍外的格線

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

感謝!

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

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

學習才能提升自己

TOP

yc1031