Botón para imprimir y que guarde plantilla en PDF

[amadridl]

Hola, estoy haciendo un formulario pero necesito que al imprimir, se guarde una copia de la planilla en pdf con el número de una casilla (folio). He leído bastante pero me cuesta reunir las características en un sólo botón. Gracias desde ya

Alejandro

[Antoni]

Macro efectuada con la grabadora de macros:

Sub Macro1()


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

        "[B][COLOR=#ff0000]D:\Documents and Settings\pc\Mis documentos\Libro1.pdf[/COLOR][/B]", Quality:= _

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

        OpenAfterPublish:=False

End Sub



[/CODE]