Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Externe Dateien drucken

Die nachfolgend beschriebene Funktion dient zum Ausdrucken externer Dateien - dabei kann es sich um beliebige Dateitypen handeln, die allerdings registriert sein mssen. Die Funktion erfordert die vorherige Deklaration einer API-Funktion namens ShellExecute. Als bergabeparameter dienen der Dateiname (zum Beispiel test.pdf) sowie der Pfad zu der Datei (zum Beispiel c:\). Die getrennte Angabe ist erforderlich, weil die API-Funktion die Daten in dieser Form erwartet.

Private Declare Function ShellExecute Lib "shell32.dll" Alias _

        "ShellExecuteA" (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

Function DateiDrucken(strDateiname As String, strVerzeichnis As String)

    Const SW_SHOWNORMAL = 1

    StartDoc = ShellExecute(Application.hWndAccessApp, "Print", strDateiname, "", strVerzeichnis, SW_SHOWNORMAL)

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.