返回列表 上一主題 發帖

VBA 如何不列印圖片

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-3 16:58 | 只看該作者

VBA 如何不列印圖片

請問如何將工作表內所有圖片列印時不印顯示
請指教

未命名.jpg (39.44 KB)

未命名.jpg

收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-9-3 22:26 | 只看該作者
本帖最後由 luhpro 於 2014-9-3 22:36 編輯
請問如何將工作表內所有圖片列印時不印顯示
請指教
enoch 發表於 2014-9-3 16:58


以下程式碼放在 Module1 :
  1. Public bPrint As Boolean
  2. Option Explicit
複製代碼
以下程式碼放在 ThisWorkbook :
  1. Option Explicit

  3. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  4.   Dim vA
  5.   
  6.   If Not bPrint Then
  7.     bPrint = True
  8.     With ActiveSheet
  9.       For Each vA In .Shapes
  10.         vA.Visible = False
  11.       Next
  12.       .PrintPreview
  13.       Cancel = True
  14.       For Each vA In .Shapes
  15.         vA.Visible = True
  16.       Next
  17.     End With
  18.     bPrint = False
  19.   End If
  20. End Sub
複製代碼
考慮到列印後應該還是需要恢復圖片的顯示,
所以我從 預覽列印 功能上著手實現.
你可在 預覽畫面 上確認結果後按下 列印 按鈕輸出工作表,
若未選列印直接關閉該畫面則不會執行列印作業.

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題