makro som printer automatisk

Public Sub StartTimer()
Application.OnTime TimeValue("23:30:00"), "Din Udskrifts makros navn"
End Sub

Public Sub StartTimer()
Application.OnTime TimeValue("23:30:00"), "Din Udskrifts makros navn", Schedule:=True
End Sub

Tak for hurtigt respons jeg prøver det lige når jeg kommer ud på arbejdet, jeg vender tilbage senere.

Hej kabbak

jeg kan ikke få det til at virke, men jeg er heller ikke helt stiv i vba, jeg har en knap som køre en Calculate kan din formel indsættes i den makro. eller hvad skal jeg gøre?

Lige et par ting om Ontime:
1. hvis du har kørt koden husker excel det så længe den er åben, så hvis du prøver med forskellige tidspunkter, husker den alle.

2. en startet kode, skal slås ihjel med samme tidspunkt, hvor den skulle starte
eks.
Application.OnTime TimeValue("23:30:00"), ""
Når du vil have koden til at køre skal du køre den sub jeg lavede, så husker den det.

3. jeg er ikke helt sikker på at den gentages dagen efter, men så lader du bare min sub kaldes igen, fra din udskrivningsmakro, nede i bunden lige før end sub.

jeg må indrømme at det driller lidt, jeg har nu slette min makro for at begynde helt fra bund, jeg har så din kode jeg kan indsætte, men hvad starter jeg med, nu hvor jeg har et regnark med 2 sheet, det ene hedder skema & det andet data.

Public Sub StartTimer()
Application.OnTime TimeValue("23:30:00"), "Udprint"
End Sub

Public Sub Udprint()
    Sheets("Data").PrintOut
    Sheets("skema ").PrintOut
    StartTimer
End Sub


Du kører den første StartTimer, så vil den når klokken er 23:30, automatisk køre makroen Udprint, i slutningen af den makro kalder jeg StartTimer igen, så er den klar til næste dag kl. 23:30.

Du må selvfølgelig ikke lukke mappen, for så kører den ikke.

Jep, nu virker det, jeg havde lidt problemer men det gik efter noget tid(-:
Takker!!
Smid et svar

et svar ;-))