返回列表 上一主題 發帖

[發問] 使強制 游標 能跑到列印預覽

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2013-12-15 23:52 | 顯示全部帖子
請教大大:
或者   在userform下 如何使喪失強制回應權 應如何下語法?
                                                                   謝謝指導

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 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

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題