Hola

Tengo una macro con la que imprimo un rango concreto de una hoja concreta, lo que quiero es que cada vez que imprimo el archivo pdf tenga el nombre del contenido de una celda concreta.

Les adjunto el código que utilizo

Salud_2 y gracias

Sub IMPRIMIR_FICHA()

'CON LA LINEA SIGUIENTE IMPRIMIMOS DIRECTAMENTE LA SELECCION

Sheets("FICHA").Select

Range("B3:AG50").Select

Dim impresora As String

With Application

.Dialogs(xlDialogPrinterSetup).Show

impresora = .ActivePrinter

Selection.PrintOut

End With

End Sub

Buen dia FERREÑO.

Intenta crear el PDF con GRABAR COMO, no de las opciones de IMPRIMIR. con la grabadora de macros da el siguiente codigo:

Sub Macro1()

'

' Macro1 Macro

'


'

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

        "D:\Prueba\Archivo Prueba.pdf" _

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

        :=False, OpenAfterPublish:=False

End Sub

[/CODE]

Aqui ya puedes editarlo para que en vez de "Selection" sea un rango especifico (o una variable de rango) y el nombre tambien lo puedes cambiar por otra dirección o una variable.

Comenta.

Saludos....

Hola Chapa

Ya lo había intentado con ese código, te pego como lo tengo, pero me dice que el objeto no admite esa propiedad o método. De lo que me comentas de crear el PDF con Grabar Como, no entiendo lo que me quieres decir, me puedes aclarar un poco más porfa.

Sub IMPRIMIR_FICHA()

Sheets("FICHA").Select

Range("B3:AG50").Select

Titulo = Range("B6").Value

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

"G:\NUEVO PROCEDIMIENTO\" & Titulo & ".pdf" _

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

:=False, OpenAfterPublish:=False

End Sub

Gracias por tu tiempo y Salud_2 en la distanca

Que tal FERREÑO.

Intente el codigo que pones y si me funciona, lo que creo que puede estar fallando es que el directorio no sea valido o por ser dirección de red no tengas los permisos para escribir o se encuentre lleno, o que el titulo tenga caracteres especiales o sea muy largo (no tengo idea de cuantos caracteres, pero cuando la dirección del archivo [desde el C: hasta el .xlsm] es muy largo te marca error)

Te recomiendo que hagas unas pruebas cambiando el directorio a uno local (C: o D:) y cambiandole el titulo por uno mas simple que no ocupe muchos caracteres.

(tambien serviria que subieras el archivo para ver si el problema es tuyo o de la macro)

Saludos....

Hola de nuevo Chapa

Pues a mi no me rueda, he preparado un libro solo con la macro y me da el mismo error, yo tengo el Excel 2003, pero he probado en el 2007 y tampoco marcha, he probado lo que comentas de acortar los nombres, de situarlo en C:, por otro lado yo ahora mismo no trabajo en red, estoy en mi equipo personal, bueno, subo el archivo para ver.

Salud_2

APARATOS.xls

Faltaba la diagonal inversa en la dirección, pero fuera de esto funciono bien, intentalo...

"C:\" & Titulo & ".pdf"

Hola de nuevo

Pues a mi no me rueda, me da el mismo error, te adjunto pantallazos del error por si sirve de algo.

mil gracias nuevamente.

Salud_2

creo que el problema son las versiones que manejamos, estoy en Excel 2010 y aqui tiene nativo grabar a PDF, en tu versión creo que es por un complemento que se baja de la pagina de microsoft, pero no estoy familiarizado de como opera o si puede ser llamado por medio de macros. solo alguien que tenga 2003 y que ya haya manejado el complemento. lamento no poderte ayudar...

Hola de nuevo

Los tiros van a ir por donde tu indicas, bueno, si alguien conoce el asunto bien y puede ayudarme..., perfecto, en cualquier caso hemos aprendido algo que es positivo.

Muchas gracias por tu tiempo empleado en el tema, te envío un saludo.