topic Saving PDF report issue in QlikView

Saving PDF report issue

Anonymous — Sat, 21 Nov 2009 00:31:22 GMT

Hi,

Very new to this forum and I was trying to code some macro to create and save report in PDF format. I found some code in this forum and its seems to working, but not as I expected. The problem in the below code is it prompts window to save as and then need to press OK to save the repot. But I wanted not to do this. I installed CutePDF writer.

Any suggesion will be appricated and thantks in advance.

Sub PrintReport

Set WSHShell = CreateObject("WScript.Shell")
fln = "C:\myreport.pdf"
RegKey = "HKEY_CURRENT_USER\Software\CutePDF"
WSHShell.RegWrite RegKey & "BypassSaveAs", 1
WSHShell.RegWrite RegKey & "OutputFile", fln,len(fln)
ActiveDocument.GetApplication.Sleep 2000
ActiveDocument.PrintDocReport "RP01", "CutePDF Writer"
ActiveDocument.GetApplication.Sleep 2000
WSHShell.RegWrite RegKey & "BypassSaveAs", 0
WSHShell.RegWrite RegKey & "OutputFile", ""
Set WSHShell = nothing

End Sub

Saving PDF report issue

prieper — Sun, 22 Nov 2009 03:10:43 GMT

Am not sure, whether your script works for the CutePDF. Am using the basically the same code (it has been posted earlier in this forum), but for the QlikView PDF-printer (you may download it from the QV-page):

Sub PrintReport
 fPrintReport2PDF "RP04", "c:\temp\test.pdf" ' CALLS FUNCTION
End Sub

Function fPrintReport2PDF(oReport, pdfOutputFile)
 Set WSHShell = CreateObject("WScript.Shell")
 WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"
 WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"
 ActiveDocument.PrintReport oReport, "QlikViewPDF", false
 WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "0", "REG_SZ"
 set WSHShell = nothing
End Function

HTH
Peter

Saving PDF report issue

Anonymous — Tue, 24 Nov 2009 05:34:06 GMT

Thanks for the reply, I tried to get the QlikviewPDF download and were not found the link... I will try to look on this ...

Saving PDF report issue

Anonymous — Tue, 24 Nov 2009 10:33:25 GMT

You should be able to use the CutePDF writer with that macro if you just change the registry key values from ...\QlikViewPDF\.. to ..\CutePDF\...

Saving PDF report issue

Mon, 31 May 2010 04:55:35 GMT

your change the highlighted line should solve your problem:

Sub PrintReport

Set WSHShell = CreateObject("WScript.Shell")
fln = "C:\myreport.pdf"
RegKey = "HKEY_CURRENT_USER\Software\CutePDF\"
WSHShell.RegWrite RegKey & "BypassSaveAs", 1
WSHShell.RegWrite RegKey & "OutputFile", fln,len(fln)
ActiveDocument.GetApplication.Sleep 2000

[ActiveDocument.PrintDocReport "RP01", "CutePDF Writer"] ===> [ActiveDocument.PrintDocReport "RP01", "CutePDF"]

ActiveDocument.GetApplication.Sleep 2000
WSHShell.RegWrite RegKey & "BypassSaveAs", 0
WSHShell.RegWrite RegKey & "OutputFile", ""
Set WSHShell = nothing

End Sub

Saving PDF report issue

Mon, 23 Aug 2010 19:49:32 GMT

I tried the macro suggested by Peter to save the Report to PDF. However, instead of saving the report as a PDF to the specified folder, it just prints the report directly to the printer. I would like to just save the PDF report to a folder without printing it. Below is the macro.


Sub PrintReport
 fPrintReport2PDF "RP01", "C:\file.pdf" ' CALLS FUNCTION
End Sub

Function fPrintReport2PDF(oReport, pdfOutputFile)
 Set WSHShell = CreateObject("WScript.Shell")
 WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"
 WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"
 ActiveDocument.PrintReport oReport, "QlikViewPDF", false
 WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "0", "REG_SZ"
 set WSHShell = nothing
End Function

Saving PDF report issue

Anonymous — Mon, 23 Aug 2010 22:48:53 GMT

See code below that I used, it work without any issues...

sub PrintReport

'Set The user selection

set v = ActiveDocument.Variables("vOSUSER")
mUser = v.GetContent.String
ActiveDocument.Fields("JiraUser").Select(mUser)

Set WSHShell = CreateObject("WScript.Shell")
fln = "C:\myreport.pdf"
RegKey = "HKEY_CURRENT_USER\Software\QlikViewPDF\"
WSHShell.RegWrite RegKey & "BypassSaveAs", 1
WSHShell.RegWrite RegKey & "OutputFile", fln
ActiveDocument.GetApplication.Sleep 2000
ActiveDocument.PrintDocReport "RP01", "QlikViewPDF"
ActiveDocument.GetApplication.Sleep 2000
WSHShell.RegWrite RegKey & "BypassSaveAs", 0
WSHShell.RegWrite RegKey & "OutputFile", ""
Set WSHShell = nothing
end sub

Saving PDF report issue

Mon, 23 Aug 2010 23:03:23 GMT

What does your vOSUSER variable contain ? Is that just the OSUser function ? How about the JiraUser ? I don't have such a field in my app.

Saving PDF report issue

Anonymous — Mon, 23 Aug 2010 23:17:42 GMT

Hi - vOSUSER to get the user prfile and filter based on user name. You can forget the first 3 lines.