Crear un boton comando para imprimir excel 2007

hola, Silvia !

Mostrar la cita

Te 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 __
Mostrar la cita

Sub 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

Hola Héctor,

Muchas gracias, funciona pero no soy capaz de insertar la variable para que
también me pida donde lo quiero guardar.

Gracias por ayudarme,
Silvia

"Héctor Miguel" escribió:

Mostrar la cita

hola, Silvia !

> Te 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 __
> Sub 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


.

hola, Silvia !

Mostrar la cita

... funciona pero no soy capaz de insertar la variable para que tambien me pida donde lo quiero guardar...

prueba con esta modificacion...

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

saludos,
hector.

Hola Héctor,

Muchas gracias. 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 llamaré 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".

Necesito ayuda para solucionarlo y poder escoger la ruta correctamente.

Muchas gracias de antemano por tu ayuda. Silvia

"Héctor Miguel" wrote:

Mostrar la cita

hola, Silvia !

> ... funciona pero no soy capaz de insertar la variable para que tambien me pida donde lo quiero guardar...

prueba con esta modificacion...

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

saludos,
hector.


.

hola, Silvia !

Mostrar la cita

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 __
Mostrar la cita

Mostrar la cita

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