Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
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
