FreePDF_Multidoc » Fehler bei Konvertierung (VBA)

FreePDF_Multidoc � Programme � FreePDF_Multidoc � Fehler bei Konvertierung (VBA)

Themen-Einstellungen

Thema drucken

#1 | RE: Fehler bei Konvertierung (VBA) datum

18.02.2010 16:52

Anonymous ( Gast )

Hallo Ahmed!

Erstmal ein Riesenkompliment für FreePDF_Multidoc. ich arbeite schon länger mit dem Drucker FreePDF und such jetzt auch schon seit längerem nach einer Anleitung wie ich automatisiert PDFs aus Word bzw. Excel per VBA erstellen kann.

Ich habe mich an Deine Anleitung gehalten und einen Multidoc_Drucker eingerichtet. Den kann ich auch ansprechen.

Wenn ich jedoch per VBA drucken möchte, bekomme ich folgende Fehlermeldung:

Keine oder falsch betitelte PS-Dateien gefunden.

Hier mein VBA-Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Sub Speichern()
Dim strDateiname As String, strDateipfad As String
Dim strAntwort As String
Dim strOldPrinter As String
 

strDateiname = Range(&quot;A1&quot;).Value
strDateipfad = &quot;Y:&quot;
strOldPrinter = Application.ActivePrinter
 
ActiveWorkbook.SaveAs (strDateipfad &amp; &quot;&quot; &amp; strDateiname &amp; &quot;.xls&quot;)
 
Range(&quot;A1&quot;).Select
Application.ActivePrinter = &quot;FreePDF XP - Multidoc auf Ne08:&quot;
ActiveWindow.SelectedSheets.PrintOut
 
Shell &quot;C:ProgsFreePDF_MultidocFreePDF_Mult
idoc.exe /f &quot; &amp; strDateiname &amp; &quot; /p &quot; &amp; strDateipfad
 
Application.ActivePrinter = strOldPrinter
 
End Sub
 

Hast Du eine Idee für mich?

Gruß
Seinfeld

Antworten

#2 | RE: Fehler bei Konvertierung (VBA) datum

18.02.2010 17:01

Hallo Seinfeld,

ich vermute, dass sich die Ausdrucke noch in dem Druckspeicher befinden und FM kann Sie demnach nicht finden.

Verwende entweder

a) die Druckjob-Regiezentrale oder
b) binde die Printjob.dll über Verweise ein.

Da Du alles in VB(A) sowieso selber machst, ist die zweite Variante die bessere.
Wie Du die Printjob.dll verwendest, habe ich unter der Rubrik Tools beschrieben.

Lade Dir die DLL runter und kopiere Sie in Dein Programmverzeichnis. In Excel jetzt einfach im VB-Editor unter Extras - > Verweise und dem Button 'Durchsuchen' die Printjob.dll auswählen.

Nun einfach wie beschrieben die DLL im Code verwenden.

Bei Problemen stehe ich Dir gerne hier weiterhin zur Verfügung.

Gruß Ahmed

PS: Zum Wochenende werde ich noch eine Online-Demonstration für das Einbinden und Verwenden der DLL bereitstellen.

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 bei Konvertierung (VBA) datum

19.02.2010 11:34

Anonymous ( Gast )

Hallo Ahmet,

danke erstmal für die schnelle Antwort.

Ich habe bereits eine Lösung gefunden. Nachdem ich im Gästebuch das Forum endeckt hatte. Ich bin dann mal auf Suche gegangen und habe gesehen, dass bereits ein anderer Anwender das Problem hatte.

In meinen VBA-Code habe ich dann folgendes eingebunden:

Modulkopf:

1
 
Private Declare Sub Sleep Lib &quot;kernel32&quot; (ByVal dwMilliseconds As Long)

Im VBA-Code dann Sleep 1000 eingebunden:

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
 
Public Sub Speichern()
Dim strDateiname As String, strDateipfad As String
Dim strAntwort As String
Dim strOldPrinter As String
 

strDateiname = Range(&quot;A1&quot;).Value
strDateipfad = &quot;Y:&quot;
strOldPrinter = Application.ActivePrinter
 
ActiveWorkbook.SaveAs (strDateipfad &amp; &quot;&quot; &amp; strDateiname &amp; &quot;.xls&quot;)
 
    Range(&quot;A1&quot;).Select
    Application.ActivePrinter = &quot;FreePDF XP - Multidoc auf Ne08:&quot;
    ActiveWindow.SelectedSheets.PrintOut
 
&#039;Achtung: Ne04 wird bei dem neuen Drucker nicht richtig sein.
&#039;         Bitte Druckeranschluss entsprechend ab&auml;ndern.
 
Sleep 1000
 
Shell &quot;C:ProgsFreePDF_MultidocFreePDF_Multidoc.exe /f &quot; &amp; strDateiname &amp; &quot; /p &quot; &amp; strDateipfad
 
Application.ActivePrinter = strOldPrinter
 
End Sub
 
 

jetzt läuft alles super!

Deine beiden genannten Alternativen werde ich mir aber auch nochmal genauer ansehen!

Viele Grüße
Seinfeld

Antworten

#4 | RE: Fehler bei Konvertierung (VBA) datum

19.02.2010 12:08

Hallo Seinfeld,

freut mich zu hören, dass das jetzt funktioniert.

Aber ein Sleep alleine kann zu kurz sein. Stell Dir vor, Du möchtest umfangreiche Ausdrucke durchführen, dann führt das nicht zum gewünschten Ergebnis.

Deshalb empfehle ich ja auch die Printjobs.dll. 8)

Damit wird der Druckspooler für einen bestimmten Drucker überwacht und der Programmcode wird solange angehalten, bis auch wirklich der letzte Ausdruck erfolgte.

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

Alles rund um FreePDF und andere Tools