PDF converter to xls
 

Hello all

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

my problem is is i donot have "Acrobat Distiller on Ne00" virtua
driver (which should be referenced to from vba mode) and how t
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\M
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.PrintOu
, PrintToFile:=True PSFileName = Chr(34) & PSFileName
Chr(34)
End Sub

yours


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

PDF converter to xls
 

Hi
you have toi change this line with your Adobe driver from your printer
dialog. You'll need a PDF Writer at least installed a printer on your
system

--
Regards
Frank Kabel
Frankfurt, Germany


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/

PDF converter to xls
 

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/