Convert to Adobe PDF

Hello Excel Guru's

I know how to convert a single worksheet into a PDF (Menu>Adobe PDF>Convert to Adobe PDF) but what I am trying to do is convert a file with multiple worksheets into 1 PDF file but it only converts the sheet that I am in.

For example:
I am in sheet 1 and I do the convert PDF command it will only convert sheet 1

If I select and group sheets 1,2 and 3 and do the command on sheet 1, it still only converts sheet 1 into PDF.

If I right click on the file thru Internet Explorer and select convert to Adobe PDF command, it still only converts the first worksheet into a PDF.


Im sure there is a way where you can convert all worksheets and append them into 1 PDF file.

Long way is, convert each sheet and then insert each sheet thru Adobe to create 1 file.

Thanks,
NY Newbie

Ok, I just tried this and it works on my computer. Select file, then print. Change the printer to pdf creator. Then select entire workbook. Should convert all pages to pdf.

I'm also find a way for converting all worksheets to PDF? Any ideas?
And is it possible to convert all worksheet to a same PDF file?
Any PDF converter support my requests?

In Excel 2007+

Go into Save As. Save as type: select PDF
Then click on Options, then click on "Entire workbook".

Click Ok, then click Publish.

Voila

you can try this:

Public Sub subCreatePDF()

    If Not IsPDFLibraryInstalled Then
        'Better show this as a userform with a proper link:
        MsgBox "Please install the Addin to export to PDF. You can find it at http://www.microsoft.com/downloads/details.aspx?familyid=4d951911-3e7e-4ae6-b059-a2e79ed87041". 
        Exit Sub
    End 

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ActiveWorkbook.Path & Application.PathSeparator & _
        ActiveSheet.Name & " für " & Range("SelectedName").Value & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Private Function IsPDFLibraryInstalled() As Boolean
'Credits go to Ron DeBruin (http://www.rondebruin.nl/pdf.htm)
    IsPDFLibraryInstalled = _
        (Dir(Environ("commonprogramfiles") & _
        "\Microsoft Shared\OFFICE" & _
        Format(Val(Application.Version), "00") & _
        "\EXP_PDF.DLL")  "")
End Function

Cheers!!