Crear un boton comando para imprimir excel 2007

hola, Silvia !

> Si la dejo como esta funciona, pero si escojo otra carpeta para guardar el archivo no funciona.
> Por ejemplo quiero guardar un archivo al que llamare oferta 12 en "mis documentos"
> en el cuadro de carpetas le digo que me lo grabe en mis documentos, y luego le doy el nombre al archivo.
> Entonces el archivo me aparece en la carpeta superior (C:\Documents and Settings\Administrador)
> y el archivo aparece bajo el nombre "Mis documentosoferta 12"...

tienes razon, en la propuesta de codigo me hizo falta "proteger" un separador de rutas ( \ )
cambia esta parte:

If Nuevo_nombre = "" Then Exit Sub _
Else Nuevo_nombre = Ruta & Nuevo_nombre & ".pdf"

por esta otra:

If Nuevo_nombre = "" Then Exit Sub _
Else Nuevo_nombre = Ruta & "\" & Nuevo_nombre & ".pdf"

saludos,
hector.

__ propuesta original __
>> Sub Genera_pdf()
>> Dim Ruta As String, Titulo As String, Nuevo_nombre As String
>> Titulo = "Selecciona por favor la ruta para guardar el *.PDF..."
>> On Error Resume Next ' por si el usuario pulsa {esc} y no selecciona nada :)) '
>> With CreateObject("shell.application")
>> Ruta = .BrowseForFolder(0, Titulo, 0, "c:").Items.Item.Path
>> End With: On Error GoTo 0
>> If Ruta = "" Then Exit Sub _
>> Else Nuevo_nombre = Trim(InputBox("Ingresa el nombre para el *.PDF"))
>> If Nuevo_nombre = "" Then Exit Sub _
>> Else Nuevo_nombre = Ruta & Nuevo_nombre & ".pdf"
>> Worksheets("oferta").ExportAsFixedFormat _
>> Type:=xlTypePDF, Filename:=Nuevo_nombre, _
>> Quality:=xlQualityStandard, IncludeDocProperties:=True, _
>> IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
>> End Sub


.

... gracias por tu ayuda. Funciona ...