Board logo

標題: VBA 如何不列印圖片 [打印本頁]
作者: enoch    時間: 2014-9-3 16:58     標題: VBA 如何不列印圖片

請問如何將工作表內所有圖片列印時不印顯示
請指教
作者: luhpro    時間: 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
複製代碼
考慮到列印後應該還是需要恢復圖片的顯示,
所以我從 預覽列印 功能上著手實現.
你可在 預覽畫面 上確認結果後按下 列印 按鈕輸出工作表,
若未選列印直接關閉該畫面則不會執行列印作業.



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