標題: [發問] 表單列印 [打印本頁]

---

作者: solely    時間: 2010-9-18 22:38     標題: 表單列印

[attach]2817[/attach]
Personnel.PrintForm
會連同指令按鈕、清單的捲軸一起列印
請問有什麼方法可以除去指令按鈕??

---

作者: Hsieh    時間: 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

複製代碼

---

作者: solely    時間: 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
所以說...我幫指令按鈕、清單取名字...是多此一舉-.-""..只會增加寫程式的困擾~

---

作者: Hsieh    時間: 2010-9-19 00:28

若取成有規則性的名字就會有好處

---

作者: solely    時間: 2010-9-19 00:44

規則性??
像CB_add
   CB_search
   CB_print
這樣子嗎??

---

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