Convert XLS to PDF

E

EitanSA

Hi

Im running into trouble writing an XLS sheet to PDF conversion. The
code writes the PDF file but it coms back with an error.

Sub pdfPrint()

Dim MyPath As String
Dim SourceString As String, OutputString As String, Suffix As String
Dim fName As String

fName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
MyPath = "C:\Documents and Settings\EitanS.SSI\Desktop"
Suffix = Format(Date, "ddmmmyy")
OutputString = MyPath & "\" & fName & Suffix & ".pdf"

Application.ActivePrinter = "Adobe PDF on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, printtofile:=True,
ActivePrinter:="Adobe PDF on Ne01:", Collate:=True,
prtofilename:=OutputString

End Sub

I have come across other code which works in older versions of Adobe
but not with Adobe 7 in Windows XP Pro.

All help appreciated.

Eitan
 
E

EitanSA

I have realised the problem which has lead to a further problem...
When working with Acrobat 6.0 and up, it writes its settings for
processing into the registry, which in the past versions used to be an
ini file in the windows directory.

What im looking for now is a way to edit the right registry files for
the writing of the file to my chosen directory, with no window being
displayed and to my chosen name.

Thanks
 
Q

quartz

Eitan,

I believe by default Acrobat writes the PDF into "C:\..My Documents". I work
around this by simply copying the PDF from there into my desired destination
folder, then delete the original.

HTH/
 
E

EitanSA

Hi quartz,

Thanks for the reply.

I am looking to be more control of what is done by the writer, as what
I am trying to do is create a package that may be used on one or
several machines. I rather not have to go to each machine and manually
control the writer.

In the interim though, I will follow your advice.

Thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top