Good day,

I am wondering is it possible to export an excel document to .pdf format in the Excel 2003 program, similar to the feature available in OpenOffice.

Thanks

You can buy third party tools that will make this simple, such as ScanSoft, or you can use free utilities such as GhostScript that make it almost as easy, but I don't know of a native Excel tool that will make PDF files.

-PatP

Unless, of course, you use XL 2004 on Mac OS X.

CutePDF.

You can't, that I know, do it programatically unless you send key events to the print dialog. (Which is klugey.)

You also can't get nifty PDF features like hyperlinks or bookmarks.

Hey guys! I see you have a problem converting excel to pdf. I ran into that awhile ago, and I found a similar program to be quite useful, especially in business. At my work we use this program that quickly and painlessly converts my excel documents into pdf, taking away agonizing hours of manually entering all the information (such as statistics, invoices, etc.). It provides my business a simple way to make individualized statements for our business associates. Check it out here: Excel to PDF

You can use the word, excel and powerpoint to pdf conversion tool that is available online.

Pdf Tools Online - Watermark and Pdf Conversion

Modify this to serve your needs. Be sure to Thank Ken.




Option Explicit
Sub PrintToPDF_Late()
'Author : Ken Puls (Excelguru Help Site - Welcome)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from PDFCreator | Free Business & Enterprise software downloads at SourceForge.net)
' Designed for late bind, no references req'd

Dim pdfjob As Object
Dim sPDFName As String
Dim sPDFPath As String

'/// Change the output file name here! ///
sPDFName = "testPDF.pdf"
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator

'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

'Print the document to PDF
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
End Sub
Print Multiple Worksheets to Multiple PDF Files: