FreePDF_Multidoc » Fehler beim Ausführen von FreePDF

FreePDF_Multidoc » Programme » FreePDF_Multidoc » Fehler beim Ausführen von FreePDF_Multidoc.exe

Themen-Einstellungen

Thema drucken

#1 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

25.04.2013 14:10

MichaelZ

Informationen anzeigen

Beiträge:	11
Registriert seit:	09.11.2012

Hallo!

ich erstelle ein Dokument mit Word (Office 2003 auf Windows Terminal Server 2003) und möchte dieses dann automatisch in ein PDF umwandeln und per Mail versenden. Der VBA-Code ist wie folgt:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Public Sub Send_PDF()
Dim strPfad As String
Dim strDatei As String
Dim strProgramm As String
Dim RunShell As String
Dim i As Integer
Dim strPS_Result As String
Dim strOldPrinter As String
Dim oProps As DocumentProperties
Dim oProp As DocumentProperty
Dim oActive As Word.Document
Dim PDFReady
PDFReady = False
 
Stop
strProgramm = &quot;C:ProgrammeFreePDF_MultidocFreePDF_Multidoc.exe&quot;
strPfad = &quot;H:Temp&quot;
&#039;Pr&uuml;fen ob Temp-Ordner existiert. Falls nicht wird dieser erstellt
If Not IsDiskFolder(strPfad) Then
            MkDir strPfad
End If
strDatei = &quot;Anfrage Nr. &quot; &amp; ActiveDocument.CustomDocumentProperties(&quot;Zeichen&quot;).Value &amp; &quot; - &quot; &amp; ActiveDocument.CustomDocumentProperties(&quot;Belegnummer&quot;).Value
RunShell = strProgramm &amp; &quot; /f &quot; &amp; strDatei &amp; &quot; /p &quot; &amp; strPfad &amp; &quot; /e &quot; &#039; &amp; &quot;/m 1&quot;
Application.Options.PrintBackground = False
 
&#039;Aktuellen Standard-Drucker sichern
strOldPrinter = ActivePrinter
 
ActivePrinter = &quot;FreePDF XP - Multidoc&quot;
 
ActiveDocument.PrintOut
 
&#039;Warten bis Druck vollst&auml;ndig abgeschlossen ist
For i = 1 To 100
    Sleep (5)
Next
 
&#039;Pr&uuml;fen ob PDF bereits existiert. Falls ja dann wird gel&ouml;scht
Do While PDFReady = False
    PDFReady = IsFile(strPfad &amp; strDatei &amp; &quot;.pdf&quot;)
    If PDFReady = False Then
        Kill strPfad &amp; strDatei &amp; &quot;.pdf&quot;
    End If
Loop
 
&#039;Hier tritt der Fehler auf !!!!!!!!!!!!!!!!!!!!!!
Shell RunShell
 
Application.Options.PrintBackground = True
 
&#039;Standard-Drucker wiederherstellen
ActivePrinter = strOldPrinter
 
&#039;PDF-Dokument wird nun per Mail versendet
Call Mailversand(strPfad, strDatei)
 
End Sub
 

Beim Aufruf von Shell RunShell kommt die Fehlermeldung (von Ghostscript):

1
2
3
4
 
%%[ Error: undefined; OffendingCommand: Bediener ]%%
 
GhostScript Error 1
Fehler, kein PDF erzeugt! (False)
 

Wir haben 4 Terminal-Server im Einsatz und auf 2 davon funktioniert es.

Hat jemand eine Idee was ich hier falsch mache?

Michael

Antworten

#2 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

25.04.2013 21:51

Hallo MichaelZ,

tut mir leid, mit TS kenne ich mich nicht aus.
Ich kann dir da leider nicht weiter helfen.

Auf jeden Fall kommt der Fehler von GS und nicht von meinem Programm FreePDF_Multidoc. So weit, so gut.

Noch eine Anmerkung:

Wenn Du keinen Pfad mit angibst und eine Mail erstellen willst, wird diese einfach im Tmp-Ordner gespeichert und dann versendet. Du brauchst also nicht die Datei selbst zu löschen.

Beispiel:

RunShell = strProgramm & " /f " & strDatei & " /e " ' & "/m 1"
Application.Options.PrintBackground = False

'Aktuellen Standard-Drucker sichern
strOldPrinter = ActivePrinter

ActivePrinter = "FreePDF XP - Multidoc"

ActiveDocument.PrintOut

'Warten bis Druck vollständig abgeschlossen ist
For i = 1 To 100
Sleep (5)
Next

Diese Anweisung ist dann überflüssig:

'Prüfen ob PDF bereits existiert. Falls ja dann wird gelöscht
Do While PDFReady = False
PDFReady = IsFile(strPfad & strDatei & ".pdf")
If PDFReady = False Then
Kill strPfad & strDatei & ".pdf"
End If
Loop

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#3 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 07:57

Hallo!

Danke für die schnelle Antwort auch wenn mir diese jetzt nicht wirklich weiter hilft. Das komische ist, dass wenn ich das PDF manuell erstelle dann klappt es. Ich klicke einfach auf das Multidoc-Symbol in der Taskleiste und speichere dann dass PDF (z.B. auf dem Desktop). Dann läuft alles wunderbar durch.

Na ich werde dann wohl noch etwas auf die Suche gehen müssen

Michael

Antworten

#4 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 09:20

Es ist so, dass die Redrun.exe im Hintergrund den Benutzer wechselt, damit die Druckerumleitung funktioniert. Eventuell ist es deshalb auch nur ein Zeitproblem.

Versuche es doch einmal, noch eine kleine Sleep-Anweisung von 1 sec. mit einzubauen. Manchmal hilft das schon, damit das System wieder kurz durchatmen kann.

