Externe Dateien drucken

Die nachfolgend beschriebene Funktion dient zum Ausdrucken externer Dateien - dabei kann es sich um beliebige Dateitypen handeln, die allerdings registriert sein müssen. 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