Exportar a PDF los recibos de un determinado mes
Publicado por rambling (225 intervenciones) el 27/01/2020 18:14:02
tengo un formulario en el que he dispuesto un boton de comando para exportar a PDF un informe llamado recibos, dicho informe esta basado en una consulta de las tablas PROPIETARIOS y RECIBOS,filtrado en la misma consulta por el campo llamado mes_derrama.
el formulario en el que se encuentra el boton de comando se llama FRM_PROPIETARIOS y esta basado en la tabla PROPIETARIOS, este es el codigo que ejecuta dicho boton.
Private Sub Exportar_Click()
On Error GoTo Err_exportar_Click
Dim nombrearchivo As String
nombrearchivo = [Forms]![frm_propietarios]![Apellidos_Propietario]
DoCmd.OpenReport "recibo_individual", acViewPreview, , "id= [forms]![frm_propietarios]![id] ", acHidden
DoCmd.OutputTo acOutputReport, "recibo_individual", acFormatPDF, "C:\USERS\RAFA\DESKTOP\Recibos Mail\" & nombrearchivo & ".pdf", False
DoCmd.Close acReport, "recibo_individual"
Exit_exportar_Click:
Exit Sub
Err_exportar_Click:
Resume Exit_exportar_Click
End Sub
Esto funciona perfectamente pero he de ir pasando por el formulario de registro en registro e introducir el mes para cada uno.
Pero lo que pretendo es exportar a PDF todos los registros de un determinado mes y de esta forma es muy tedioso ya que para cada registro he de introducir el mes seleccionado.
No se si habrá alguna manera de automatizar esto.
Saludos.
el formulario en el que se encuentra el boton de comando se llama FRM_PROPIETARIOS y esta basado en la tabla PROPIETARIOS, este es el codigo que ejecuta dicho boton.
Private Sub Exportar_Click()
On Error GoTo Err_exportar_Click
Dim nombrearchivo As String
nombrearchivo = [Forms]![frm_propietarios]![Apellidos_Propietario]
DoCmd.OpenReport "recibo_individual", acViewPreview, , "id= [forms]![frm_propietarios]![id] ", acHidden
DoCmd.OutputTo acOutputReport, "recibo_individual", acFormatPDF, "C:\USERS\RAFA\DESKTOP\Recibos Mail\" & nombrearchivo & ".pdf", False
DoCmd.Close acReport, "recibo_individual"
Exit_exportar_Click:
Exit Sub
Err_exportar_Click:
Resume Exit_exportar_Click
End Sub
Esto funciona perfectamente pero he de ir pasando por el formulario de registro en registro e introducir el mes para cada uno.
Pero lo que pretendo es exportar a PDF todos los registros de un determinado mes y de esta forma es muy tedioso ya que para cada registro he de introducir el mes seleccionado.
No se si habrá alguna manera de automatizar esto.
Saludos.
Valora esta pregunta


0