Ansonsten würde ich einfach noch einmal deine Frage im Forum von FreePDF stellen. Eventuell kann dir dort besser geholfen werden.

Der Link ist wie folgt:

http://www.freepdfxp.de/Forum/thread.php...oftware.freepdf

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#5 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 13:39

MichaelZ

Informationen anzeigen

Beiträge:	11
Registriert seit:	09.11.2012

Hallo!

habe jetzt meinen Code noch etwas überarbeitet und es klappt jetzt. Zum einen habe ich die Printjobs.dll eingebunden und zusätzlich noch mal eine kleine Warteschleife.

Hier jetzt mein endgültiger Code, vielleicht kann ihn ja jemand brauchen :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 

Public Sub Send_PDF()
Dim strPfad As String
Dim strDatei As String
Dim strProgramm As String
Dim RunShell As String
Dim i As Integer
Dim strPS_Result As String
Dim strOldPrinter As String
Dim oProps As DocumentProperties
Dim oProp As DocumentProperty
Dim oActive As Word.Document
Dim PDFReady
Dim myDruckjobs As New Druckauftrag
 
PDFReady = False
 
strProgramm = &quot;C:ProgrammeFreePDF_MultidocFreePDF_Multidoc.exe&quot;
strPfad = &quot;H:Temp&quot;
If Not IsDiskFolder(strPfad) Then
            MkDir strPfad
End If
strDatei = &quot;Anfrage Nr. &quot; &amp; ActiveDocument.CustomDocumentProperties(&quot;Zeichen&quot;).Value &amp; &quot; - &quot; &amp; ActiveDocument.CustomDocumentProperties(&quot;Belegnummer&quot;).Value
RunShell = strProgramm &amp; &quot; /f &quot; &amp; strDatei &amp; &quot; /p &quot; &amp; strPfad &amp; &quot; /e &quot; &#039; &amp; &quot;/m 1&quot;
Application.Options.PrintBackground = False
&#039;Aktuellen Standarddrucker merken
strOldPrinter = ActivePrinter
 
ActivePrinter = &quot;FreePDF XP - Multidoc&quot;
 
ActiveDocument.PrintOut
 
&#039;Warten bis der Druckauftrag beendet ist
x = 1
Do While x  0
    x = myDruckjobs.Dokument_in_Spool(&quot;FreePDF XP - Multidoc&quot;, &quot;&quot;, True)
Loop
 
&#039;Dem Programm noch mal ne kleine Pause g&ouml;nnen
For i = 1 To 10
    Sleep (5)
Next
&#039;PDF l&ouml;schen flas es bereits vorhanden ist
Do While PDFReady = False
    PDFReady = IsFile(strPfad &amp; strDatei &amp; &quot;.pdf&quot;)
    If PDFReady = False Then
        Kill strPfad &amp; strDatei &amp; &quot;.pdf&quot;
    End If
Loop
 
Shell RunShell
Application.Options.PrintBackground = True
&#039;Alten Standarddrucker wieder setzen
ActivePrinter = strOldPrinter
 
&#039;Erstelltes PDF-Dokument nun per mail versenden
Call Mailversand(strPfad, strDatei)
 
End Sub
 
 

Michael

Antworten

#6 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 14:07

Freut mich das es jetzt klappt.

Nur einen Hinweis:

'x = 1
'Do While x 0
x = myDruckjobs.Dokument_in_Spool("FreePDF XP - Multidoc", "", True)
'Loop

Die Schleife ist nicht nötig, da der Programmcode durch die Wait-Anweisung sowieso stoppt wird. Die Prüfung ergibt also immer als Rückgabewert = 0.

'Dem Programm noch mal ne kleine Pause gönnen
'=>Sleep wird in Millisekunden gezählt.
'Besser wäre: immer 1 sec. zu warten, da 5 Millisec. einfach zu kurz sind.

'For i = 1 To 10
Sleep (1000)
'Next

Versuche es einmal so. Damit arbeitet das Programm insgesamt stabiler.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#7 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 14:32

Hallo Ahmed!

hab mich leider zu früh gefreut. Der Fehler tritt immer noch auf. Jetzt aber bei einem TS auf dem Code bereits funktioniert hat. Auch Deine vorgeschlagenen Änderungen bringen keinen Erfolg.

Zuerst erscheint immer die Fehlermeldung von FreePDF:

%%[Error: undefined; OffendingCommand: Bediener ]%%

GhostScript Error 1
Fehler, kein PDF erzeugt! (False)

Nach dem Schließen des Fensters erscheint die folgende Fehlermeldung von Multidoc:

Fehler in Zeile: 340

Fehlernr.: 58 (Datei existiert bereits) in Prozedur Convert_PSFile von Modul mdlpdftk

Ich muss dann den Prozess FreePDF_Multidoc beenden, da sonst eine Endlosschleife läuft.

Michael

Antworten

#8 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 16:20

Lösche einmal alle PS-Dateien in dem Ablagepfad und versuche es noch einmal.
Manchmal bleiben einfach noch Reste über.

Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#9 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 16:38

Hallo Ahmed,

ich habe auf dem betreffenden Server alle Dateien unter

...All UsersFreePDF

gelöscht. Jetzt taucht der Fehler nicht mehr auf. Ich hoffe mal das war es jetzt endgültig.

Besten Danke für die Unterstützung.

Michael

Antworten

#10 | RE: Fehler beim Ausführen von FreePDF_Multidoc.exe datum

26.04.2013 17:58

Gerne geschehen und weiterhin viel Spaß mit meinem Programm.

Bei Fragen oder Problemen einfach hier melden.

Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

Alles rund um FreePDF und andere Tools