H
helmekki
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
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