[Resolvido]Salvar em PDF

Pessoal, como posso salvar uma planilha do excel em formato pdf a partir de um formulário do access ao acionar um botão?
Desde já agradeço!

Qual é a versão do Office?

Versão 2007.

Se for somente uma planilha, tente algo assim:

Código:

Dim oApp As Object
 
    Set oApp = CreateObject("Excel.Application")

        oApp.workbooks.Open "C:\Caminho\Nome do arquivo.xlsx"
        oApp.Visible = False
        oApp.Worksheets("Plan1").Activate

        oApp.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Caminho\Nome do arquivo.pdf"

        oApp.Application.Quit
    Set oApp = Nothing

Para exportar todas as planilhas, retire a linha abaixo:

oApp.Worksheets("Plan1").Activate

e tambem troque oApp.ActiveSheet por oApp.ActiveWorkbook.

A referência do Excel precisa ser marcada.

Muito agradecido Criquio! Legal o que você fez!
Antes de ver sua solução resolvi da seguinte maneira:

Dim EXC As New Excel.Application
Dim WKB As Workbook
Dim wks As Worksheet
Set WKB = EXC.Workbooks.Open("C:\Users\Mari\Desktop\Júlio\ConAccExcel\Form.xlsm")
Set wks = WKB.Worksheets(1)
'wks.Activate
Dim destino, Nome, Numero As String

Numero = Left(wks.Range("A7"), 4) & "-" & Right(wks.Range("A7"), 4)
Nome = "NATO"
destino = "C:\pdf\" & "OS Nº " & Numero & "-" & Nome & "-" & Day(Date) & "-" & Month(Date) & "-" & year(Date) & "-" & Hour(Time) & Minute(Time) & Second(Time) & ".pdf"
wks.ExportAsFixedFormat xlTypePDF, destino

WKB.Close
EXC.Quit

Resolvido!!!