Boton para exportar a pdf un documento excel 2010

[Monimo]

Yo utilicé este código hace un tiempo, pero tienes que tener instalada la impresora de pdf Creator:


Sub Imprimir_seleccion(imprimit)
'preparar la hoja para la impresión
With ActiveSheet.PageSetup
.PrintArea = imprimit
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'formato A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente
End With


Dim STDprinter As String
STDprinter = Application.ActivePrinter
'Debug.Print Application.ActivePrinter
Dim ne As String, printer$, i%

printer = "PDFCreator"
On Error Resume Next
For i = 1 To 99
ne = VBA.Format(i, "00")
Err.Number = 0
Application.ActivePrinter = "PDFCreator on Ne" & ne & ":"

If Err.Number = 0 Then
Exit For
End If
Next
Application.ActivePrinter = "PDFCreator on Ne" & ne & ":"
' change printer
ActiveSheet.PrintOut
' prints the active sheet
Application.ActivePrinter = STDprinter
' change back to standard printer


'imprimir las celdas seleccionadas (1 copia)
'Application.Dialogs(xlDialogPrint).Show
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True

End Sub