Macro para guardar como en formato pdf

GildardoVela · el 14 de agosto

Hola alguien me podría ayudar para realizar una macro la cual 'Guarde como' una selección de celdas pero en formato pdf con el nombre de una celda en especifico, o bien de la opción de guardar con nombre distinto cada vez yo tengo estas lineas pero me marca error:

Sub PDF()

'

' PDF Macro

'

Worksheets("PRUEBA").Range("B3:M54").Select

    Range("M3").Activate

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"c:\GILDARDO\Desktop\PRUEBA" + Cells(D16) + ". Pdf", _

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

:=False, OpenAfterPublish:=False

Range("B2").Select

End Sub[/CODE]

joloco · el 15 de agosto

Sub pdf()

Dim rutaarchivo As String

rutaarchivo = "D:\todofiesta\Contratos\" & [H4] & [C4]

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

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

OpenAfterPublish:=False

End Sub[/CODE]

solo cambia la direccion donde vas a guardar tu pdf y tambien cambia la o las celdas de donde va a tomar el nombre el pdf. espero y te sirva. aqui me apoyaron con esta macro a mi me funciona muy bien. saludos a todos los del foro desde Veracruz, Mexico

GildardoVela · el 18 de agosto

Perfecto muchas gracias me sirvio mucho funciona a la perfeccion

saludos

5luis · el 6 de diciembre

Necesito esta macro pero no me sale

Sub ImpPDF_Wakonda()

Dim rutaarchivo As String

rutaarchivo = "G:\Factura\Pedidos\Wakonda\" & [b333] & [b333]

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

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

OpenAfterPublish:=False

End Sub

Lo amarillo no me lo acepta

AlexanderS · el 6 de diciembre

Hola 5luis crea un nuevo tema este es del año pasado y no te contestaran, la macro si funciona, tienes instalado el programa PDFCreator, sin el la macro no funcionara.

PD: Casi me quedo ciego con esas letras amarillas.

Salu2