Office: (Office 2007) Pause im Code

Smmabart · 24. November 2010

Hallo zusammen,

obwohl ja immer alle wollen, dass die DBs so schnell wie möglich arbeiten, wünsche ich mir das Gegenteil *biggrin.gif*

Ich habe pdf1 was mit dem pdf2 gestempelt werden soll. Das klappt mit PDFTK sehr gut. Es kommt pdf3 raus.
Nun möchte ich pdf1 (Original) und pdf2 (Stempel) löschen und pdf3 den Namen von pdf2 (also vom Original geben). Das klappt mit folgendem Code sehr gut (wenn man es Schritt für Schritt durchgeht).

Code:

temp_shell = "pdftk " & temp_pfad & "stamp.pdf background " & temp_pfad & temp_dateiname & ".pdf " & _
"output " & temp_pfad & temp_dateiname & "_1.pdf"

'Execute shell
Shell (temp_shell)

'Originaldatei & Stempel löschen
fso.DeleteFile temp_dateiname & ".pdf"
fso.DeleteFile temp_pfad & "stamp.pdf"

'Neue Rechnung umbenennen (File kopieren und Original löschen)
fso.MoveFile temp_dateiname & "_1.pdf", temp_dateiname & ".pdf"
fso.DeleteFile temp_dateiname & "_1.pdf"

Set fso = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Problem: Der Code wird so schnell abgearbeitet, dass die Dateien (Original & Stempel) schneller gelöscht sind als PDFTK die pdfs zu dem pdf3 zusammenführen kann. Somit bräuchte ich nach dem SHELL (...) eine kurze Pause (1-2s), damit der Output generiert werden kann.
Hat jemand eine Idee wie ich das anstellen kann?

:)

Josef P. · 25. November 2010

Hallo!

Du könntest statt PDFTK mit API-Funktionen öffnen, damit der VBA-Code erst weiter läuft nachdem PDFTK beendet wurde.
Beispiel-Code: http://planetsourcecode.com/vb/scrip...=3716&lngWId=1

mfg
Josef

Lanz Rudolf · 26. November 2010

Hallo
ich habe jetzt den Link Von Josef nicht studiert !

habe aber auch zwei Routinen:

Code:

Public Function Pause(Optional dblPL As Double = 5) As Double
' Aufruf z.B. ? Pause(11.25) Bei Pause() 5 Sekunden
Dim dblStart As Double
Dim dblEnde As Double
Pause = 0
If (MsgBox(dblPL & " Sekunden Pause?", vbYesNo)) = vbYes Then
dblStart = Timer ' Anfangszeit setzen.
Do While Timer < dblStart + dblPL
DoEvents ' Steuerung an andere Prozesse abgeben.
Loop
dblEnde = Timer ' Ende festlegen.
Pause = dblEnde - dblStart ' Gesamtdauer berechnen.
Else
End ' Ende der Function
End If
MsgBox "Die Pause dauerte " & Pause & " Sekunden"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Option Compare Database
Option Explicit
Declare Function GetTickCount& Lib "kernel32" ()
Function jpDelay(ByVal plngMillisecs As Long) As Long
' Accepts Milliseconds to delay for
' Returns The actual number of milliseconds delayed for (will be >= plngMillisecs)
' Waits until at least pintMillisecs have elapsed and then exits
' Since DoEvents is going to take a reasonable amount of time, it is only used if the total
time to delay for
' is > 10 milliseconds (otherwise the DoEvents delay is likely to make the delay much
bigger than requested)
Dim lngStartTime As Long
Dim lngTimeToReturn As Long
Dim lngCurrentTime As Long
lngStartTime = GetTickCount()
lngCurrentTime = lngStartTime
lngTimeToReturn = lngStartTime + plngMillisecs
Do While lngTimeToReturn > lngCurrentTime
If plngMillisecs > 10 Then DoEvents
lngCurrentTime = GetTickCount()
Loop
jpDelay = (lngCurrentTime - lngStartTime)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufruf: Call jpDelay(16)

Scorefun · 27. November 2010

die einfachste Möglichkeit einer Pause geht doch mit der API :

Code:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sleep 2000 '= 2 Sekunden Pause

Aber der Link von Josef ist bestimmt brauchbarer, damit der Code erst weiterläuft, wenn PDFTK beendet ist...

Thomas Möller · 27. November 2010

Hallo zusammen!

In der FAQ gibt es eine Variante, die ohne viel API auskommt:
www.donkarl.com?FAQ6.14

Ich denke, Windows 2000 oder höher als Betriebssystem kann man schon voraussetzen.

CU

Smmabart · 4. Januar 2011

Hi zusammen,

zwar etwas spät das Feedback, aber ich habe mich für die Lösung Nr.1 von LanzRudolf entschieden. Funktioniert wunderbar! *Smilie

Danke & Gruß

KGunder · 5. Januar 2011

\@Lanz Rudolf : Die Lösung mit einer While Schleife mit DoEvents nennt man Busy Waiting. Access nutzt dabei viel Rechenzeit ohne was zu tun ( und PDFTK bekommt dafür weniger Rechenzeit ). Und die Gefahr bei DoEvents ist: der Benutzer könnte z.B. schon das Formular schliessen, das grade auf das Ende der Schleife wartet...

@Scorefun: Sleep kann man einsetzen, wenn es wirklich nur eine ganz kurze Pause ist. Access bearbeitet in der Zeit keine weiteren Events und stellt sich Tot.

@Thomas: Wie so oft hat unser Karl die schönste Lösung *wink.gif* ( Wobei ein Sleep 1 sehr kurz ist, ein Sleep 200 ist besser .. )

Lg

Klaus

Office: (Office 2007) Pause im Code

Pause im Code

Pause im Code

Pause im Code

Pause im Code - Similar Threads - Pause Code

Arbeitszeiten Pausen automatisch abziehen

Formel für Berrchnung Pause zwischen >6h und <06,5hAnwesenheit

Pause Zeiten Berücksichtigen

Pause in bestehendes Makro einbinden

Lohnzuschlagsberechnung mit gesetzlicher Pause und Feiertagen

Video pausieren/ ungewünschter Folienwechsel

Tastaturmakro mit Pause