Boton para exportar a pdf un documento excel 2010

[Calvo88_5]

Hola amigos foreros!!
Siempre he estado mirando en foros las respuestas a mis necesidades en programación html, flash, etc...
Hoy me he hecho una cuenta ante la imposibilidad de hacer un código en el programador de excel de tal manera que este haga que la macro en cuestión se dedique a exportar a pdf el area de impresión que yo le diga. Este debe tener el titulo de Factura o Presupuesto segun ponga en una celda y segun ponga en otra el numero de factura o presupuesto de tal manera que quede asi: factura213.pdf
esta se guardara en C:/ y si ya os animais me poneis otra macro con la que poder imprimir el archivo.
Muchas gracias de ante mano. Y espero que a otra persona le pueda servir la información que se me conteste.
Por cierto nose si variara que sea 2010 de momento los codigos que he visto no me han servido.

[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

[Calvo88_5]

Gracias por el aporte. Voy a intentarlo y despues te comunico lo que ha pasado. Aun asi no hay un codigo mas corto?