** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Imprimir Report en PDF
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoImprimir Report en PDF

 Responder Responder
Autor
Mensaje
anjemalo Ver desplegable
Habitual
Habitual


Unido: 31/Mayo/2019
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Tema: Imprimir Report en PDF
    Enviado: 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

Arriba
anjemalo Ver desplegable
Habitual
Habitual


Unido: 31/Mayo/2019
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Enviado: 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
Arriba
raipon Ver desplegable
Moderador
Moderador


Unido: 10/Diciembre/2004
Localización: Desconocida
Estado: Sin conexión
Puntos: 4011
Enlace directo a este mensaje Enviado: 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.

Mi blog
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11167
Enlace directo a este mensaje Enviado: 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.

Access Aplicaciones
Tecsys.es
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 12140
Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
anjemalo Ver desplegable
Habitual
Habitual


Unido: 31/Mayo/2019
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Enviado: 01/Noviembre/2019 a las 11:13
Gracias lo voy a probar y os digo
Arriba
anjemalo Ver desplegable
Habitual
Habitual


Unido: 31/Mayo/2019
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Enviado: 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
Arriba
happy Ver desplegable
Moderador
Moderador


Unido: 29/Enero/2005
Localización: España
Estado: Sin conexión
Puntos: 3114
Enlace directo a este mensaje Enviado: 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
Arriba
anjemalo Ver desplegable
Habitual
Habitual


Unido: 31/Mayo/2019
Localización: España
Estado: Sin conexión
Puntos: 51
Enlace directo a este mensaje Enviado: 01/Noviembre/2019 a las 20:27
Muchas gracias, eso era. Ahora funciona perfectamente.
Smile
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable