T
Ty
I'm trying to save (or print) a worksheet to PDF. I'm running Mac OS
X 10.3.9 and realize there's a compatibility issue with PC and Mac in
terms of .ActivePrinter application (see sample code below which was
used for this function on a PC). Is there a work around or some other
way to accomplish this in Excel (Office 2004) for Mac?
Simply, save a sheet as a .pdf file on a mac.
I've studied numerous posts on this subject but none of the code fully
fits my needs.
I'd greatly appreciate any help and guidance.
Cheers,
Ty
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
X 10.3.9 and realize there's a compatibility issue with PC and Mac in
terms of .ActivePrinter application (see sample code below which was
used for this function on a PC). Is there a work around or some other
way to accomplish this in Excel (Office 2004) for Mac?
Simply, save a sheet as a .pdf file on a mac.
I've studied numerous posts on this subject but none of the code fully
fits my needs.
I'd greatly appreciate any help and guidance.
Cheers,
Ty
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