打印日历程序

作者:枕善居主 / 查看次数: 5533 / 评论: 0

Private Sub Command1_Click()
    Dim StartDatum
    Dim vMonth
    Dim vYear
    Dim StartDag
    Dim vRow%, vColomn%
    Const t1% = 5
    Const t2% = 10
    Const t3% = 15
    Const t4% = 20
    Const t5% = 25
    Const t6% = 30
    Dim c%
    Dim GoFurther%
    StartDatum = InputBox("which first date", , Format(Now, "dd-mm-yy"))
    If StartDatum = "" Then Exit Sub
    vMonth = Month(StartDatum)
    vYear = Year(StartDatum)
    StartDatum = CDate("1-" & vMonth & "-" & vYear)
    StartDag = DatePart("w", StartDatum)
    '1=sunday
    '2=monday
    'etc
    GoFurther% = False
    Printer.Print StartDatum
    Printer.Print "S"; Tab(t1); "M"; Tab(t2); "T"; Tab(t3); "W"; _
        Tab(t4); "T"; Tab(t5); "F"; Tab(t6); "S"
    Screen.MousePointer = vbHourglass

    For vRow% = 1 To 6

        For vColomn% = 1 To 7

            If (StartDag = vColomn% And Not GoFurther%) Then
                c% = 1
                Printer.Print Str(c%);
                GoFurther% = True
            Else
                If (GoFurther% And IsDate(CStr(c%) & "-" & vMonth & _
                        "-" & vYear)) Then Printer.Print Str(c%);
            End If

            Select Case vColomn%
                Case 1
                Printer.Print Tab(t1);
                Case 2
                Printer.Print Tab(t2);
                Case 3
                Printer.Print Tab(t3);
                Case 4
                Printer.Print Tab(t4);
                Case 5
                Printer.Print Tab(t5);
                Case 6
                Printer.Print Tab(t6);
            End Select
        c% = c% + 1
    Next vColomn%
    Printer.Print
Next vRow%
Printer.EndDoc
Screen.MousePointer = vbNormal
End Sub