M
M Skabialka
Having been told that users had Adobe on their machines already I was
able to adapt the code on this site:
http://www.mvps.org/access/reports/rpt0011.htm
and it worked like a champ using Adobe PDFWriter.
Now I find out they all have Adobe Distiller, not Adobe PDFWriter. I tried
changing all instances in the code from PDFWriter to Distiller but now it
asks for a file name and location for each report, when I am running a
series in a batch, and there should be no user prompt at all. In fact I am
trying to run this from a command line, which works great on my PC of
course, but not on theirs.
Can anyone suggest what changes I need in the code on this web-site which
will make my batch run using Distiller rather than PDFWriter?
The code I think has to change is:
strOldDefault = QueryKey("Software\Microsoft\Windows
NT\CurrentVersion\Windows", "Device")
SetKeyValue "Software\Microsoft\Windows NT\CurrentVersion\Windows",
"Device", "Acrobat PDFWriter", REG_SZ
SetKeyValue "Software\Adobe\Acrobat PDFWriter", "PDFFilename", strPath,
REG_SZ
SetKeyValue "Software\Adobe\Acrobat PDFWriter", "bExecViewer", 0, REG_SZ
(Print report here)
SetKeyValue "Software\Microsoft\Windows NT\CurrentVersion\Windows",
"Device", strOldDefault, REG_SZ
Thanks,
Mich
(PS: Please don't ask me to buy your product, I already have the products I
am going to buy: MS Access and Adobe.)
able to adapt the code on this site:
http://www.mvps.org/access/reports/rpt0011.htm
and it worked like a champ using Adobe PDFWriter.
Now I find out they all have Adobe Distiller, not Adobe PDFWriter. I tried
changing all instances in the code from PDFWriter to Distiller but now it
asks for a file name and location for each report, when I am running a
series in a batch, and there should be no user prompt at all. In fact I am
trying to run this from a command line, which works great on my PC of
course, but not on theirs.
Can anyone suggest what changes I need in the code on this web-site which
will make my batch run using Distiller rather than PDFWriter?
The code I think has to change is:
strOldDefault = QueryKey("Software\Microsoft\Windows
NT\CurrentVersion\Windows", "Device")
SetKeyValue "Software\Microsoft\Windows NT\CurrentVersion\Windows",
"Device", "Acrobat PDFWriter", REG_SZ
SetKeyValue "Software\Adobe\Acrobat PDFWriter", "PDFFilename", strPath,
REG_SZ
SetKeyValue "Software\Adobe\Acrobat PDFWriter", "bExecViewer", 0, REG_SZ
(Print report here)
SetKeyValue "Software\Microsoft\Windows NT\CurrentVersion\Windows",
"Device", strOldDefault, REG_SZ
Thanks,
Mich
(PS: Please don't ask me to buy your product, I already have the products I
am going to buy: MS Access and Adobe.)