Visual Basic - Exportar informe a PDF

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Salvador
Val: 6
Ha aumentado su posición en 42 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Salvador (6 intervenciones) el 19/11/2018 13:16:14
Quisiera saber como se puede exportar un informe en formato PDF y que se archive en un directorio concreto
usando VBA.

Gracias de antemano.

Salva
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
Imágen de perfil de Andres Leonardo
Val: 3.816
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Andres Leonardo (1593 intervenciones) el 19/11/2018 16:06:00
Hola Salvador

Si tienes el informe en Excel y lo que deseas es grabarlo a pdf.. pon grabar macro ... y cuando comience pon grabar como ppdf.

Lo dejas eso como una macro principal y solo modificas el nombre para que cada vez sea diferente
con eso podrias exportalro

Slaudos
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 Salvador
Val: 6
Ha aumentado su posición en 42 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Salvador (6 intervenciones) el 20/11/2018 12:04:36
Yo utilizo la siguiente expresión:
DoCmd.OutputTo acOutputReport, "articulos1", "PDFFormat(*.pdf)", "C:\Users\Loli\Desktop\Almacen", True, "", , acExportQualityPrint

Per algo esta mal, ya que lo general pero al guardar se produce error y anula toda la operación.

Gracias de nuevo

Salva
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 Andres Leonardo
Val: 3.816
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Andres Leonardo (1593 intervenciones) el 20/11/2018 15:10:29
Mira esto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ExportaPDF()
 
Dim Hoja As Worksheet
Dim NombreArchivo, RutaArchivo As String
 
    NombreArchivo = Hoja.Name
    RutaArchivo ="C:\Users\Loli\Desktop\Almacen\" & NombreArchivo & ".pdf"
 
    Hoja.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
 
 
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 Salvador
Val: 6
Ha aumentado su posición en 42 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Salvador (6 intervenciones) el 20/11/2018 16:53:46
Yo me refiero a access, no a excel.
La parte " Dim Hoja As Worksheet" Access no la reconoce.

Saludos
Salvador
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 Andres Leonardo
Val: 3.816
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Andres Leonardo (1593 intervenciones) el 20/11/2018 18:06:32
Intenta asi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Compare Database
 
'------------------------------------------------------------
' ExpPDF
'
'------------------------------------------------------------
Function ExpPDF()
On Error GoTo ExpPDF_Err
 
DoCmd.OutputTo acOutputTable, "articulos1", "PDFFormat(*.pdf)", "C:\Users\Loli\Desktop\Almacen\1.pdf" , False, "", , acExportQualityPrint
'DoCmd.OutputTo acOutputReport, "articulos1", "PDFFormat(*.pdf)", "C:\Users\Loli\Desktop\Almacen", True, "", , acExportQualityPrint ' tu comando
 
 
ExpPDF_Exit:
    Exit Function
 
ExpPDF_Err:
    MsgBox Error$
    Resume ExpPDF_Exit
 
End Function
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 Salvador
Val: 6
Ha aumentado su posición en 42 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Salvador (6 intervenciones) el 21/11/2018 13:19:16
Gracias, me faltaba el nombre del archivo de salida, ahora si funciona, muchas gracias

Salva
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
Val: 120
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por JoaoM (78 intervenciones) el 21/11/2018 22:33:43
Hola Andres. Mis saludos
El codigo:
1
2
3
4
5
6
7
8
9
10
Sub ExportaPDF()
'Dim Hoja As Worksheet
Dim NombreArchivo, RutaArchivo As String
 
    NombreArchivo = ActiveSheet.Name
    RutaArchivo = "C:\0\" & NombreArchivo & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
No me funciona con Hoja.Name pero como está si funciona, ¿cual el detalle?
solo me guarda 4 columnas y no las 7 que tiene la data.
Las 3 faltantes las guarda en el mismo archivo PDF pero como 2ª hoja, aunque proceda a establecer area de imprecion y la establesca agarrando las 7 columnas
Podrias tu darme la solucion? que las 7 columnas se vean tal como esta en la data (7 columnas)

Ser sopone que las 4 que guarda, son las 4 que componen una hoja
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 Andres Leonardo
Val: 3.816
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Exportar informe a PDF

Publicado por Andres Leonardo (1593 intervenciones) el 21/11/2018 22:37:53
Estimado

En realidad deberia ser revisado el area de impresion

Saludos
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