Imprimir página | Cerrar ventana

Imprimir Report en PDF

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84787
Fecha de impresión: 27/Marzo/2026 a las 00:23


Tema: Imprimir Report en PDF
Publicado por: anjemalo
Asunto: Imprimir Report en PDF
Fecha de publicación: 01/Noviembre/2019 a las 09:36
Hola:
tengo dos ordenadores con las siguientes caracteristicas:
- Windows 7, Office 2013, Adobe Reader DC, PdfCreator
- Windows XP, Office 2007, Adobe Reader X, PdfCreator

El problema es que no genera PFDs el ordenador con Windows XP, y el Pc con Windows 7 lo hace perfectamente.
La carpeta que utilizo para imprimir los PDF tiene todos los privilegios de administrador, no está en red.
Estas son las instrucciones que utilizo:

BASE="CMB2C.mdb"
acFormatPDF = "PDF Format (*.pdf)"
set objAccess = vb1.CreateObject("Access.Application")
objAccess.OpenCurrentDatabase BASE
DoCmd.OpenReport "R_InformeDiario", acPreview
DoCmd.OutputTo acOutputReport, "R_InformeDiario", acFormatPDF, CurrentProject.Path & & "\fichero.pdf", True


Me podeis decir que hago mal?
Gracias




Respuestas:
Publicado por: anjemalo
Fecha de publicación: 01/Noviembre/2019 a las 09:47
Estoy viendo errores en el codigo que os envio, es este:

BASE="CMB2C.mdb"
acFormatPDF = "PDF Format (*.pdf)"
set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase BASE
DoCmd.OpenReport "R_InformeDiario", acPreview
DoCmd.OutputTo acOutputReport, "R_InformeDiario", acFormatPDF, CurrentProject.Path & "\fichero.pdf", True


Publicado por: raipon
Fecha de publicación: 01/Noviembre/2019 a las 09:50
No se cual puede ser el problema, pero puedes probar:

- Poner un punto de interrupción y analizar linea a linea 
- objAccess.Visible = True para mostrar la interfaz de usuario
- En el equipo XP, lanza las dos últimas lineas de tu código directamente en la base de datos, así podrás ver si hay algún aviso, mensaje de error, resultado, ...

Saludos.


-------------
Ramon desde Terrassa.

http://www.sqlraipon.blogspot.com/" rel="nofollow - Mi blog


Publicado por: Mihura
Fecha de publicación: 01/Noviembre/2019 a las 10:15
Access para generar PDF con acFormatPDF no necesita ninguna 'impresora PDF' instalada, lo hace solo, eso sí, las versiones que lo tienen.

Access 2007 (si no recuerdo mal) para poder imprimir PDF tiene que tener instalado un servipack, no me acuerdo si el 1 o el 2.




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: xavi
Fecha de publicación: 01/Noviembre/2019 a las 10:52
Publicado originalmente por Mihura Mihura escribió:


Access 2007 (si no recuerdo mal) para poder imprimir PDF tiene que tener instalado un servipack, no me acuerdo si el 1 o el 2.



Yo creo recordar que era un complemento, más que un servicepack. Pero si, de "saque" no imprimia PDF


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: anjemalo
Fecha de publicación: 01/Noviembre/2019 a las 11:13
Gracias lo voy a probar y os digo


Publicado por: anjemalo
Fecha de publicación: 01/Noviembre/2019 a las 18:12
Hola:
He probado con objAccess.Visible=True y me abre el informe en Access con esta instruccion:
DoCmd.OpenReport "R_InformeDiario", acPreview

pero la instruccion de DoCmd.Output..... no hace nada y no da ningun error.

En cuanto a los complementos de Access lo tengo instalado Todo en el ordenador y el Service Pack es el 3.
Sabeis que puede ser?
gracias


Publicado por: happy
Fecha de publicación: 01/Noviembre/2019 a las 20:16
Una duda, ¿desde dónde pretendes imprimir el pdf, desde la base de datos actual o desde la base de datos que referencias con objAccess?

Si quieres que las instrucciones DoCmd.OpenReport ... y Docmd.Output las ejecute la base referenciada con objAccess debes de indicarlo expresamente. Es decir

objAccess.DoCmd.OpenReport "R_InformeDiario", acPreview
objAccess.DoCmd.OutputTo acOutputReport, "R_InformeDiario", acFormatPDF, CurrentProject.Path & "\fichero.pdf", True


-------------
Saludos,

Juan M. Afan de Ribera


Publicado por: anjemalo
Fecha de publicación: 01/Noviembre/2019 a las 20:27
Muchas gracias, eso era. Ahora funciona perfectamente.
Smile



Imprimir página | Cerrar ventana