Macro Print PDF fails when turns in 64 bit computer

[marcel_olmo]

Hey guy, recently I've made a macro to print pdf reports with Bullzip.

I've ben executing the macro in QV 10 wiith 32 bit and windows XP. Everything was fine.

Now, I'm working in QV 10 64 bit in Windows 7 and I can't make it work.

Here you have the function that prints the pdf :

//prints the pdf with the bullzip printer

FUNCTION MyPrintPDFWithBullZip (pdfOutputFile)
set obj = CreateObject("Bullzip.PDFPrinterSettings")
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 FUNCTION

And my error is :

ActiveX component can't create object: 'Bullzip.PDFPrinterSettings'

Any help or ideas would be appreciated.

Regards!!

[#2]

Hi

Yes is working with this script!!!!

Is important  you  know...
I made  diferents experiment and  I found other a solution temporary,  is only copy Qv,exe(x86) in a folder special in the server 64bits after that,  I opened file qvw and I used the macro.
I know is thats is crazy  but   also this worked =s

But ...  I going to use this script is more easy 😃

Thanks for help me

[#3]

Hi,

Try this

it worked for me

FUNCTION MyPrintPDFWithBullZip (pdfOutputFile)

  Set obj_printer_util = CreateObject("Bullzip.PDFUtil")

  printername = obj_printer_util.defaultprintername

  set obj = CreateObject("Bullzip.PdfSettings")

  obj.printername = obj_printer_util.defaultprintername

  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 FUNCTION

[#4]

Hi  David !

Yes is working with this script you share me 😃

Now  I use this script for the new  develop  model of QV.
Thanks for your help and time you take for respond.

Thanks

[#5]

Thanks Dave. Finally your magic code worked for me. I use Windows 7 Professional 64bit and Bullzip PDF printer.

[Anonymous]

Hi David,

Thanks, this script works fine for me.

There's only one problem left.

Although I checked "ShowPDF", "no", it stills asks me if I want to open the generated document. This message keeps waiting and stucks the printing of the PDF document. I want the message to be supressed, so this process can run fully automaticly.

Do you have any advice for me?

Thanks in advance.

Kind regards,

Henco

[#7]

The solution: set obj = CreateObject("Bullzip.PdfSettings") worked also for me!

[ThornOfCrowns]

You're replying to a two year old thread.