SaveAs pop up issue

[rohit214]

Hi all,

I am generating 2 reports through macro its working fine. but i am always getting the Save As pop up.

which is i don't want, so please guide me how to remove that pop up and replace exsisting file without permission in a perticular

folder. I have Adobe Acrobat X standard for generating my PDF .

My Macro for generating the Reports

sub printRP01

printReportPDF "C:\Users\rgupta27\Desktop\New folder\DWR.pdf"

ActiveDocument.GetApplication.Sleep 2000

ActiveDocument.PrintReport "RP01", "QlikViewPDF"

ActiveDocument.PrintReport "RP02", "DWR"

ActiveDocument.GetApplication.Sleep 10000

ActiveDocument.PrintReport pdfOutputFile, "QlikViewPDF", True

end sub

Function printReportPDF(pdfOutputFile)

Set WSHShell = CreateObject("WScript.Shell")

  WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"

  WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"

Set WSHShell = nothing

End function

Thanks

Rohit

[rohit214]

any one have any idea plz share

[marcus_sommer]

This is code for the old qv-pdf-printer and you need to install these pdf-tool. If it's installed you need to set it as default printer before you print, maybe dynamically per code like this:

if WshShell.RegRead ("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device") <> "QlikViewPDF" Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device", "QlikViewPDF", "REG_SZ"
end if

By use from other print-tools you will need other code to set the appropriate settings. You will find hints for these here within the community and per google:

Re: Supress "Open document" Bullzip PDF printer

Re: generate pdf with Xchange

- Marcus

[rohit214]

Hi,

Thanks for the reply but i can't install other software in production enviourment.

I have Adobe Acrobat, so please suggent me how to get rid out from this issue.

Regards

Rohit

[marcus_sommer]

https://forums.adobe.com/thread/746789?tstart=0

- Marcus

[rohit214]

this link doesn't help me...

[marcus_sommer]

You will need some own efforts ...

- Marcus