谁知道用timer控件来作一个定时器的源程序？

一个打印输出的问题：
Public Sub leavecard_print()
  If MsgBox("打印发货单？", vbQuestion + vbOKCancel, "提示") = vbOK Then
    Dim yy As String
    Dim mm As String
    Dim dd As String
    Dim fpath As String
    On Error GoTo mylable
    mydoc.Close
    appwd.Quit
mylable:
    Call del_doc
    yy = Year(CDate(RTrim(T_date.Text)))
    mm = Month(CDate(RTrim(T_date.Text)))
    dd = Day(CDate(RTrim(T_date.Text)))
    Printer.CurrentX = 0
    Printer.CurrentY = 0
    Printer.Font.name = "宋体"
    Printer.Font.Size = 14
    Printer.CurrentY = Printer.CurrentY + 550
    Printer.CurrentX = 2400
    Printer.Print "浙江华峰实业有限公司" '公司名称
    Printer.Font.name = "宋体"
    Printer.Font.Size = 11
    Printer.CurrentY = 1170
    Printer.CurrentX = 2300
    Printer.Print yy + "     " + mm + "    " + dd '年月日
    Printer.CurrentY = 1638
    Printer.CurrentX = 2400
    Printer.Print Cb_comp.Text  '提货单位
    Printer.CurrentY = 1638
    Printer.CurrentX = 7900
    Printer.Print T_link_man.Text '提货人
    Printer.CurrentY = 2308
    Printer.CurrentX = 2400
    Printer.Print "普通等级/" + T_degree.Text   '等级
    Printer.CurrentY = 2308
    Printer.CurrentX = 5200
    Printer.Print T_breed_code.Text  '编号
    Printer.CurrentY = 2308
    Printer.CurrentX = 8000
    Printer.Print T_store_name.Text    '仓位号
    Printer.CurrentY = 2938
    Printer.CurrentX = 2800
    Printer.Print T_bill_number.Text '提货单号
    Printer.CurrentY = 2938
    Printer.CurrentX = 7500
    Printer.Print T_amount.Text + "  吨" '提货数量
    Printer.CurrentY = 3608 '4308
    Printer.CurrentX = 2800
    Printer.Print T_vehi_comp.Text '承运单位
    Printer.CurrentY = 3608
    Printer.CurrentX = 7500
    Printer.Print T_vehi_tool.Text  '运输工具
    Printer.CurrentY = 4908 '6208
    Printer.CurrentX = 7800
    Printer.Print Cb_makeout_man.Text '开单人
    Printer.EndDoc
    Call Sleep(4000)
    GoTo mylab0
mylab0:
        On Error GoTo mylab1
        Open "LPT1:" For Output As #1
        For i = 0 To 16
            Print #1, ""
        Next
       Close #1
      Exit Sub
mylab1:
  Err.Clear
  Call Sleep(4000)
  GoTo mylab0
 End If
End Sub