Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

Проблема со скриптом в QlickView. ActiveX. VBscript 429.

Здравствуйте!

Столкнулся со следующей проблемой:

В QlikView 11.00.11414.0 SR2 (x64) выполняется макрос создания какого-либо объекта и возникает ошибка как на картинке.

Если выполнить этот же скрипт в QlikView 9.00.7119.4 (x32) - всё работает отлично.

Данная ошибка появляется при создании не всех объектов.

Вот фрагмент скрипта

"

...

set obj = CreateObject("Bullzip.PDFPrinterSettings") ' Error 429, в реестре есть зарегистрированный класс с таким именем

...

Set objEmail = CreateObject("CDO.Message") ' Good

...

"

Есть какие-нибудь идеи?

Как происходит выполнение скриптов QlikView? Какой-то свой встроенный компилятор?

1 Solution

Accepted Solutions
Not applicable
Author

The problem was solved.

PDF Writer - Trouble Shoot COM API

And a specialist of Bullzip has helped me with this error

"

Please use bullzip.PdfSettings instead of biopdf.PdfSettings if you have the free bullzip version installed.

Set obj = CreateObject("bullzip.PdfSettings")

"

View solution in original post

4 Replies
Not applicable
Author

Hi, Антон Сухарев

you tried to release the module using ctrl + shift + m? (choose to give access to the script module system)

if possible share the code (English) so we can test also ...

Stive

Not applicable
Author

Hi, this is Macro

sub MyPrintPDFWithBullZip (pdfOutputFile)

    On Error Resume Next

        set obj = CreateObject("Bullzip.PDFPrinterSettings") 

    if err.number > 100 then

        MsgBox(err.Description &" " & err.Source  &" " & err.Number)

    end if

                          

    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 sub

Sub testpdfprinting

    msgbox("Hello macro!")

  

    set r = ActiveDocument.Fields("Rating")

  

    for i = 1 to 1

        r.select(i)

        vFileName = "C:\QlikView Printing.pdf"

 

        MyPrintPDFWithBullZip(vFileName)

    next

  

    msgbox("Done.")

End sub

This macro attached to a button, and in the "Actions" specified procedure "testpdfprinting"

Not applicable
Author

AHTOH,

Here gave the same error, but I have this pdf printer installed so I can not tell if it is.

Search the forum on discussõs mentioning this vbscript. So googled this can be solved with code changes or other corrections!

good luck

Stive

Not applicable
Author

The problem was solved.

PDF Writer - Trouble Shoot COM API

And a specialist of Bullzip has helped me with this error

"

Please use bullzip.PdfSettings instead of biopdf.PdfSettings if you have the free bullzip version installed.

Set obj = CreateObject("bullzip.PdfSettings")

"