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
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
Rot Rot Beliebiges Dokument in einem Ordner als PDF drucken
01.03.2024 12:35:24 GTA
Solved

Ansicht des Beitrags:
Von:
GTA
Datum:
01.03.2024 12:35:24
Views:
93
Rating: Antwort:
 Nein
Thema:
Beliebiges Dokument in einem Ordner als PDF drucken

Endlich komme ich dazu auch noch ein wenig Code euch zu präsentieren:

Verbesserungsvorschläge sind willkommen. Auf jedenfall habe ich das getestet und damit 100 PDF's innert 40 Minuten generieren können.

    Private Declare PtrSafe Function GetWindowTextA Lib "user32" _
        (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal nMaxCount As Long) As Long
    Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
    Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr

Public Function Speicher_unter_warten() As String
Dim strLCData As String
Dim lngSize As Long

lngSize = 255
strLCData = String(lngSize, vbNullChar)
t = Timer
Do                                                          '5 Sek warten
   GetWindowTextA GetForegroundWindow, strLCData, lngSize
   apiWindowText = Replace(strLCData, vbNullChar, "")

If InStr(apiWindowText, "Speichern unter") Then Exit Do
Loop Until (t + 120) < Timer
End Function

 


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
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
Rot Rot Beliebiges Dokument in einem Ordner als PDF drucken
01.03.2024 12:35:24 GTA
Solved