I want to export the entire sheet to PDF format. I tried following macro. It ran successfully yesterday, but when i'm trying today it just stopped working. It executes but doesn't create any PDF file.
Pls help me to resolve it.
sub Export printReportPDF "D:\Qlikview\15T.pdf" ActiveDocument.GetApplication.Sleep 5000 ActiveDocument.sheets("Main").Print ActiveDocument.GetApplication.Sleep 5000
' SendMail
msgbox "saved."
end sub '=========================================================================== Function printReportPDF(pdfOutputFile) Set WSHShell = CreateObject("WScript.Shell") WSHShell.RegWrite "HKCU\Software\QlikviewPDF\OutputFile", pdfOutputFile, "REG_SZ" WSHShell.RegWrite "HKCU\Software\QlikviewPDF\BypassSaveAs", "1", "REG_SZ" Set WSHShell = nothing End function
