Access - VBA - Ausdruck einer PDF Datei

Hallo Gemeinschaft,

möchte gerne per vba eine pdf Datei ausdrucken

habe in meiner db die vollständige Adresse zur pdf Datei hinterlegt und möchte diese per klick ausdrucken

könnt ihr da helfen

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 8630617063

Url: https://administrator.de/forum/access-vba-ausdruck-einer-pdf-datei-8630617063.html

Ausgedruckt am: 22.12.2024 um 10:12 Uhr

5 Kommentare

Neuester Kommentar

Hallo,

Zitat von @jensgebken:
möchte gerne per vba eine pdf Datei ausdrucken

https://learn.microsoft.com/de-de/office/vba/api/access.docmd.printout
https://learn.microsoft.com/de-de/office/vba/api/access.report.print
https://www.access-programmers.co.uk/forums/threads/vba-code-to-print-an ...
https://answers.microsoft.com/en-us/msoffice/forum/all/print-an-access-r ...
https://www.tek-tips.com/viewthread.cfm?qid=1400175
https://www.mrexcel.com/board/threads/print-an-external-file-from-access ...
usw
usw
usw

Gruß,
Peter

Declare PtrSafe Function apiShellExecute 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  

Public Sub PrintFile(ByVal strFile As String)
    Dim inthWnd As Long
    inthWnd = IIf(Application.Name = "Microsoft Access", hWndAccessApp, hwnd)  
    Call apiShellExecute(inthWnd, "print", strFile, vbNullString, vbNullString, 0)  
End Sub

Sub Test()
   PrintFile "C:\Test.pdf"  
End Sub

hi pjumper - bekomme das script leider nicht zum laufen auf einem 64 bit

habe diesen code so geändert

Declare PtrSafe Function apiShellExecute 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  

bekomme dann bei der ausführung des printbefehls aber diesen fehler
Object unterstützt die methode nicht

Application.hWnd war noch für eine andere Office-Anwendung, bitte ändern in Application.hWndAccessApp

Habe das oben etwas angepasst. Klappt hier dann problemlos.