返回列表 上一主題 發帖

[發問] 表單列印

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-18 22:38 | 只看該作者

[發問] 表單列印


Personnel.PrintForm
會連同指令按鈕、清單的捲軸一起列印
請問有什麼方法可以除去指令按鈕??
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-9-18 22:54 | 只看該作者
回復 1# solely
  1. Private Sub CommandButton1_Click() '列印按鈕
  2. With Me
  3. For Each ct In .Controls
  4.    If ct.Name Like "CommandButton*" Then ct.Visible = False
  5. Next
  6. .PrintForm
  7. For Each ct In .Controls
  8.    If ct.Name Like "CommandButton*" Then ct.Visible = True
  9. Next
  10. End With
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
3#
發表於 2010-9-19 00:19 | 只看該作者
回復 2# Hsieh
謝謝版主~
依樣畫葫蘆我把這句
If ct.Name Like "CommandButton*" Then ct.Visible = False
改成
If ct.Name Like "ComboBox*" Then ct.DropButtonStyle = 0
也可以把ComboBox的小箭頭消掉XD
所以說...我幫指令按鈕、清單取名字...是多此一舉-.-""..只會增加寫程式的困擾~

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-9-19 00:28 | 只看該作者
若取成有規則性的名字就會有好處
學海無涯_不恥下問

TOP

solely

帖子
92 
主題
18 
精華
0 
積分
195 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台北 
註冊時間
2010-8-15 
最後登錄
2011-8-11 
5#
發表於 2010-9-19 00:44 | 只看該作者
規則性??
像CB_add
   CB_search
   CB_print
這樣子嗎??

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題