MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Office - Allgemein
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 18.06.2019, 19:42   #1
georg5862
Neuer Benutzer
Neuer Benutzer
Standard Frage - Scripting VBA Ordnerinhalt pdf ausdrucken

Hallo Forum,

mit nachstehendem Code drucke ich aus Access 2013-VBA den Inhalt eines Ordners (gesamter Pfad = Ordnernamepdf) - es sind alles pdf-Dateien - mit einem Klick aus. Allerdings erfolgen die Ausdrucke in einer willkürlichen Reihenfolge. Hat jemand eine Idee, wie ich die Ausdrucke z.B. A-Z erstellen kann?

Danke für Eure Rückmeldungen!

Georg

====Code=====

Dim strPath As String
Dim FSO As Object, F1 As Object
strPath = Ordnernamepdf
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.GetFolder(strPath)

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

Set F1 = Nothing
Set FSO = Nothing
georg5862 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2019, 08:52   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Georg,

hat Dir die Antwort zu Deiner Deiner gleichlautenden Frage zu Access nicht zugesagt?

Wenn ich Deinen Code bei mir laufen lasse erhalte ich die Dateien immer in alphabetischer Reihenfolge. Warum ist das bei Dir nicht so?

Möglichkeiten zur Umgehung:
  • Du könntest die Dateien wie schon vorgeschlagen selbst sortieren. Im Netz werden viele Wege gezeigt dies zu bewerkstelligen.

  • Du könntest die Indexfähigkeit einer Collection oder eines Dictionary-Objektes nutzen.

  • Statt des FileSystemObjects könntest Du via wscript.shell Dateien in sortierter Folge ausgeben lassen.

__________________


Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2019, 09:08   #3
derHoepp
MOF User
MOF User
Standard

Moinsen,

selbst wenn das FSO die Dateien richtig sortiert übergibt, hast du keinen Einflussdarauf, wie die Print-Anweisung die Druckschlange füllt und wie die Druckschlange abgearbeitet wird. Das gleiche Phänomen tritt auch auf, wenn mehrere Datein markiert und aus dem Explorer heraus mit der Rechten Maustaste an den Drucker gesendet werden.

Einzige mir bekannte mögliche Umgehungsmöglichkeit: Eine Bremse einbauen.

Viele Grüße
derHöpp
derHoepp ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2019, 09:16   #4
georg5862
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Hallo Haklesoftder und DerHoepp

@Haklesoft: im Accessforum hatte ich die Antwort zu spät gesehen. Die hat mir aber auch erstmal nicht weitergeholfen, da ich mich mit Arrays (noch) nicht auskenne. Ich dachte, hier im Windowsforum bin ich richtiger.

@ DerHoepp: du beschreibst genau das Problem: die Dateien sind im Ordner richtig sortiert, das erste pdf-Dokument beginnt mit 01.... usw.
Beim Ausdruck (Drucker auf offline gestellt) sehe ich am Druckdatum, dass die Ausdrucke willkürlich, ohne nachvollziehbare Reihenfolge, ablaufen würden. Genau, als wenn ich im Explorer das mit der rechten Maustaste mache... es liegt also am Drucksystem...
Wie könnte ich da eine Bremse einbauen?

Danke!

Georg
georg5862 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2019, 09:57   #5
derHoepp
MOF User
MOF User
Standard

Moin,

mit Access kenn ich mich wenig aus. Im Zweifel würd ich einfach eine Zeitabhänigege Loop, die Nix tut außer die Events zu verarbeiten einbauen (ungetestet):
PHP-Code:

Dim TimBef as Double
'dein druckcode in der äußeren Schleife
   TimBef = VBA.Timer
   Do While (TimBef + 0.5) < VBA.Timer
      DoEvents
   Loop
'
Deine äußere Schleife 
Viele Grüße
derHöpp
derHoepp ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.06.2019, 14:42   #6
georg5862
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Rückmeldung

Danke für den Tipp: nützt leider auch nix... die Dateien kommen aus dem Drucker, wie sie wollen - nur nicht in der richtigen Reihenfolge. Muss halt weiter probieren...

Georg
georg5862 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:31 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.