none
Printing to PDF replaces images with black boxes

    Question

  • I have a user who when they print a worksheet to PDF, the footer appears as a black box. 

    I've checked everywhere for a solution but can't seem to find one.

    Is it word related or Adobe related? They are using the latest version of Adobe reader.

    Thanks for your help.

    Monday, June 11, 2012 10:42 AM

All replies

  • Use this box for print

    If that dose't work try to use another driver used in free soft: Foxit Reader


    Oskar Shon, Office System MVP

    Press if Helpful; Answer when a problem solved


    Monday, June 11, 2012 12:18 PM
  • Thanks for your reply.

    Sorry I don't think I made myself clear enough. They are printing an excel worksheet to PDF and the footer, which is an image, is printing as a black box.

    The dialog box you have posted is not excel...

    Monday, June 11, 2012 1:07 PM
  • Can you export range as exp?

    After that on you can make pdf from this.

    Good procedure to make high quality image is EMF

    Sub EksportujDoObrazuEMF()
      Call EksportujObiektDoEMF(ActiveWindow.VisibleRange)
      MsgBox "done well ;-)"
    End Sub
    '_______________________________
    Option Explicit
    
    Private Declare Function OpenClipboard Lib "user32" _
                                           (ByVal hwnd As Long) As Long
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function GetClipboardData Lib "user32" _
                                              (ByVal uFormat As Long) As Long
    Private Declare Function CopyEnhMetaFileA Lib "Gdi32" _
                                              (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
    Private Declare Function DeleteEnhMetaFile Lib "Gdi32" _
                                               (ByVal hdc As Long) As Long
    
    Sub EksportujObiektDoEMF(Obj As Object)
    
      Dim PlikEMF, Rep  As Long
    
      PlikEMF = ThisWorkbook.path & "\tmp_img.emf"
      
      If Dir$(PlikEMF) <> "" Then
        Kill PlikEMF
      End If
    
      If Export2emf(Obj, PlikEMF) = "" Then
        MsgBox "Błąd przy eksporcie pliku !", vbCritical
      End If
    End Sub
    
    Private Function Export2emf(Objet As Object, _
                                NazwaPliku, Optional Apparence, _
                                Optional Format, Optional Size) As String
    
      Export2emf = NazwaPliku
    
      If TypeName(Objet.Parent) = "Chart" Then
        Objet.Parent.CopyPicture Apparence, Format, Size
      ElseIf TypeName(Objet) <> "Chart" Then
        Objet.CopyPicture Apparence, Format
      Else
        Objet.CopyPicture Apparence, Format, Size
      End If
      OpenClipboard 0
      If DeleteEnhMetaFile(CopyEnhMetaFileA(GetClipboardData(14), _
                                            Export2emf)) = 0 Then Export2emf = ""
      CloseClipboard
    End Function
    


    Oskar Shon, Office System MVP

    Press if Helpful; Answer when a problem solved

    Monday, June 11, 2012 8:47 PM
  • Thanks for your response.

    I'm sorry but I don't understand your answer. 

    What do you mean by export as exp? Can you please explain what the code you've posted will do as I'm not sure how it will help...

    Tuesday, June 12, 2012 9:22 AM
  • If you check print as image on Adobe driver, and that doest work i was recommend you FoxidReader driver (works in HP printers better than Adobe).

    Also I use sometimes export to "exp" (exposure/picture) as a emf file (better then jpg)

    This code change Excel range to image.


    Oskar Shon, Office System MVP

    Press if Helpful; Answer when a problem solved

    Thursday, June 14, 2012 9:42 AM
  • Why have you marked this as answered?

    It did not answer my question. The problem is with printing in Excel not Adobe reader. 

    Monday, June 18, 2012 1:08 PM
  • I cant mark as answer, moderator can. But no matter, as you said:

    I have a user who when they print a worksheet to PDF, the footer appears as a black box.

    So why do not check? Or are you?

    On my opinion is that adobe have problem with your's shapes.

    Try my method and check if pictures looks fine or if Free Foxit driver print well.

    You can also attach this file to this case (by link) to check the problem from ours workplaces


    Oskar Shon, Office System MVP

    Press if Helpful; Answer when a problem solved

    Monday, June 18, 2012 3:10 PM