返回列表 上一主題 發帖

[發問] 表單列印

回復 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

若取成有規則性的名字就會有好處
學海無涯_不恥下問

TOP

        靜思自在 : 地上種了菜,就不易長草;心中有善,就不易生惡。
返回列表 上一主題