Save/Print PDF on Mac
 

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

Save/Print PDF on Mac
 

As MacXL/VBA Help states, ActivePrinter doesn't work in MacXL, the reson
being that the system call for printing doesn't allow it (it *should* be
scriptable, but Apple hasn't made it so).

Of course, you could manually save as PDF from the print dialog, as with
any other Mac application.




In article .com,
"Ty" wrote:

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.

Save/Print PDF on Mac
 

Not using a Mac here, so I'm guessing, but the Mac does not use "\" in
paths. Is it a ":" ?

Also I would doubt the printer would be "Adobe PDF on Ne01:".
You can test the name by setting the printer the PDF printer then in the
immediate window
?Application.ActivePrinter

This of course assume the user has Adobe installed on their system.

However, this code actually outputs a PostScript file (.ps) that you then
need to send to Distiller.
e.g. OutputString = MyPath & "\" & fName & Suffix & ".ps"

See the recent thread in this NG "Converting Excel worksheet to PDF then
print" for the Distiller part.

All this assumes that the Mac/Acrobat works the same as the PC version ??

NickHK

"Ty" wrote in message
oups.com...
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