Visual Basic - Exportar informe a PDF

Sub ExportaPDF()

Dim Hoja As Worksheet

Dim NombreArchivo, RutaArchivo As String

    NombreArchivo = Hoja.Name

    RutaArchivo ="C:\Users\Loli\Desktop\Almacen\" & NombreArchivo & ".pdf"

    Hoja.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _

    Quality:=xlQualityStandard, IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Option Compare Database

'------------------------------------------------------------

' ExpPDF

'

'------------------------------------------------------------

Function ExpPDF()

On Error GoTo ExpPDF_Err

DoCmd.OutputTo acOutputTable, "articulos1", "PDFFormat(*.pdf)", "C:\Users\Loli\Desktop\Almacen\1.pdf" , False, "", , acExportQualityPrint

'DoCmd.OutputTo acOutputReport, "articulos1", "PDFFormat(*.pdf)", "C:\Users\Loli\Desktop\Almacen", True, "", , acExportQualityPrint ' tu comando

ExpPDF_Exit:

    Exit Function

ExpPDF_Err:

    MsgBox Error$

    Resume ExpPDF_Exit

End Function

Sub ExportaPDF()

'Dim Hoja As Worksheet

Dim NombreArchivo, RutaArchivo As String

    NombreArchivo = ActiveSheet.Name

    RutaArchivo = "C:\0\" & NombreArchivo & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _

    Quality:=xlQualityStandard, IncludeDocProperties:=True, _

    IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub