Look for WIN2PDF on google


--
....Patrick



"helmekki " a écrit dans le
message de ...
Hello all

i have this code that converts xls files to PDF, but

my problem is is i donot have "Acrobat Distiller on Ne00" virtual
driver (which should be referenced to from vba mode) and how to
reference to it from vba mode.......

any idea is highly appreciated

before running the code, first you should do the following:
put in A1 this formula
R1C1(which is A1) ="C:\Documents and Settings\nh\My
Documents\"&C1&".ps"

and put in C1 this formula
C1=Automated Excel-to-PDF
which CELL REFERENCE C1 CONTAINS THE STRIPPED FILE NAME
then the code is:
Sub PDFconverter()
Dim PSFileName As String
Application.ActivePrinter = "Acrobat Distiller on Ne00:"
Application.Goto Reference:="r1c1"
Let PSFileName = Application.ActiveCell SendKeys PSFileName &
"{ENTER}", False
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$17" ActiveSheet.PrintOut
, PrintToFile:=True PSFileName = Chr(34) & PSFileName &
Chr(34)
End Sub

yours
h


---
Message posted from http://www.ExcelForum.com/