標題: [發問] 使強制 游標 能跑到列印預覽 [打印本頁]

---

作者: yangjie    時間: 2013-12-15 22:47     標題: 使強制 游標 能跑到列印預覽

請教大大:
在userform下   執行 print1
跑到PrintPreview時
螢幕變為  列印預覽在下層  userform視窗在上層  游標不能跑到列印預覽
也不能跑到userform視窗
擋掉了    求救
應如何下語法 使強制   游標  能跑到列印預覽   或......
Sub print1()
     Application.Visible = True
    Sheets("成績單").Visible = True
    Sheets("成績單").Activate
    Sheets("成績單").Select
    ActiveWindow.SelectedSheets.PrintPreview
    Application.Visible = False
    Sheets("成績單").Visible = False
End Sub

---

作者: yangjie    時間: 2013-12-15 23:52

請教大大:
或者   在userform下 如何使喪失強制回應權 應如何下語法?
                                                                   謝謝指導

---

作者: Hsieh    時間: 2013-12-16 08:27

回復 2# yangjie

userform.Show 0

---

作者: yangjie    時間: 2013-12-16 09:15

回復 3# Hsieh
謝謝 Hsieh
    userform.show之下  尚未離開之途中   下了指令 userform.show 0  會 error
不過又引發我另一個做法 解決了問題   謝謝您
    userform.show之下
    ..........
    UserForm2.Hide
    Application.Visible = True
    Sheets("收受單").Visible = True
    Sheets("收受單").Activate
    Sheets("收受單").Select
    ActiveWindow.SelectedSheets.PrintPreview
   Application.Visible = False
   Sheets("收受單").Visible = False
   UserForm2.Show

---

作者: Hsieh    時間: 2013-12-16 09:44

回復 4# yangjie

表單回應方式必需在開啟表單時就指定
表單未卸載前無法重新改變回應方式

---

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