vb中label标签要显示当前时间要怎么样写代码vb中label标签要显示当前时间要怎么样写代码

光有登录的代码：

If Text1.Text = "123456" Then
frm_main.Show
Else
MsgBox "密码错误！请重新输入！", vbOKOnly
Text1.Text = ""
End If
      
锁鼠标的代码：（放在最后 end if 之前）

SendKeys "{Home}+{End}"


请教：用vb写了一个打印当前页的命令，但总是出现打印窗口，有没有办法不出现这个窗口直接打印
 悬赏分：25 - 解决时间：2010-2-4 11:07 
因为经常需要打印当前的某一页而不是全部，所以在网上找到这个命令，建立宏命令：
点击“创建”按钮，进入Word宏编辑状态。在要“Sub FilePrinttCurrentPage”和“End Sub”之间，录入以下内容（图2）：
   With Dialogs(wdDialogFilePrint)
   .Range = wdPrintCurrentPage
   .Show
   End With

但打印时仍出现让人点击“确定”的打印窗口，请问大侠们有啥办法让它直接打印，不再出现窗口没，类似Word自己的那个直接打印按钮 

提问者： xyc700 - 五级最佳答案在宏里写如下代码，直接按word设置的打印机打印，而不会像你说的显示对话框。     
    With Dialogs(wdDialogFilePrint)
     .Range = wdPrintCurrentPage
     .Execute