דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. הורדה והדפסה של קובץ PDF - אקסס

הורדה והדפסה של קובץ PDF - אקסס

מתוזמן נעוץ נעול הועבר תכנות
4 פוסטים 2 כותבים 172 צפיות 2 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מחובר
    א מחובר
    ארי
    כתב ב נערך לאחרונה על ידי
    #1

    שבוע טוב.
    יש לי קישור לקובץ 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
    

    אני הוא לא מדפיס לי אותו.
    מה אפשר לעשות?
    תודה רבה!

    א תגובה 1 תגובה אחרונה
    0
    • א ארי

      שבוע טוב.
      יש לי קישור לקובץ 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
      

      אני הוא לא מדפיס לי אותו.
      מה אפשר לעשות?
      תודה רבה!

      א מחובר
      א מחובר
      ארי
      כתב ב נערך לאחרונה על ידי
      #2

      @ארי הקפצה.
      אשמח אם מישהו יוכל לעזור.
      תודה!

      מנחםמ תגובה 1 תגובה אחרונה
      0
      • א ארי

        @ארי הקפצה.
        אשמח אם מישהו יוכל לעזור.
        תודה!

        מנחםמ מנותק
        מנחםמ מנותק
        מנחם
        כתב ב נערך לאחרונה על ידי מנחם
        #3

        @ארי
        אצלי הקוד עובד
        אבל

        1. שיניתי את השם של הפונקציה
        2. הסוגריים של ShellExecute מיותרים .

        לדעתי הקוד משתמש בפקודה הדפס שנמצא בלחיצה ימנית על הקובץ,
        אם זה אכן כך
        תבדוק שאכן יש לך פקודה כזאת, ואם לא שקול להשתמש בתוכנת PDF אחרת
        כמו כן בדוק טוב את הגדרות ברירת מחדל של מדפסת ברירת מחדל.

        א תגובה 1 תגובה אחרונה
        0
        • מנחםמ מנחם

          @ארי
          אצלי הקוד עובד
          אבל

          1. שיניתי את השם של הפונקציה
          2. הסוגריים של ShellExecute מיותרים .

          לדעתי הקוד משתמש בפקודה הדפס שנמצא בלחיצה ימנית על הקובץ,
          אם זה אכן כך
          תבדוק שאכן יש לך פקודה כזאת, ואם לא שקול להשתמש בתוכנת PDF אחרת
          כמו כן בדוק טוב את הגדרות ברירת מחדל של מדפסת ברירת מחדל.

          א מחובר
          א מחובר
          ארי
          כתב ב נערך לאחרונה על ידי
          #4

          @מנחם אתה צודק.
          שכחתי להוסיף מידע חשוב. לא מותקנת לי תוכנה של pdf, אלא אני משתמש בדפדפן Edge לפתוח קבצי pdf.
          האם בשביל הקוד הזה אני חייב אדובי במחשב?

          תגובה 1 תגובה אחרונה
          0
          תגובה
          • תגובה כנושא
          התחברו כדי לפרסם תגובה
          • מהישן לחדש
          • מהחדש לישן
          • הכי הרבה הצבעות


          בא תתחבר לדף היומי!
          • התחברות

          • אין לך חשבון עדיין? הרשמה

          • התחברו או הירשמו כדי לחפש.
          • פוסט ראשון
            פוסט אחרון
          0
          • דף הבית
          • קטגוריות
          • פוסטים אחרונים
          • משתמשים
          • חיפוש
          • חוקי הפורום