Hi ,
I have a macro and at the end I create a pdf file using the following:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True

but like this I have to wait until I am asked where to save the file and
with what name .... my question is is it possible to save the file in pdf
with a certain name in a certain folder witout being asked .

What I have to change in my code to save the pdf file "test.pdf" in
c:\Index ?

thanks
Ana

have you tried

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True, PrintToFile:=True, _
PrToFileName:="C:\Test.PDF"


--
Regards,
Tom Ogilvy

"Ana" wrote:

Hi ,
I have a macro and at the end I create a pdf file using the following:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True

but like this I have to wait until I am asked where to save the file and
with what name .... my question is is it possible to save the file in pdf
with a certain name in a certain folder witout being asked .

What I have to change in my code to save the pdf file "test.pdf" in
c:\Index ?

thanks
Ana

Hi
Like that I can create Test.pdf but I can not open it , it says that the
file is not correct :o(


"Tom Ogilvy" wrote:

have you tried

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True, PrintToFile:=True, _
PrToFileName:="C:\Test.PDF"


--
Regards,
Tom Ogilvy

"Ana" wrote:

Hi ,
I have a macro and at the end I create a pdf file using the following:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", 16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True

but like this I have to wait until I am asked where to save the file and
with what name .... my question is is it possible to save the file in pdf
with a certain name in a certain folder witout being asked .

What I have to change in my code to save the pdf file "test.pdf" in
c:\Index ?

thanks
Ana

Ana,
From what I understand (but I may be wrong...):
Printing to file gives you a .ps file not a .pdf, despite the fact that you
have given it a .pdf extension. The resulting file can be processed by
Distiller to give a real .pdf file.
You can see this by opening the apparent .pdf in a text editor and comparing
it to a "real" .pdf file.

The easiest way is to by pass this and create a .pdf directly, so forget the
printToFile and filename
The name of the workbook will be used for the file name and the destination
folder will be dependent on the port, as shown in the PrintersAdobe
PDFPropertiesPorts. You can add another port if you want another location.

There are other settings in the pdf print driver that may interfere with
this, one being "Prompt for Adobe PDF filename" which you need to uncheck.

NickHK

"Ana" wrote in message
...
Hi
Like that I can create Test.pdf but I can not open it , it says that the
file is not correct :o(


"Tom Ogilvy" wrote:

have you tried

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True, PrintToFile:=True,
_
PrToFileName:="C:\Test.PDF"


--
Regards,
Tom Ogilvy

"Ana" wrote:

Hi ,
I have a macro and at the end I create a pdf file using the following:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True

but like this I have to wait until I am asked where to save the file
and
with what name .... my question is is it possible to save the file in
pdf
with a certain name in a certain folder witout being asked .

What I have to change in my code to save the pdf file "test.pdf" in
c:\Index ?

thanks
Ana

and how I creat a pdf file from the code without using PrintToFile

"NickHK" wrote:

Ana,
From what I understand (but I may be wrong...):
Printing to file gives you a .ps file not a .pdf, despite the fact that you
have given it a .pdf extension. The resulting file can be processed by
Distiller to give a real .pdf file.
You can see this by opening the apparent .pdf in a text editor and comparing
it to a "real" .pdf file.

The easiest way is to by pass this and create a .pdf directly, so forget the
printToFile and filename
The name of the workbook will be used for the file name and the destination
folder will be dependent on the port, as shown in the PrintersAdobe
PDFPropertiesPorts. You can add another port if you want another location.

There are other settings in the pdf print driver that may interfere with
this, one being "Prompt for Adobe PDF filename" which you need to uncheck.

NickHK

"Ana" wrote in message
...
Hi
Like that I can create Test.pdf but I can not open it , it says that the
file is not correct :o(


"Tom Ogilvy" wrote:

have you tried

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True, PrintToFile:=True,
_
PrToFileName:="C:\Test.PDF"


--
Regards,
Tom Ogilvy

"Ana" wrote:

Hi ,
I have a macro and at the end I create a pdf file using the following:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True

but like this I have to wait until I am asked where to save the file
and
with what name .... my question is is it possible to save the file in
pdf
with a certain name in a certain folder witout being asked .

What I have to change in my code to save the pdf file "test.pdf" in
c:\Index ?

thanks
Ana

Ana,
Just delete those 2 arguments:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
"16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= "Acrobat
Distiller sur RPT1:"

NickHK

"Ana" wrote in message
...
and how I creat a pdf file from the code without using PrintToFile

"NickHK" wrote:

Ana,
From what I understand (but I may be wrong...):
Printing to file gives you a .ps file not a .pdf, despite the fact that
you
have given it a .pdf extension. The resulting file can be processed by
Distiller to give a real .pdf file.
You can see this by opening the apparent .pdf in a text editor and
comparing
it to a "real" .pdf file.

The easiest way is to by pass this and create a .pdf directly, so forget
the
printToFile and filename
The name of the workbook will be used for the file name and the
destination
folder will be dependent on the port, as shown in the PrintersAdobe
PDFPropertiesPorts. You can add another port if you want another
location.

There are other settings in the pdf print driver that may interfere with
this, one being "Prompt for Adobe PDF filename" which you need to
uncheck.

NickHK

"Ana" wrote in message
...
Hi
Like that I can create Test.pdf but I can not open it , it says that
the
file is not correct :o(


"Tom Ogilvy" wrote:

have you tried

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"Acrobat Distiller sur RPT1:", Collate:=True,
PrintToFile:=True,
_
PrToFileName:="C:\Test.PDF"


--
Regards,
Tom Ogilvy

"Ana" wrote:

Hi ,
I have a macro and at the end I create a pdf file using the
following:
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
16" )).Select
Application.ActivePrinter = "Acrobat Distiller sur RPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"Acrobat Distiller sur RPT1:", Collate:=True

but like this I have to wait until I am asked where to save the
file
and
with what name .... my question is is it possible to save the file
in
pdf
with a certain name in a certain folder witout being asked .

What I have to change in my code to save the pdf file "test.pdf"
in
c:\Index ?

thanks
Ana

I looked up what I did in an Access program to do something similar
using Acrobat 5. Later versions may be different. If this doesn't work,
I suggest searching the Adobe forums at www.adobeforums.com.

Add the registry key name PDFFileName to the "software\adobe\acrobat
pdfwriter\" key in the hkey_current_user hiererarchy. After each print
is completed, Acrobat should clear this entry and you will need to set
it before printing the next report.

Bill Simot