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

請教大大:
在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

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-12-16 09:44 | 只看該作者

回復 4# yangjie

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

學海無涯_不恥下問

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2013-12-16 08:27 | 只看該作者

回復 2# yangjie

userform.Show 0

學海無涯_不恥下問

TOP

yangjie