Visual Basic para Aplicaciones - URGENTE: Macro para guardar hoja de Excel en PDF

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Luis

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Luis (9 intervenciones) el 30/05/2014 01:08:31
Hola amigos de LWP.


Tengo esta hoja en el libro de excel y se necesita q a traves de un boton en formulario, todo lo que aparece en la imagen se guarde automáticamente en una ruta y que se pase a pdf.


De antemano, muchas gracias por ayudarme.


Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Cajero Automatico
- Control de Stock
- Quinigrama
Imágen de perfil de JoaoM

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por JoaoM (39 intervenciones) el 30/05/2014 23:18:45
Adapta uno a tu necesidad

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub GUARDAR_PDF2()
 
'Para numeracion de factura [B3] = [B3] + 1
Sheets("FACTURA").Range("A1:F29").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\0\FACTURAS" '& Range("W6").value
Sheets("FACTURA").Range("A1").Select
End Sub
 
''Muy bueno para guardar Facturas
Sub GUARDAR_PDF() 'Copia el ancho de papel carta, Hoja unica desde un rango fijo
'SOLO para hoja activa. El nombre del archivo es lo que tenga escrito la celda C8 y E8 de la hoja activa
nombre = Range("C8") & " " & "#" & Range("B3") & "_" & Range("E11").value  'Nombre para el archivo
Range("A1:F29").Select 'rango inicio y final selecionado
 
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\0\Facturas\" & nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'Si quieres que el archivo se abra luego de creado, cambia False por True al final
Range("C7").Select 'celda final selecionada
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de JoaoM

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por JoaoM (39 intervenciones) el 31/05/2014 22:43:58
Si te srvio de algo, comenta, no abandones el tema sin darlo por resuelto o pedir para que te cierren el tema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Manuel (1 intervención) el 19/11/2014 18:03:32
Estimado consulta:

es posible agregar a esta macro que se guarde automáticamente y se cierre.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por JoaoM (39 intervenciones) el 19/02/2015 17:49:52
Hola Manuel. Si se puede, en la línea;
[code]ReSelection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\0\Facturas\" & nombre, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'Si quieres que el archivo se abra luego de creado, cambia False por True al final
code]
Al final esta un comentario que dice; 'Si quieres que el archivo se abra luego de creado, cambia False por True al final

Si está True, guarda en PDF y abre dicho PDF

Si esta false crea el PDF y lo cierra sin abrirlo.
De todos modos pudiera hacer prueba cambiando True por False y VICEVERSA

Como sea todos dicen que buena respuesta pero ¿nadie valora la respuesta?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Agustina Balaguer (1 intervención) el 06/02/2016 23:44:36
Hola! Muy buena respuesta, pero a mi no me guarda el PDF, se te ocurre algo que pueda ser?

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por JULIAN MATEUS julianmateus1385@gmail.com (1 intervención) el 19/02/2015 15:23:24
Buenas

Excelente macro para transformar a pdf.

Gracias buen aporte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por luis xavier resendiz morales (2 intervenciones) el 08/11/2016 22:54:57
me podrían apoyar a saber el como puedo guardar varias hojas de excel en formato PDF y así mismo ponerle un diferente nombre (podría ser como un incremento).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por omar molina (1 intervención) el 20/11/2014 00:08:56
Esto encontre en otro foro ojala te sirva

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
'Note: The macro's in this module call the functions in the "FunctionsModule"
 
'Be sure that you also copy the code from this module if you want to use it in your own workbook.
 
Sub RDB_Workbook_To_PDF()
 
Dim FileName As String
 
'Call the function with the correct arguments
 
FileName = RDB_Create_PDF(ActiveWorkbook, "", True, True)
 
'For a fixed file name and overwrite it each time you run the macro use
 
'RDB_Create_PDF(ActiveWorkbook, "C:\Users\Ron\Test\YourPdfFile. Pdf", True, True)
 
If FileName <> "" Then
 
'Ok, you find the PDF where you saved it
 
'You can call the mail macro here if you want
 
Else
 
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
 
"Microsoft Add-in is not installed" & vbNewLine & _
 
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
 
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
 
"You didn't want to overwrite the existing PDF if it exist"
 
End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por JoaoM (39 intervenciones) el 19/02/2015 18:30:21
No funciona, algo tiene que;
Con mis muy pocos conocimientos, no tuve ni tengo la capacidad de hacerla funcionar

Dejo otra macro para SOLO convertir a PDF la hoja activa

Copia a un modulo y asigna la macro a un botón. Guarda en la misma ruta del libro origen con el nombre de la hoja Activa

1
2
3
4
5
6
7
8
9
10
Sub HojaPdf() 'Solo hoja activa
'Por.Dante Amor
    Ruta = ThisWorkbook.Path & "\" 'Misma ruta del origen
    nomb = ActiveSheet.Name 'Nombre de hoja
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Ruta & nomb & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False 'Despues de creado, no abre el archivo PDF
    MsgBox "Se ha guardado la hoja a formato PDF en " & Ruta & nomb, vbInformation
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Tresy (31 intervenciones) el 25/02/2015 00:22:09
No se VBA, pero sí se que puedes hacer una macro que grabe los diferentes comandos de Guardar como, elegir PDF y Cerrar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Abraham (1 intervención) el 26/02/2015 20:34:15
Muchas gracias por el aporte. Solo que para Office 2007 pero para el 2010 si
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por GIOVANNI (1 intervención) el 10/04/2015 18:39:22
Muy buena macro, me funciono de maravillas era lo que andaba buscando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Jair (1 intervención) el 29/09/2015 06:16:07
Buena macro pero es posible guardar este documento en PDF pero que se asigne una contraseña para abrir el doc?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por JoaoM (1 intervención) el 29/09/2015 20:43:17
Puedes es en tu doc meter el passw en el documento, al pasarlo a PDF no se si se puede agregar passw al PDF via macro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por alejandro (1 intervención) el 27/10/2015 00:21:01
amigo lograste guardar el pdf con contraseña????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por WILSON GARCIA (1 intervención) el 13/11/2015 02:33:33
EXCELENTE, TRABAJO EL CODIGO FUNCIONA MUY BIEN, FELICITACIONES Y GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por José Ramos (1 intervención) el 23/03/2016 16:56:38
Muy bueno, gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

me podrían orientar en si se puede guardar varias hojas de excel en pdf y con diferente nombre en una sola macro?,
les agradezco mucho.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Milagros (1 intervención) el 28/02/2015 05:39:11
Hola Manuel:

Puedes usar el método ExportAsFixedFormat que permite exportar un rango a excel, puedes encontrar màs ayuda aqui: http://www.excel-avanzado.com/12183/guardar-rango-de-celdas-como-pdf.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar