Visual Basic para Aplicaciones - URGENTE: Macro para guardar hoja de Excel en PDF

Sub GUARDAR_PDF2()

'Para numeracion de factura [B3] = [B3] + 1

Sheets("FACTURA").Range("A1:F29").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\0\FACTURAS" '& Range("W6").value

Sheets("FACTURA").Range("A1").Select

End Sub

''Muy bueno para guardar Facturas

Sub GUARDAR_PDF() 'Copia el ancho de papel carta, Hoja unica desde un rango fijo

'SOLO para hoja activa. El nombre del archivo es lo que tenga escrito la celda C8 y E8 de la hoja activa

nombre = Range("C8") & " " & "#" & Range("B3") & "_" & Range("E11").value  'Nombre para el archivo

Range("A1:F29").Select 'rango inicio y final selecionado

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\0\Facturas\" & nombre, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True 'Si quieres que el archivo se abra luego de creado, cambia False por True al final

Range("C7").Select 'celda final selecionada

End Sub

Option Explicit

'Note: The macro's in this module call the functions in the "FunctionsModule"

'Be sure that you also copy the code from this module if you want to use it in your own workbook.

Sub RDB_Workbook_To_PDF()

Dim FileName As String

'Call the function with the correct arguments

FileName = RDB_Create_PDF(ActiveWorkbook, "", True, True)

'For a fixed file name and overwrite it each time you run the macro use

'RDB_Create_PDF(ActiveWorkbook, "C:\Users\Ron\Test\YourPdfFile. Pdf", True, True)

If FileName <> "" Then

'Ok, you find the PDF where you saved it

'You can call the mail macro here if you want

Else

MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _

"Microsoft Add-in is not installed" & vbNewLine & _

"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _

"The path to Save the file in arg 2 is not correct" & vbNewLine & _

"You didn't want to overwrite the existing PDF if it exist"

End If

End Sub

Sub HojaPdf() 'Solo hoja activa

'Por.Dante Amor

    Ruta = ThisWorkbook.Path & "\" 'Misma ruta del origen

    nomb = ActiveSheet.Name 'Nombre de hoja

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

        Filename:=Ruta & nomb & ".pdf", _

        Quality:=xlQualityStandard, IncludeDocProperties:=True, _

        IgnorePrintAreas:=False, OpenAfterPublish:=False 'Despues de creado, no abre el archivo PDF

    MsgBox "Se ha guardado la hoja a formato PDF en " & Ruta & nomb, vbInformation

End Sub