Thema Datum  Von Nutzer Rating
Antwort
22.02.2024 21:49:34 GTA
Solved
22.02.2024 23:16:14 ralf_b
NotSolved
22.02.2024 23:30:23 GTA
NotSolved
23.02.2024 06:45:26 ralf_b
NotSolved
23.02.2024 08:40:58 Gast7437
NotSolved
25.02.2024 01:27:12 Gast3329
NotSolved
23.02.2024 08:41:02 Gast9618
NotSolved
23.02.2024 19:35:25 ralf_b
NotSolved
24.02.2024 11:13:32 Gast7849
NotSolved
25.02.2024 11:32:08 GTA
NotSolved
25.02.2024 11:53:16 ralf_b
NotSolved
25.02.2024 22:16:17 GTA
NotSolved
Rot Beliebiges Dokument in einem Ordner als PDF drucken
26.02.2024 00:56:15 ralf_b
NotSolved
27.02.2024 06:52:51 Gast17147
NotSolved
27.02.2024 17:20:03 ralf_b
Solved
29.02.2024 12:53:28 Gast47604
NotSolved
29.02.2024 13:06:21 Mase
NotSolved
29.02.2024 21:32:09 Gast13146
NotSolved
01.03.2024 12:35:24 GTA
Solved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
26.02.2024 00:56:15
Views:
159
Rating: Antwort:
  Ja
Thema:
Beliebiges Dokument in einem Ordner als PDF drucken

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. 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.02.2024 21:49:34 GTA
Solved
22.02.2024 23:16:14 ralf_b
NotSolved
22.02.2024 23:30:23 GTA
NotSolved
23.02.2024 06:45:26 ralf_b
NotSolved
23.02.2024 08:40:58 Gast7437
NotSolved
25.02.2024 01:27:12 Gast3329
NotSolved
23.02.2024 08:41:02 Gast9618
NotSolved
23.02.2024 19:35:25 ralf_b
NotSolved
24.02.2024 11:13:32 Gast7849
NotSolved
25.02.2024 11:32:08 GTA
NotSolved
25.02.2024 11:53:16 ralf_b
NotSolved
25.02.2024 22:16:17 GTA
NotSolved
Rot Beliebiges Dokument in einem Ordner als PDF drucken
26.02.2024 00:56:15 ralf_b
NotSolved
27.02.2024 06:52:51 Gast17147
NotSolved
27.02.2024 17:20:03 ralf_b
Solved
29.02.2024 12:53:28 Gast47604
NotSolved
29.02.2024 13:06:21 Mase
NotSolved
29.02.2024 21:32:09 Gast13146
NotSolved
01.03.2024 12:35:24 GTA
Solved