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