Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Drucken mit VBA
Autor: markus
Datum: 26.11.01 19:50
Hi, ich habe ein kleines Programm (in Word mit VBA) geschrieben, welches einen Kalender drucken soll. Dabei wird auf eine Worddokument ein Label gesetzt (lblDatum). Dann (leider) relativ umständlich, das Datum immer wieder erhöht. Leider funktioniert die Erhöhung des Monats nicht. Kann mir einer sagen was ich falsch mache? Dim Monat As Byte Dim Tage As Byte Dim TagDesJahres As Integer Const ErsterTagDesJahres As Integer = 2 'Erster Tag des Jahres 2002 = Dienstag = 2 Dim Woche(6) As String Sub TerminplanerDrucken20x() Dim i As Integer For i = 1 To 20 Starten Schreiben ActiveDocument.PrintOut Next i End Sub Public Sub Schreiben() Select Case Monat Case 1, 3, 5, 7, 8, 10, 12: 'Monate: Januar, März, Mai.... haben 31 Tage If Tage < 31 Then Tage = Tage + 1 TagDesJahres = TagDesJahres + 1 SUBSchreiben Else Tage = 1 TagDesJahres = TagDesJahres + 1 Monat = Monat + 1 SUBSchreiben End If Case 4, 6, 9, 11: 'April, Juni .. haben 30 Tage If Tage < 30 Then Tage = Tage + 1 TagDesJahres = TagDesJahres + 1 SUBSchreiben Else Tage = 1 TagDesJahres = TagDesJahres + 1 Monat = Monat + 1 SUBSchreiben End If Case 2: If Tage < 28 Then ' Februar hat 28 Tage Tage = Tage + 1 TagDesJahres = TagDesJahres + 1 SUBSchreiben Else Tage = 1 TagDesJahres = TagDesJahres + 1 Monat = Monat + 1 SUBSchreiben End If End Select End Sub Private Sub SUBSchreiben() lblDatum.Caption = Tage & "." & Monat & ".2002" lblDatum.Caption = WocheBerechnen & " " + lblDatum.Caption End Sub Public Sub Starten() Monat = 1 Tag = 1 Woche(0) = "Montag" Woche(1) = "Dienstag" Woche(2) = "Mittwoch" Woche(3) = "Donnerstag" Woche(4) = "Freitag" Woche(5) = "Samstag" Woche(6) = "Sonntag" End Sub Private Function WocheBerechnen() As String Dim i As Integer i = TagDesJahres Mod 7 WocheBerechnen = Woche(i - 2 + ErsterTagDesJahres) End Function Vielen Dank im voraus! Markus

Drucken mit VBA	68	markus	26.11.01 19:50
Re: Drucken mit VBA	263	unbekannt	26.11.01 19:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen