PDF Drucken VBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Datei As String, NeuDatei As String, Pfad As String, NeuPfad As String Dim strOff As String, Ext As String If Target.Column = 4 Then If Target "" Then Ext = ".pdf" strOff = "\123\4567 789\" Pfad = ThisWorkbook.Path Datei = Target NeuPfad = Left(Pfad, InStrRev(Pfad, "\") - 1) & strOff If Dir(NeuPfad, vbDirectory) "" Then NeuDatei = NeuPfad & Datei & Ext If Dir(NeuDatei) "" Then ' ActiveWorkbook.FollowHyperlink NeuPfad & Datei & Ext '-> Hier müsste anstatt des Hyperlinks der Befehl rein

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Sabine
Ich habe mir da kürzlich was aus dem Netz kopiert und leicht modifiziert. (die Quelle weiss ich leider nicht mehr)
Range("B1") müsstest du durch deinen Pfad ersetzen.
Wenn die PDF unterschiedliche Länge haben und wenn die Reihenfolge relevant ist, dann müsstest du ggf. eine zeitliche Verzögerung (Wait) um 1-2 Sekunden einbauen. Ansonsten kommt die Reihenfolge durcheinander (kleine Dokumente "überholen" längere Dokumente).
Zudem müsstest du bei grossen Stapelverarbeitungen den "Sleep-Modus" von Windows deaktivieren. Der Prozess unterbricht sonst.
cu
Chris
Private Declare


Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long _
) As Long

Sub prcPrint_PDF()
Dim strPath As String
Dim FSO As Object, F1 As Object
strPath = Tabelle1.Range("B1")
If Right(strPath, 1)  "\" Then strPath = strPath & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.Getfolder(strPath)
If Not MsgBox(FSO.Files.Count & " Dateien werden auf den Standard-/Default-Drucker ausgegeben.", _
vbInformation + vbYesNo) = vbYes Then Exit Sub
For Each F1 In FSO.Files
If LCase(CStr(F1.Path)) Like "*.pdf" Then
ShellExecuteA 0&, "Print", F1.Path, vbNullString, vbNullString, 0
End If
Next F1
End Sub

Hab jetzt es jetzt hin und her versucht. Aber leider ist die Deklaration nicht erfolgreich weil sie sich auch jedesmal rot färbt sobald ich diese einfüge. So ist der aktuelle Code:
Private Declare
Function ShellExecuteA Lib "shell32.dll" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long _
) As Long
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Datei As String, NeuDatei As String, Pfad As String, NeuPfad As String
Dim strOff As String, Ext As String
If Target.Column = 4 Then
If Target "" Then
Ext = ".pdf"
strOff = "\123\456 789\"
Pfad = ThisWorkbook.Path
Datei = Target
NeuPfad = Left(Pfad, InStrRev(Pfad, "\") - 1) & strOff
If Dir(NeuPfad, vbDirectory) "" Then
NeuDatei = NeuPfad & Datei & Ext
If Dir(NeuDatei) "" Then
Call ShellExecute(0, "print", NeuPfad & Datei & Ext, "", "", nShowCmd)
Else
MsgBox NeuDatei & " NICHT gefunden", vbCritical
End If
Else
MsgBox "Pfad nicht gefunden", vbCritical
End If
End If
End If
End If

Private Declare Function ShellExecuteA Lib "shell32.dll" ( _ ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long _ ) As Long

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF Drucken VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread