Qlik Community

QlikView App Dev

Discussion Board for collaboration related to QlikView App Development.

Announcements
QLIKWORLD LIVE! MAY 16 - 19TH, EARLY BIRD DISCOUNTS! REGISTER TODAY
cancel
Showing results for 
Search instead for 
Did you mean: 
neha_shirsath
Specialist
Specialist

Need PDF connector for Qlikview Report/ Running Macro

Hi Community,

Please help me for PDF connector.

I search on community for the same but i didn't get the exact running macro.

I'm attaching my sample document.

Help me to create pdf report.

Thanks & Regards,

-Neha

3 Replies
arsal_90
Creator III
Creator III

Hi Neha

Do you need pdf report or if your object is send to word so is it feasible for you

arsal_90
Creator III
Creator III

Please follow this for pdf report

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

i will provide the macro for word and excel file by night and attache you can find the word file that transfer your object into jpg

neha_shirsath
Specialist
Specialist
Author

Hi,

Thanks for your reply.

I don't want to export particular object. I have created ABC document(In above attached file)

that file I have to send in pdf format and have schedule.

I already tried the above macro but it's not working.

-Neha