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
