Emprimir una Hoja en Pdf excel 2003
Necesito una macro que imprima la hoja en pdf, guarde el archivo y lo muestre automáticamente. Como si fuera una vista preliminar de excel.
Estuve buscando y excel 2003 no tiene complemento para imprimir pdf.
Si los tienen los excel más avanzados.
2 respuestas
En ese caso te recomendaría que te instales la 'impresora virtual pdf' . Si aún no la tenés en en la web podés encontrarla de descarga gratuita, Softonic de los sitios más seguros.
Si la colocás como impresora predeterminada, la instrucción de tu macro será la de impresión habitual... pero se guardará como PDF. Configurá el Pdf para que luego de guardar se abra para mostrar contenido.
Espero te sirva la idea.
Comenta si te sirve. Macro bajada de la WEB
Sub Genera_pdf_1() 'SOLO pide nombre
Dim ruta As String, Nuevo_nombre As String
ruta = "c:\0\" 'ruta fija donde va a ser guardado. Aqui puedes cambiar carpeta de guardado
'El siguiente te pide nombre para el archivo
Nuevo_nombre = Trim(InputBox("Ingresa el nombre para el *.PDF" & vbCr & "SIN extension PDF"))
If Nuevo_nombre = "" Then Exit Sub Else Nuevo_nombre = ruta & Nuevo_nombre & ".pdf"
'Hoja a ser guardada como PDF
'Si diera error en esta linea, cambia ActiveSheet por Worksheets("nombre de hoja").ExportAsFixedFormat y
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Nuevo_nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True 'False
'False no abre el PDF despues de guardado. Si colocas True si abre
End Sub
Joaom Manuel
Cómo está.
Le comento que a mi no me funciona, hice los cambios que dice los comentarios.
A usted le funciona?
Por lo que vi parece que es para 2007.
Gracias
Si la tengo en 2013 y me funciona a perfección.
Ya veremos si el amigo DAM viene en tu auxilio