** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Instruccion DoCmd.OutputTo...
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Instruccion DoCmd.OutputTo...
 Responder Responder
Autor
Mensaje
  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
Josean1161 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 12/Septiembre/2021
Localización: España
Estado: Sin conexión
Puntos: 6 		Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Josean1161 Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Instruccion DoCmd.OutputTo...
    Enviado: 23/Septiembre/2021 a las 17:38
Hola, utilizo esta instrucción para crear un pdf. El caso es que necesito hacer un filtro de este informe y en esta instrucción no veo donde se puede poner el filtro.

El caso es que esta otra instrucción:

DoCmd.OpenReport tiene como parámetros tanto FilterName como ConditionWhere. En estos parámetros puedo indicar el filtro. Trato de combinar las 2 instrucciones para conseguir el objetivo pero no lo consigo.

Y no encuentro como poner un filtro utilizando DoCmd.OutPutTo...

Agradecería alguna sugerencia...
Arriba
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 387 		Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Erick Gamer Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 23/Septiembre/2021 a las 18:35
Esta es mi opinion a ver si alguien mas aporta una solucion mas fina:

Crea tres variables para abrir el reporte con Docmd.OpenReport (De forma invisible)
Una vez abierto usa Docmd.OutputTo una vez exportado cierra el reporte abierto (invisible)

Algo asi:

 Dim rptNameAs String
    Dim fileName As String
    Dim criteria As String
    
    rptName= "TuReporte"
    fileName = "C:\temp\reporte.pdf"
    criteria = "SomeTextField = 'ABC' AND SomeNumberField = 123"
    
    DoCmd.OpenReport rptName, acViewPreview, , criteria, acHidden
    DoCmd.OutputTo acOutputReport, rptName, acFormatPDF, fileName
    DoCmd.Close acReport, rptName, acSaveNo
Aprendiz de todos, maestro de nadie.
Arriba
Josean1161 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 12/Septiembre/2021
Localización: España
Estado: Sin conexión
Puntos: 6 		Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Josean1161 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 24/Septiembre/2021 a las 10:23
Smile Hola, a funcionado perfectamente tu sugerencia. Te debo un trocito de mi vida. Llevaba 4 horas devanándome la cabeza y no encontraba la solución, maestro.

El pdf lo envío por mail utilizando el objeto CDO.Message, que creo pertenece a la librería Microsoft CDO for windows 2000 library. He conseguido también crear el mensaje en HTML, inicialmente salía en texto plano. Así he podido poner formato y hacer el mensaje mas estético. El caso es que me gustaría añadir una imagen de la empresa al final del mail, en ese texto html, pero otra vez me atasco...

Gracias.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable