Macro om datum te laten printen

[jakobo]

Mensen,

Ik zou zo graag een a4 vol met lijntjes laten printen en dan rechts bovenin de dag en datum ( donderdag 18 januari enz )
deze zou dan per printje moeten veranderen bijv tot het eind van het jaar.
Iemand die mij een tip of voorbeeldje kan geven.

Jan

 

[Wigi]

Kun je zelf al eens een blad maken met de juiste afmetingen? Als je rasterlijnen aan zet bij het afdrukvoorbeeld - pagina-instelling, dan heb je al direct de lijntjes. Kies wel het juiste aantal kolommen en rijen zodat ze allemaal op je blad passen (hangt af van de lengte en hoogte tussen opeenvolgende lijntjes).

Eens je dat gedaan hebt, post het resultaat hier, en dan schrijft iemand hier wel de code voor het printen. Geef wel aan in welke cel je dag en datum wilt hebben.

Succes ermee.

Wigi

 

[jakobo]

Wigi,

Bedankt voor je reactie heb hier bijgevoegd mijn excelbestandje.

Jan

 

[Wigi]

Code is hier:

Sub dagendatum()
    Dim dt As Date
    dt = Date
    Do
        Range("N3") = WorksheetFunction.Weekday(dt, 1)
        Range("O3") = dt
        Sheets("Blad1").PrintOut
        dt = dt + 1
    Loop While dt <= DateSerial(Year(Date), 12, 31)
End Sub

Het printen heb ik zelf niet getest, wel al de rest. Verander wel op het einde als je het test, of je zou wel eens veel papieren en inkt kunnen verspillen.

Maak ook N3 en O3 op op een goede manier.

Lukt het?

Wigi

 

[jakobo]

Wigi,

Hij werkt mooi wat ik nog graag zou willen dat hij de dag (zondag) geeft ipv dag 1
zou je hier ook nog en oplossing voor hebben.

Jan

 

[Wigi]

Sub dagendatum()
    Dim dt As Date
    dt = Date
    Do
        Range("N3:O3") = dt
        Sheets("Blad1").PrintOut
        dt = dt + 1
    Loop While dt <= DateSerial(Year(Date), 12, 31)
End Sub

Maak N3 op als dddd. O3 blijft hetzelfde als voorheen.

Wigi

 

[jakobo]

Wigi,

Dit is helemaal wat ik bedoelde hartelijk dank voor je hulp.:thumb:

Jan

 

[jakobo]

datum printen

Wigi,

Ik heb nog een vraagje de macro gebruikt nu als startdatum het systeem
is het ook mogelijk om bijvoorbeeld alleen een bepaalde maand te doen.
dus niet beginnen op de datum van het systeem?

Jan

 

[Wigi]

Zie de 2 opmerkingen in de code waar je moet aanpassen.

Sub dagendatum()
    Dim dt As Date
    dt = Date  'verander hier naar de begindatum
    Do
        Range("N3:O3") = dt
        Sheets("Blad1").PrintOut
        dt = dt + 1
    Loop While dt <= DateSerial(Year(Date), 12, 31)  'verander hier tot de juiste einddatum
End Sub

Wigi

 

[jakobo]

Wigi,

Na de aanpassing werkt het uitstekend, mijn dank is groot.

Jan


ps
Op 15/12/2006 werd ik op het OzGrid forum benoemd tot "Most Valued Member"!
Dit mag wat mij betreft ook voor dit forum, ik lees iedere dag je antwoorden op de vele vragen.

Dik verdiend. :thumb: :thumb: