Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz         +++++ Access-Entwickler-Konferenz AEK - Nürnberg 28./29.9. - Hannover 12./13.10. +++++ Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Stammtisch München am 11.07.2019 (Do)
  • StefanWirrer09.07.19 15:03
  • Access 2013 - Dynamisch erstelltes Formular - kuri...
  • kethor25.06.19 12:38
       └ RE: Access 2013 - Dynamisch erstelltes Formular ... PeterDoering25.06.19 13:29
          └ RE: Access 2013 - Dynamisch erstelltes Formula... kethor25.06.19 13:38
             └ RE: Access 2013 - Dynamisch erstelltes Formu... kethor25.06.19 13:43
                └ RE: Access 2013 - Dynamisch erstelltes For... kethor25.06.19 13:50
                   └ RE: Access 2013 - Dynamisch erstelltes F... kethor25.06.19 14:08
                   └ RE: Access 2013 - Dynamisch erstelltes F... PeterDoering02.07.19 00:10
  • Ordnerinhalt (pdf-Dateien) ausdrucken
  • georg586221.06.19 20:36
       └ RE: Ordnerinhalt (pdf-Dateien) ausdrucken PeterDoering23.06.19 20:46
          └ RE: Ordnerinhalt (pdf-Dateien) ausdrucken georg586223.06.19 21:50
             └ RE: Ordnerinhalt (pdf-Dateien) ausdrucken... georg586224.06.19 20:59
                └ RE: Ordnerinhalt (pdf-Dateien) ausdrucken PeterDoering25.06.19 00:23
                   └ RE: Ordnerinhalt (pdf-Dateien) ausdrucken georg586226.06.19 19:18
  • Kontext-Ribbon-Gruppe falsch positioniert
  • Lorenz13.06.19 19:34
       └ RE: Kontext-Ribbon-Gruppe falsch positioniert Gunter Avenius14.06.19 13:30
          └ RE: Kontext-Ribbon-Gruppe falsch positioniert Lorenz26.06.19 16:56
  • GruppenSumme-Fehler in LayoutAnsicht
  • Lorenz20.05.19 12:42
       └ RE: GruppenSumme-Fehler in LayoutAnsicht Lorenz21.05.19 07:26
          └ RE: GruppenSumme-Fehler in LayoutAnsicht Lorenz21.05.19 10:09
             └ RE: LaufendeSumme-Fehler in LayoutAnsicht Lorenz21.05.19 16:02
                └ RE: LaufendeSumme-Fehler in LayoutAnsicht Karl Donaubauer06.06.19 22:28
                   └ RE: LaufendeSumme-Fehler in LayoutAnsicht sks07.06.19 10:13
                   └ RE: LaufendeSumme-Fehler in LayoutAnsich... Lorenz07.06.19 14:29
                      └ RE: LaufendeSumme-Fehler in LayoutAnsi... Karl Donaubauer07.06.19 14:48
                   └ RE: LaufendeSumme-Fehler in LayoutAnsicht Karl Donaubauer25.06.19 11:42
  • Kriterien um im Formular Felder anzuzeigen
  • HQbauer21.06.19 00:25
       └ RE: Kriterien um im Formular Felder anzuzeigen Karl Donaubauer22.06.19 15:49
          └ RE: Kriterien um im Formular Felder anzuzeigen HQbauer24.06.19 09:48
  • Beziehungsfehler ohne erkennbaren Grund
  • domi559916.06.19 14:58
       └ RE: Beziehungsfehler ohne erkennbaren Grund Karl Donaubauer18.06.19 18:33
  • GDI_Plus mit Access2019/Office365 scheitert?
  • Lorenz20.05.19 16:50
       └ RE: GDI_Plus mit Access2019/Office365 scheitert? Lorenz13.06.19 19:19
  • Bericht komplett anzeigen
  • HQbauer08.06.19 18:30
       └ RE: Bericht komplett anzeigen Karl Donaubauer11.06.19 11:18
       └ RE: Bericht komplett anzeigen HQbauer12.06.19 09:11
  • Access-Stammtisch Rhein-Main am Freitag
  • Martin Asal20.05.19 21:43
  • Einladung zum 35. Access-Stammtisch Hannover am 15...
  • KlausWerther14.05.19 19:52
  • Datensätze mit einander vergleichen und bearbeiten
  • BamBam14.05.19 13:30
  • Mehr Datenbanken können nicht geöffnet werden :(
  • Lorenz12.05.19 19:44
       └ RE: Mehr Datenbanken können nicht geöffnet werde... Kontex13.05.19 08:40
          └ RE: Mehr Datenbanken können nicht geöffnet wer... Lorenz13.05.19 21:43
  • Crash im Editmode Access 2007
  • HansP08.05.19 20:25
       └ RE: Crash im Editmode Access 2007 PeterDoering09.05.19 12:30
          └ RE: Crash im Editmode Access 2007 HansP09.05.19 19:34
             └ RE: Crash im Editmode Access 2007 sks10.05.19 09:45
  • Access Stammtisch München am 09.05.2019 (Do)
  • StefanWirrer07.05.19 13:50
    georg5862
    Gesendet: 24.06.19 20:59
    Betreff: RE: Ordnerinhalt (pdf-Dateien) ausdrucken


    Member

    Beiträge: 29
    25
    leider nix genützt - immer noch willkürlich durcheinander... Hier mein Code:

    Funktion:
    Function SortFiles(files)

    ReDim sorted(files.count - 1)
    Dim file, i, j
    i = 0
    For Each file In files
    Set sorted(i) = file
    i = i + 1
    Next
    For i = 0 To files.count - 2
    For j = i + 1 To files.count - 1
    If sorted(i).DateLastModified < sorted(j).DateLastModified Then
    Dim tmp
    Set tmp = sorted(i)
    Set sorted(i) = sorted(j)
    Set sorted(j) = tmp
    End If
    Next
    Next
    SortFiles = sorted
    End Function

    Prozedur:
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim files
    Set files = fso.GetFolder(Ordnernamepdf).files

    Dim file
    For Each file In SortFiles(files)
    If LCase(CStr(file.path)) Like "*.pdf" Then
    ShellExecuteA 0&, "Print", file.path, vbNullString, vbNullString, 0
    End If

    Next file

    Set file = Nothing
    Set files = Nothing
    Set fso = Nothing

    Wo soll denn da noch ein Fehler sein? Die einzigen anderen Zeilen sind die nach dem For Each...

    Georg
    Top of the page Bottom of the page


    Seite: < 1 2 3 4 5 6 7 8 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)