Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Excel - Crear PDF en macro excel

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Crear PDF en macro excel

Autor:yolanda (1 intervención)
Fecha:15/01/2008 16:55:48
Hola a todos,

Tengo una hoja excel en la que he incluido un botón para imprimir, en este botón además de imprimir las hojas lo que quiero es crear un archivo PDF con todas las hojas seleccionadas, para guardar las hojas excel en PDF utilizo "Adobe PDF", pero al ir a abrir el documento generado me dice que está dañado.

Las líneas de código que tengo para hacer esto son:

Sheets(1).Select
Application.ActivePrinter = "Adobe PDF en Ne02:"

PDFFileName = "C:Documents and SettingsYolandaMis documentosprueba2.pdf"
ActiveWindow.SelectedSheets.PrintOut PrintToFile:=True, PrToFileName:=PDFFileName

Muchas gracias de antemano y saludos.
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Crear PDF en macro excel

Autor:Sid (1 intervención)
Fecha:05/02/2008 13:15:32
Lo k pasa es k el excel se salta la impresora k le has puesto ( en este caso adobe pdf en ne02 ) debido al prtofilename:=pdffilename y lo k krea es un archivo xps.
prueba abrir el supuesto archivo pdf dañado con la extension .xps
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Crear PDF en macro excel

Autor:Luis Diego Murillo (1 intervención)
Fecha:01/06/2009 23:07:50
Yolanda, estás cometiendo el mismo error que cometí al inicio la primera vez que intenté hacerlo, asi que me di por vencido e intenté otra técnica diferente.

Lo que estás haciendo con ese código es imprimir un archivo plano y ponerle la extensión PDF.

La solución está en exportar el archivo en lugar de imprimirlo. Microsoft tiene una extensión gratuita que debes incluir en Excel (SaveAsPDFandXPS) para que se pueda exportar a PDF.

Cuando la tengas instalada, puedes utilizar de referencia el siguiente código

Sub Imprimir()

'le asigno al archivo la ruta y el nombre del archivo, el cua está en la celda D7 y la extension
Name = "C:Documents and SettingsAdministratorMis documentosavance" & Range("D7").Value & ".PDF" 'Nombre pdf

'el archivo SMA_XL5 debe ser exportado como pdf
Workbooks("SMA_XLS5").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Crear PDF en macro excel

Autor:Fernando (1 intervención)
Fecha:16/08/2009 07:03:03
Hola..
Estoy queriendo hacer eso de grabar, o mejor dicho, exportar los datos del formulario que tengo a PDF, pero no me resulta.
Esa es la primera vez que tengo que hacer algo con Visual basic, y la verdad es que aun estoy un poco perdido.
Podria decirme en donde pongo esa informacion? es que no sé si van todas en la misa hoja o si va un pedazo en cada hora (ya sea objetos, formulario,modulo...) otra cosa que no sé si estoy haciendo bien es cambiar los datos, te envio para que vea mejor.

Sub Imprimir()

'le asigno al archivo la ruta y el nombre del archivo, el cua está en la celda F15 y la extension
Name = "E:Prueba" & Range("F15").Value & ".pdf" 'Nome pdf
'el archivo Tsa-1a_xl debe ser exportado como pdf
Workbooks("TSA-1a_XLS").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

bueno, pues eso es lo que hice, y todavia no funciona del todo... ya que no me graba nada en el disco E:

Gracias!!!!
Comentar