|
ich rate von dieser Vorgehensweise ab.
also sofern ich dich bisher richtig verstanden habe, willst du irgend ein Dokument aus Office heraus als pdf drucken.
Nach einigem Grübeln wäre es wohl das beste du installierst dir einen Pdf-Drucker treiber.
An den kan man Dokumente schicken und der macht daraus eine pdf Datei. Somit bäuchtest du nur einen Befehl ,der einen Dateipfad und den Drucker zusammen bringt.
Option Explicit
#If Win64 Or VBA7 Then
Private Declare PtrSafe Function ShellExecuteA Lib "Shell32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
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
#End If
Sub Dialog_Print_Out()
Dim res
With Application.FileDialog(msoFileDialogFilePicker)
.Show
res = ShellExecuteA(0&, "printto", .SelectedItems(1), Chr(34) & "Soda PDF Desktop 12" & Chr(34), vbNullString, 0&)
End With
End Sub
Wie dein Drucker genau heisst mußt noch herausfinden. die Variable res kann man noch nutzen um herauszufinden ob was schiefgelaufen ist.
|