but it ask me the name and where I want to save the pdf file and that is what
I do not want .....and if I take out in the printer properties "promt for a
name " I do not where the file it is saved.
I need to be able to chosse the name and the folder for the pdf file

"NickHK" wrote:

Ana,
No, use the code I posted:

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
...
you mean only PrToFileName:="C:\Test.PDF" ?

I have an error

"NickHK" wrote:

Ana,
Did you try the code ?

NickHK

"Ana" wrote in message
...
I do not undestand if I delete those arguments I have nothing in my
code
??


"NickHK" wrote:

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