PDF printing returns a black background on image.

[jadif01]

Hello,

I am trying to write a macro which automatically PDF prints a worksheet and saves it in a folder. I have succesfully done this however the background of the images on the worksheet have black backgrounds and thus cannot be seen. My code is:

Sub pdfmemo() 
     
    Range("A1:H31").Select 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$31" 
    Application.ActivePrinter = "doPDF v7 on DOP7:" 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\1) Dry F Automation\Memos\Dryf Memo " & Range("Dryf!F6").Value, _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 
     
End Sub

When I do this manually it works fine, it's only when I use the macro to do it it returns a black background.

Any help on this would be greatly appreciated.

jadif01

 

[ericward]

I am completely lost. Do you mean you save a PDF into a worksheet which has a black background?

Hello,

I am trying to write a macro which automatically PDF prints a worksheet and saves it in a folder. I have succesfully done this however the background of the processed images on the worksheet have black backgrounds and thus cannot be seen. My code is:

Sub pdfmemo() 
     
    Range("A1:H31").Select 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$31" 
    Application.ActivePrinter = "doPDF v7 on DOP7:" 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\1) Dry F Automation\Memos\Dryf Memo " & Range("Dryf!F6").Value, _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 
     
End Sub

When I do this manually it works fine, it's only when I use the macro to do it it returns a black background.

Any help on this would be greatly appreciated.

jadif01