Excel - Crear un boton comando para imprimir excel 2007

Asked By Silvia on 13-Nov-09 08:52 PM
Tengo un libro de excel con varias hojas, en una entro los datos y las otras
se rellenan con los datos introducidos. Como se crea un boton comando en la
hoja de entrada de datos para que me imprima la otra hoja. Gracias.




Héctor Miguel replied to Silvia on 13-Nov-09 11:37 PM
hola, Silvia !


solo tienes que incrustar en la hoja donde lo necesites un control de boton (de formularios o de controles activex)
y la unica instruccion (en codigo vba) que se requiere seria pareciad a la siguiente:

worksheets("nombre de la hoja que quieres imprimir").printout

o puedes activar la grabadora de macros, realizar la impresion, detener la grabadora, revisar/adaptar/... el codigo generado

saludos,
hector.
Silvia replied to Héctor Miguel on 15-Nov-09 01:05 PM
Muchas gracias por tu ayuda. Saludos,
Silvia
Silvia replied to Héctor Miguel on 15-Nov-09 02:21 PM
Hola H??ctor,

Ahora necesito que un boton de comando me cree un pdf de la hoja, pero que
me pregunte primero con que nombre quiero grabar el archivo, he sido capaz de
generar el pdf, pero siempre me coge el nombre del archivo y no se que
expresi??n usar en la macro para que me pregunte el nombre.

Muchas gracias
Silvia
Héctor Miguel replied to Silvia on 15-Nov-09 02:27 PM
hola, Silvia !


transcribe la macro tal como la estas usando ahora (para conocer de la impresora virtual)
y como prefieres asignar el nombre (y la ruta) para el pdf (de alguna celda ?, por una pregunta ?)

saludos,
hector.
Silvia replied to Héctor Miguel on 16-Nov-09 04:43 AM
Hola H??ctor,

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 crear??. En excel
2007 te permite guardar como pdf sin impresora virtual si no me equivoco.

Gracias

Sub Bot??n22_Haga_clic_en()
'
' Bot??n22_Haga_clic_en Macro
'

'
Sheets("OFERTA").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
oferta_1.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas _
Sheets("INTRODUCIR DATOS").Select
End Sub
Héctor Miguel replied to Silvia on 16-Nov-09 01:13 PM
hola, Silvia !


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 __
Silvia replied to Héctor Miguel on 17-Nov-09 05:04 AM
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 replied to Silvia on 18-Nov-09 12:15 AM
hola, Silvia !


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.
Silvia replied to Héctor Miguel on 18-Nov-09 05:35 PM
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 replied to Silvia on 19-Nov-09 12:58 PM
hola, Silvia !


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 __
Silvia replied to Héctor Miguel on 22-Nov-09 12:21 PM
Hola H??ctor, muchas gracias por tu ayuda. Funciona perfectamente.

Saludos,
Silvia
Héctor Miguel replied to Silvia on 22-Nov-09 07:48 PM
hola, Silvia !


gracias a ti, por el "feed-back"    ;)
saludos,
hector.