הורדה והדפסה של קובץ PDF - אקסס
-
שבוע טוב.
יש לי קישור לקובץ pdf שאני מעוניין להדפיס אותו. כרגע יש לי קוד VBA שעובד להורדה ושמירה של הקובץ במחשב:Dim request As WinHttpRequest Set request = New WinHttpRequest request.Option(0) = "curl" request.Open "GET", url, False request.send URLDownloadToFile 0, request.Option(1), "C:\Users\1\Downloads\test.pdf", 0, 0 request.abort Set request = Nothing
(הקוד בנוי ככה בגלל שהקישור שיש לי הוא הפניה למיקום אחר, וכך אני מגיע למיקום הסופי של הקובץ).
כעת אני צריך להוסיף בקוד גם הדפסה של הקובץ, ניסיתי עם הקוד הבא:Declare PtrSafe 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 nshowcm As Long) Public Function Print() ShellExecute(Application.hWndAccessApp, "print", path, vbNullString, vbNullString, 0) End Function
אני הוא לא מדפיס לי אותו.
מה אפשר לעשות?
תודה רבה! -
@ארי
אצלי הקוד עובד
אבל- שיניתי את השם של הפונקציה
- הסוגריים של ShellExecute מיותרים .
לדעתי הקוד משתמש בפקודה הדפס שנמצא בלחיצה ימנית על הקובץ,
אם זה אכן כך
תבדוק שאכן יש לך פקודה כזאת, ואם לא שקול להשתמש בתוכנת PDF אחרת
כמו כן בדוק טוב את הגדרות ברירת מחדל של מדפסת ברירת מחדל.