hola, Silvia !
Post by SilviaTe adjunto la macro que utilizo para generar un pdf, y lo que quiero es
que me pregunte con que nombre y donde quiero guardar el pdf que creara.
En excel 2007 te permite guardar como pdf sin impresora virtual si no me equivoco.
por impersora "virtual" me refiero a que NO existe una impresora "fisica" instalada en el sistema
las aplicaciones utilizan "controladores" para hacer (emulando) una salida "impresa" del documento
para que la macro "solicite" el nombre de salida del documento (generalmente) se usa un InputBox
que puedes asignar a una variable (previamente declarada) que se pasa como parte de la instruccion
y la impresion se hara en la carpeta actual (por omision o la ultima detectada de documentos abiertos)
o puedes incluir alguna ruta especifica como parte de la instruccion (o agregarla a la variable del nombre)
prueba con una macro +/- como la siguiente (adapta/corrige/... como creas mas conveniente)
nota: da respuesta al inputbox SIN incluir la EXTension (pdf) para el nombre del archivo (se hace por codigo)
Sub Genera_pdf()
Dim Ruta As String, Nuevo_nombre As String
Ruta = "c:\documents and settings\administrador\escritorio\"
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
saludos,
hector.
__ el codigo expuesto __
Post by SilviaSub Boton22_Haga_clic_en()
Sheets("OFERTA").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Administrador\Escritorio\Formato oferta_1.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=1, OpenAfterPublish:=False
Sheets("INTRODUCIR DATOS").Select
End Sub