topic Re: Re: How to print individual sheets to separate PDFs with a script? in QlikView

How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 13:55:15 GMT

I've been working with script, for the first time, trying to print 20 separate sheets as PDFs in an automated way (or maybe to write one large PDF). I have not (as yet) defined reports for these sheets. At this time I just want to print them as sheets.

1. What is the script equivilent to menu: File, Print Sheet? (its not Print Report, PrintDocReport or PrintReportEx)

2. If I decided to use doc1.PrintAllSheets, how can I pass in the name of the PDF printer and the PDF file name I wish to write to?

Thx,

Brooks

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 14:32:57 GMT

I use a macro and the follwing script works for me.

Sub printRP

ActiveDocument.GetApplication.WaitForIdle(1000)

ActiveDocument.PrintReport "RP01", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport "RP02", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport "RP03", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport "RP04", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

End Sub

Regards,

Gerrit

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 14:57:16 GMT

Thanks for the post.

How do you specify the PDF file?

I don't see PDF-XChange 3.0 in my printer list in QV ...

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:06:40 GMT

You have to Install PDF printer, There are many PDF printers

CutePDF

Bullzipp

PDFCreator

PDF-XChange 3.0

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:07:09 GMT

As far as I know PDF-XChange 3.0 is installed out of the box together with QV.

However I am not the technical one here, and did not install QV.

Probably others may know where XChange 3.0 can be obtained.

Regards,

Gerrit

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:09:43 GMT

Ok, I have CutePDF.

What is the code in the script to specify the PDF file name?

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:16:28 GMT

You need to create a macro.

In the following lines i Have 4 reports RP01, RP02, RP03 and RP04.

These are my report names.

Sub printRP

ActiveDocument.GetApplication.WaitForIdle(1000)

ActiveDocument.PrintReport "RP01", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport "RP02", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport "RP03", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport "RP04", "PDF-XChange 3.0", false

ActiveDocument.GetApplication.Sleep 10000

End Sub

Regards,

Gerrit

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:19:17 GMT

I understand that. But where is it specified what folder to write to and what PDF file name to use?

Re: Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:19:43 GMT

Here is the Code

sub PrintReportPDFCreatorone

tempFolder = "C:\temp"

reportID = "RP01"

reportName = reportID 'Create the file name with path

reportFile = tempFolder & "\" & reportID & "_" & reportName & ".pdf" 'print the report

printReportPDF reportID, tempFolder 'Call the function 'Rename the report

end sub

Sub printReportPDF (oReport, pdfLocation)

Set WSHShell = CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\PDFCreator\OutputFile", pdfLocation

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\PDFCreator\BypassSaveAs", "1", "REG_SZ"

msgbox("Before Print")

ActiveDocument.PrintReport oReport, "CutePDF",false

set WSHShell = nothing

end sub

Re: Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:38:29 GMT

Thanks for the code, making progress. Still a bit to go ...

I changed to:

PrintReportPDF reportID, reportFile

Also on my system the printer is named: "CutePDF Writer"

The problem is that bypassing the Save As is not working. A Save As dialog window is appearing.

Maybe "1" should be something else?

Re: How to print individual sheets to separate PDFs with a script?

Thu, 24 Oct 2013 15:49:00 GMT

May be check Default CutePDF Printer Properties Setting on your machine

Re: How to print individual sheets to separate PDFs with a script?

Tue, 29 Oct 2013 19:39:59 GMT

Hi Gerrit,

I have the PDF-XChange 3.0.

When you run that code do you get 4 files: RP01.PDF, RP02.PDF, RP03.PDF, RP04.PDF?

Brooks

Re: How to print individual sheets to separate PDFs with a script?

Wed, 30 Oct 2013 08:53:48 GMT

Brooks,

You can manipulate the file name in settings of the PDF-XChange 3.0 printer

I use docname and time to make the file unique.

I then pick these files up with a script (AutoIT) rename the files and send them out by mail.

Hope this helps.

Gerrit

Re: How to print individual sheets to separate PDFs with a script?

Wed, 30 Oct 2013 12:12:52 GMT

Hi Gerrit,

Thanks for the post. I was making some progress yesterday with both PDF XChange and Bullzip.

So the way you do it, is docname always the same (the name of the QVW file)? But you get separate files by the use of %time%?

Are you creating a different PDF file for each report you defined? How do you decide how to rename the files later (ie. how do you use the time in the filename to rename it to the report title)?

Brooks

Re: How to print individual sheets to separate PDFs with a script?

Wed, 30 Oct 2013 13:02:32 GMT

Brooks,

The name of the file is Qlikview Printing + time.

Indeed I create seperate files and they are unique because of the timepart in the filename.

I use a scripttool AutoIT to rename the files AutoIt - AutoItScript

Code there looks like this:

$search = FileFindFirstFile("D:\Qlikviewdata\AutoQLIK\Qlikview Printing*.*")

If $search = -1 Then Exit

Local $file = FileFindNextFile($search)

If @error Then Exit

FileCopy("D:\Qlikviewdata\AutoQLIK\"&$file, "D:\Qlikviewdata\AutoQLIK\MyNewFile.pdf")

FileDelete("D:\Qlikviewdata\AutoQLIK\"&$file)

etc.

What I basically do is the following:

1. In my task scheduler I start at night an AutoIT script

2. In the script I start a qvw file with the /l option: "C:\Program Files\QlikView\qv.exe" /l "D:\Qlikviewdata\AutoQLIK\my.qvw"

3. In the onpostreload trigger of the document I start my macro (as shown a few posts earlier)

4 I loop throught the directory with the printfiles and rename the created printfiles

5. I send the renamed files out by email.

Regards,

Gerrit

Re: How to print individual sheets to separate PDFs with a script?

bumin — Mon, 30 Dec 2013 17:37:17 GMT

Hi Dewang,

even when I use your code

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\PDFCreator\OutputFile", pdfLocation

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\PDFCreator\BypassSaveAs", "1", "REG_SZ"

pdflocation = c:\temp

reportFile = tempFolder & "\" & "040" & ".pdf"

Qlikview allways creates the file in the directory c:\users\bumin\desktop and

the finename = Qlikview Printing

what is wrong?

thanks and regards

Bumin