Also, da du doch mit Access arbeitest, kannst Du doch das Formular-Timerevent verwenden.

Habe es eben getestet.

Erstelle dir zwei Formulare.
1. frmPrint_Rep
2. frmStop

frmStop ist ein Popup und gebundenes Formular.

Ferner benötigst du eine globale Variable Public blnStop as boolean

In Formular frmStop jetzt einfach folgendem Code:

Private Sub Befehl2_Click()
    blnStop = True
End Sub
 
Private Sub Form_Load()
    blnStop = False
End Sub
 

 

In dem Formular frmPrint_Rep folgenden Code:

Option Compare Database
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Befehl4_Click()
DoCmd.OpenForm ("frmStop")
Me.TimerInterval = 1000
End Sub
Private Sub Befehl5_Click()
On Error GoTo Err_Befehl5_Click
 
    Dim stDocName As String
 
    stDocName = "Abschreibungsübersicht"
    DoCmd.OpenReport stDocName, acNormal
 
Exit_Befehl5_Click:
    Exit Sub
 
Err_Befehl5_Click:
    MsgBox Err.Description
    Resume Exit_Befehl5_Click
    
End Sub
 
Private Sub Form_Timer()
On Error GoTo Err_Befehl4_Click
 
    Dim stDocName As String
    Dim myPrintjob As New Druckauftrag
    Dim iResult As Integer
    
    
Do While blnStop = False
    Sleep 2000
    DoEvents
    
    stDocName = "Mein_Report"
    DoCmd.OpenReport stDocName, acNormal
    
        
    iResult = myPrintjob.Dokument_in_Spool("FreePDF_Multidoc", "", True)
Loop
    
End Sub
 
 

Jetzt wird automatisch solange der Bericht gedruckt, bis einmal das Warteformular abgebrochen wird und du in dem Formular frmStop auf den Stop-Button geklickt hast. Vor jedem Druck wird noch 2 sec. gewartet, damit man auch Zeit zum reagieren bekommt.

Mit den Zeiteinstellung musst du halt ein bisschen experimentieren.

Gruß Ahmed

Hallo miraG,

ich habe mir das noch einmal durch den Kopf gehen lassen.

Was hälst Du davon, wenn ich den Dll-Rückgabewert beim normalen Ende der Überwachung mit 0 zurückgebe und nur beim Abbruch mit -1.

Ich muss sowieso die Dll noch einmal überarbeiten, da das Logbuch ja auch noch im AppPfad erstellt wird. Das werde ich in dem Zusammenhang auch noch abändern.

Also, würde dir das helfen?

Gruß Ahmed

Spätestens Montag ist die DLL fertig.
Es sind nur zwei kleine Änderungen notwendig.
Von daher sollte es nicht allzu lange dauern. Ich habe nur Samstag einfach keine Zeit (Familie).

Gruß Ahmed

Zitat von miraG

---

Das klingt super.. stellst du sie dann auf deiner Seite bereit?

---

Yep, einfach auf die Tools-Seite gehen und dort herunterladen.

Wünsche dir auch ein schönes Wochenende.

Update der Prinjtobs.dll/Printjobs.exe V. 1.0.6 steht bereit.

Neue Änderungen sind enthalten:

1. Funktionsrückgabe bei automatischer Überwachung geändert.
Bei normalen Ende = 0
Beim vorzeitigen Abbruch = -1

2. Logbuch-Datei wird im Windows Tempverzeichnis erstellt.
Dadurch werden jetzt keine Schreib-/Leserechte mehr benötigt und die DLL bzw. Exe kann jetzt im Standardprogrammmverzeichnis installiert werden

Gruß Ahmed