Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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!!
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
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
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
Thanks Dave. Finally your magic code worked for me. I use Windows 7 Professional 64bit and Bullzip PDF printer.
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
The solution: set obj = CreateObject("Bullzip.PdfSettings") worked also for me!
You're replying to a two year old thread.