Office: mehrere PDF Dokumente aus Excel drucken

Folgendes Problem:
Ich habe 2 Tabellen, in der 1 Tabelle stehen in Spalte A - Dokumentennamen wie z.B. pdf1.pdf, pdf2.pdf bis pdf100.pdf. in der Spalte B daneben steht zu jeder Pdf entweder a, b oder c.
In der 2 Tabelle steht ein Inhaltsverzeichnis, in dem ich aus der Tabelle 1 über a,b oder c verschieden pdf´s filtere.
Nun möchte ich die gefilterten (angezeigten) pdf´s die ich in meinem Verzeichnis c:\Temp\Test abgelegt habe ausdrucken.
Hierfür würde ich ein Makro benötigen, das aus der Tabelle 2 alle angezeigten PDF Dokumente aus meinem genannten Verzeichnis ausdruckt, ohne Adobe Reader zu öffnen.

1000 Dank Vorab

:)

 

nehm doch einfach den PDF Drucker FreePDF

 

Hallo Matthias,

ich glaube du hast etwas anderes gemeint als Erich anbot.
Schau mal hier, vielleicht kannts du den Adobe Reader per Komandozeile ansprechen zum Drucken (daws program wird aber dabei wohl aufgehen)

http://www.ms-office-forum.net/forum...30&postcount=4

Mittels einer Programmschleife über deine gefilterten Zeilen, könntest du so einzeln den Druck vermutlich auslösen, für jedes einzelne Dokument/PDF.

Alternativ fällt mir mit gleicher Programschleife nur noch die Kombination mit dem Befehl SENDKEY ein, die aber unsicher ist gerade bei so vielen Durchgängen, daher keine nähere Erläuterung dazu.

Gruß, Jotto12

 

Hallo Jotto12 erst einmal Danke, funkt aber immer noch nicht so wie ich ihn benötige.

der Code sieht jetzt so aus.
Sub drucken_PDF()
str_shell = ""
str_shell = str_shell & """" & "C:\Programme\Adobe\Reader 9.0\Reader\AcroRd32.exe" & """"
str_shell = str_shell & " /p /h " & """" & "C:\TEMP\Test\PDF1.pdf" & """"

If MsgBox("Ausführen von: " & str_shell, vbOKCancel) = vbOK Then

Shell (str_shell)

End If
End Sub

dieser druckt aber immer nur die PDF´s aus, die ich in dem code stehen habe.
Was meinst Du mit der Programmschleife über die gefilterten Zeilen?
Da ich mit VBA eigentlich überhaupt nichts am Hut habe, könntest Du mir vieleicht den Code so gestalten, das er für meine Zwecke passt ????(Danke Vorab).

 

Danke Erich, aber ich glaube Du hast mich falsch verstanden. SRY