Results 1 to 4 of 4
  1. #1
    GaryPanicZ is offline Novice
    Windows 10 Access 2013 64bit
    Join Date
    May 2020
    Posts
    25

    Embedded pictures get lost on output to pdf ? any solutions

    Hi Guys



    the following works ish - but losses the embedded picture in the report heading ?
    any solutions ? -(Its weird as I have this on another D/B and it seems to work there but not on the below ,,)




    '###
    Dim strFileName As String
    Dim folderdestination As String
    Dim strReport As String

    If Me.FormFilter = 1 Then

    strReport = "TravelH"
    'strFileName = "Certificate" & " " & Me.QuoteNo


    strFileName = "S:\xxxxxx\AaaaaaaaL\CLIENTS\52674" & "Certificate" & " " & Me.QuoteNo & ".pdf"

    Pause (0.5)
    DoCmd.OpenReport strReport, acViewPreview, , acHidden

    Pause (2)
    DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName, False

    DoCmd.Close acReport, strReport

  2. #2
    CJ_London is offline VIP
    Windows 10 Access 2010 32bit
    Join Date
    Mar 2015
    Posts
    11,398
    suggest try using doevents rather than pause

  3. #3
    GaryPanicZ is offline Novice
    Windows 10 Access 2013 64bit
    Join Date
    May 2020
    Posts
    25
    Quote Originally Posted by Ajax View Post
    suggest try using doevents rather than pause
    I will give that a go...
    I may of got round it by droping the embedded logo (jpeg) to a different lower quality format .....I will see if that is acceptable - but will see what you idea does as well

    regards

    Hope you are keeping well

  4. #4
    isladogs's Avatar
    isladogs is offline MVP / VIP
    Windows 10 Access 2010 32bit
    Join Date
    Jan 2014
    Location
    Somerset, UK
    Posts
    5,954
    JPG files are a lossy format to reduce file size and already low resolution.
    I would recommend using PNG files instead which are a similar size but higher quality.

    Agree with the advice to use DoEvents which will pause the processor only for the time needed to complete the task rather than the arbitrary values you have assigned
    Colin, Access MVP, Website, email
    The more I learn, the more I know I don't know. When I don't know, I keep quiet!
    If I don't know that I don't know, I don't know whether to answer

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 10
    Last Post: 04-07-2020, 05:40 PM
  2. VBA Color Pickers, x64 solutions
    By ironfelix717 in forum Programming
    Replies: 4
    Last Post: 03-08-2020, 07:12 PM
  3. DB hosting solutions
    By ahill48 in forum Access
    Replies: 8
    Last Post: 08-20-2017, 10:26 AM
  4. Replies: 2
    Last Post: 07-14-2015, 04:50 PM
  5. Multiuser Access Solutions?
    By GaryE in forum Access
    Replies: 4
    Last Post: 04-16-2013, 06:15 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums