Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA Converter | Excel Discussion (Misc queries) | |||
VBA Converter ADD in | Excel Discussion (Misc queries) | |||
EURO CONVERTER | Excel Worksheet Functions | |||
converter | New Users to Excel | |||
PDF Converter | Excel Discussion (Misc queries) |