I have a pdf that is generated with the following code.
The problem I have is the logo in the upper left corner, that I brought in as a png, does not print clearly once the pdf is generated.
If I print it directly from the report, it prints nice a sharp. See comparison below.
Any ideas how to improve this?
The png file is 99 KB.
The problem I have is the logo in the upper left corner, that I brought in as a png, does not print clearly once the pdf is generated.
If I print it directly from the report, it prints nice a sharp. See comparison below.
Any ideas how to improve this?
The png file is 99 KB.
Code:
Private Sub buttonEmailLetter_Click()
On Error Resume Next
Dim reportName As String
Dim criteria As String
Dim lngResult As String
lngResult = "Hello," & vbCrLf & "This is to inform you that funding has been awarded for the FY22 MIRAC BEMAR projects."
reportName = "GPA_IHS_MIRAC_Funded_Letter_BEMAR_R"
criteria = "[Location_Description] =" & "'" & Me![Location_Descriptions] & "'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden 'Need to open and close report in order for this to work.
DoCmd.SendObject acSendReport, reportName, acFormatPDF, , , , "IHS FY22 MIRAC BEMAR Project Notification for - " & _
"" & Me![Location_Descriptions] & "", lngResult
DoCmd.Close acReport, reportName, acSaveNo
End Sub