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