Hallo Leute,

hier einmal ein Beispiel, wie man die Printjobs.dll in einem VBScript verwenden kann. Das VBScript muss sich dazu in dem gleichen Verzeichnis befinden wie die Dll.

 
Option Explicit
 
Dim myObject
dim x
 
set myObject=createObject("Printjobs.Druckauftrag")
x= myObject.Dokument_in_Spool("FreePDF_PS",,True)
 
'wscript.echo gibt den Wert x aus. Kann gelöscht werden, da nur Demofunktion.
wscript.echo x
 

 

In dem Codeschnippsel wird jetzt für den Drucker 'FreePDF_PS' die Druckerwarteschlange geprüft und der gesamte Code wird erst dann fortgesetzt, wenn alle Ausdrucke erfolgt sind.

Eine genaue Funktionsbeschreibung der Dll und Exe findet Ihr auf meiner Webseite unter 4. Tools.

Im Bereich VB-Programmbeispiele habe ich auch ein vollständiges Beispiel hinterlegt.

Gruß Ahmed

Hallo Wetlook,

Zitat von wetlook

---

Kann ich die ausstehenden Druckaufträge irgendwie in einem Listenfeld im Formular anzeigen lassen, so das diese immer im z.b. sekundentakt aktualisiert werden?

---

das ist leider nicht möglich. Die Printjobs.dll liefert als Funktionsrückgabe nur die Anzahl der noch ausstehenden Drucke im Druckspooler als Ergebnis zurück.

Gruß Ahmed

Hallo Wetlook,

du musst die Printjobs.dll erst einmal registrieren. Dazu kopierst Du die dll in beliebiges Verzeichnis.

Danach führst du folgenden Batchbefehl aus:

echo off
regsvr32.exe "C:UsersAhmedProgrammtoolsFreePDF_MultidocPrintjobs.dll"
exit
 
 

Nun öffnest Du deine Datenbank und wechselst in den VBA-Editor (Alt+F11). In dem VBA-Editor wählst du unter

-> Extras -> Verweise -> Durchsuchen

die DLL aus. Nun sollte diese in den Verfügbaren Verweisen mit einem Haken aufgelistet sein.

Im Anschluss einfach auf die DLL wie nachfolgend verweisen:
(Achtung: Beispiel ist für Word. Bitte selbst anpassen.)

Zitat

---

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Optional, nur nötig wenn manuelle Überwachung

Public Sub Print_Serienbrief()

Dim i As Long

'Variable erstellen für den Funktionsaufruf der Printjobs.dll
Dim myDruckjobs As New Druckauftrag
Dim strPrinter As String

strPrinter = ActivePrinter 'merken des alten Druckers
ActivePrinter = "FreePDF_Multidoc" 'umstellen auf neuen Drucker
For i = 1 To ActiveDocument.Sections.Count 'alle Abschnitte einzeln drucken
Application.PrintOut Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="S" & i, _
PageType:=wdPrintAllPages, _
Background:=False
Next

i = myDruckjobs.Dokument_in_Spool("FreePDF_Multidoc", ActiveDocument.name, True)

ActivePrinter = strPrinter 'zurücksetzen auf alten Drucker

'Optionale manuelle Überwachung des Druckerspoolers
'Wenn die manuelle Überwachung nicht gewünscht wird, bitte diesen Abschnitt löschen

Do While i > 0
DoEvents
Sleep 5000 '5 Sekunden warten
i = myDruckjobs.Dokument_in_Spool("FreePDF_Multidoc", ActiveDocument.name)
'i=Anzahl der Druckaufträge
Loop

'Ende Optionale manuell Überwachung

End Sub

---

Alle Parameter sind auf meiner Webseite unter Printjobs.dll ausführlich mit Beispielen beschrieben.

Hierzu gibt es auch eine Online-Demonstration (s. Überschrift).

Gruß Ahmed

Aus der Online-Hilfe:

Funktionsrückgabewert Anzahl Druckjobs (bei vorzeitigem Abbruch = -1)

Ich gebe es zu, es ist ein bisschen versteckt bei den Parameterbeschreibungen.

if result = -1 then goto ....

Gruß Ahmed

Hier einmal ein Beispiel:

Public Sub Print_Serienbrief()
 
Dim iResult As Long
Dim i as long 
Dim strPrinter As String
 
'Variable erstellen für den Funktionsaufruf der Printjobs.dll
Dim myDruckjobs As New Druckauftrag 
 
strPrinter = ActivePrinter 'merken des alten Druckers
ActivePrinter = "FreePDF_Multidoc"    'umstellen auf neuen Drucker
 
For i = 1 To ActiveDocument.Sections.Count 'alle  Abschnitte einzeln drucken
   Application.PrintOut Range:=wdPrintRangeOfPages, Item:= _
   wdPrintDocumentContent, Copies:=1, Pages:="S" & i, _
   PageType:=wdPrintAllPages, _
   Background:=False
Next
 
'Anzeige des Warteformulars
iResult = myDruckjobs.Dokument_in_Spool("FreePDF_Multidoc", ActiveDocument.name, True)                                                
 
ActivePrinter = strPrinter        'zurücksetzen auf alten Drucker
 
End Sub
 
 

Wenn jetzt die Überwachung abgebrochen wird (Button Abbruch), erhält iResult

iResult = myDruckjobs.Dokument_in_Spool("FreePDF_Multidoc", ActiveDocument.name, True)
 
 

einen Rückgabewert -1. Auf diesen Rückgabewert kannst Du jetzt ja selbst prüfen.

-1 (Cancel) wird nur bei dem Button zurückgegeben. Ansonsten ist der Wert 0.

Du prüfst ja auch auf 0

Do While i > 0
 

Gruß Ahmed[/quote]

Dann mach das doch ganz einfach wie folgt:

Codestart:
DoCmd.OpenReport "Rezept", , , "ID =" & Me!ID
 
i = myDruckjobs.Dokument_in_Spool(Drucker, ActiveDocument.Name,True)     
 
if MsgBox("Möchten Sie einen weiteren Bericht ausdrucken?",vbQuestion+VbyesNo,"Abfrage Berichtsdruck")=vbyes then
goto Codestart
end if
 
EX_end: 
 
 

Jetzt wird dein Code solange angehalten, bis der Ausdruck erfolgt ist und im Anschluss kann über eine msgbox gesteuert werden, ob ein weiterer Druck erfolgen soll.

Gruß Ahmed

Das kannst geht nicht.

Bei einer automatischen Überwachung wird am Ende der Prüfung immer ein Rückgabwert -1 ausgeben, damit der Anwender das Programmende erkennen kann.

Bei einer manuellen Überwachung wird die Anzahl der Druckjobs ausgeben.
Für alle weiteren Interaktionen ist dann der Anwender/Programmierer zuständig.

Ich verstehe auch nicht ganz, was du möchtest.
Du möchtest doch, dass jedesmal am Ende neu entschieden wird, ob ein weiterer Druck erfolgen soll.

Oder du öffnest ein VB(A)-Formular und zwar nicht modal (vbModeless) in der die Abbruchbedingung festgelegt wird.

Aber das kann ich auf die Schnelle auch nicht lösen.

Gruß ahmed