- 1. Install Bullzip PDF Printer (I tried CutePDF, PDF X-change, PdfCreator,.. bullzip is the only one that works)
- 2. Macro :
Sub Dagrapport
vReport = “QVreportname” ‘Set report
vName = “reportname” ‘Name of output pdf
- ActiveDocument.PrintReport(vReport), “Bullzip PDF Printer”, false ‘Printreport
reportFile = “reportpath” & vName &”.pdf” ‘Setting outputname
MyPrintPDFWithBullZip(reportFile) ‘Call pdf printer
- ActiveDocument.GetApplication.Sleep 5000
zendDagrapport
End sub
FUNCTION MyPrintPDFWithBullZip (pdfOutputFile)
set obj = CreateObject(“Bullzip.PDFPrinterSettings”)
- obj.SetValue “Output” , pdfOutputFile
- obj.SetValue “ConfirmOverwrite”, “no”
- obj.SetValue “ShowSaveAS”, “never”
- obj.SetValue “ShowSettings”, “never”
- obj.SetValue “ShowPDF”, “no”
- obj.SetValue “RememberLastFileName”, “no”
- obj.SetValue “RememberLastFolderName”, “no”
- obj.SetValue “ShowProgressFinished”, “no”
- obj.SetValue “ShowProgress”, “no”
- obj.WriteSettings True
END FUNCTION
‘===========================================================================
‘===========================================================================
function zendDagrapport()
Dim objEmail
Const cdoSendUsingPort = 2 ‘ Send the message using SMTP
Const cdoAnonymous = 0 ‘Do not authenticate
Const cdoBasic = 1 ‘basic (clear-text) authentication
Const cdoNTLM = 2 ‘NTLM
SMTPServer = “IP Mailserver”
Const SMTPPort = 25 ‘ Port number for SMTP
Const SMTPTimeout = 60 ‘ Timeout for SMTP in seconds
‘Sending mail
Set objEmail = CreateObject(“CDO.Message”)
Set objConf = objEmail.Configuration
Set objFlds = objConf.Fields
With objFlds
‘---------------------------------------------------------------------
‘ SMTP server details
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = cdoSendUsingPort
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = SMTPServer
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = cdoAnonymous
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = SMTPPort
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = False
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) =
SMTPTimeout
.Update
‘---------------------------------------------------------------------
End With
- objEmail.To = “to emailaddress” ‘Email Recipient
- objEmail.From = “from emailaddress” ‘Email Sender
- objEmail.Subject = “emailsubject” ‘ Subject
- objEmail.TextBody = “emailbody” ‘Text Body
end function
