Board logo

標題: [發問] (已解決)書上的例子有副作用如何取消? [打印本頁]
作者: freeffly    時間: 2011-8-17 11:15     標題: (已解決)書上的例子有副作用如何取消?

本帖最後由 freeffly 於 2012-2-22 16:59 編輯

這是書上的例子
自從打開來看
應該是執行他的程式碼
之後每次預覽excel 裡面的列印畫面
他都會去把這個檔案自動打開
如果把這個檔案刪掉
下次預覽會出現問題

請問要如何預覽列印畫面時不再打開這個檔案?
[attach]7480[/attach]
作者: GBKEE    時間: 2011-8-17 14:10

回復 1# freeffly
執行一次
  1. Private Sub Ex()
  2.     Dim cmdCtrls As CommandBarControls
  3.     Dim cmd As CommandBarControl
  4.     Set cmdCtrls = Application.CommandBars.FindControls(ID:=109)
  5.     For Each cmd In cmdCtrls
  6.         'cmd.OnAction = "ThisWorkbook.MyPreview"
  7.         cmd.OnAction = ""
  8.     Next
  9. End Sub
複製代碼
作者: freeffly    時間: 2011-8-18 14:24

回復 2# GBKEE


    謝謝喔
       終於把這個困擾解決掉
       上面的程式碼好像很少用到
      
        程式碼的意思應該是執行命令才會呼叫那各程序
        為什麼我開啟其他檔案預覽也會讓他跑出來?
作者: GBKEE    時間: 2011-8-18 15:15

回復 3# freeffly
Set cmdCtrls = Application.CommandBars.FindControls(ID:=109)   <-印列預覽的命令列  
  For Each cmd In cmdCtrls
        cmd.OnAction = "ThisWorkbook.MyPreview"    預覽的命令列  指令巨集指向 "ThisWorkbook.MyPreview"
       執行預覽的命令列此巨集時, 必須開啟巨集所在的檔案.
       如  cmd.OnAction = ""    可還原印列預覽的命令列執行VAB預設的巨集  
  Next
作者: freeffly    時間: 2011-8-22 10:54

回復 4# GBKEE


    謝謝解說
      持續學習中



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