Convert XLS to PDF

  • Thread starter Thread starter EitanSA
  • Start date Start date
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
 
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
 
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/
 
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
 
Back
Top