Access - openreport

Sub ImprimirFacturasPorNumeroYSerie()

Dim dbs1 As DAO.Database

Dim rFACTURAS As DAO.Recordset

Dim stDocName As String

Dim numw As Long ' O el tipo de dato que uses para el número (Integer, Double)

Dim seriew As String ' La serie es un campo de texto

' ----------------------------------------------------

' Paso 1: Crear la tabla temporal de facturas a imprimir

' ----------------------------------------------------

stDocName = "T5" ' Nombre de la tabla temporal

DoCmd.SetWarnings False ' Desactivar las advertencias para que no salgan los mensajes de eliminación

' Eliminar la tabla si ya existe para empezar de nuevo

On Error Resume Next ' Ignora el error si la tabla no existe

DoCmd.DeleteObject acTable, stDocName

On Error GoTo 0 ' Reactiva el manejo de errores

' Volver a activar las advertencias

DoCmd.SetWarnings True

' Abrir la consulta de selección y guardar el resultado en la tabla temporal T5

' "c5" es el nombre de tu consulta que selecciona las facturas

stDocName = "c5"

DoCmd.OpenQuery stDocName, acNormal, acEdit

' ----------------------------------------------------

' Paso 2: Recorrer la tabla e imprimir cada factura

' ----------------------------------------------------

' Abrir la tabla temporal para leer los registros

Set dbs1 = CurrentDb

Set rFACTURAS = dbs1.OpenRecordset("t5")

If rFACTURAS.RecordCount > 0 Then

    rFACTURAS.MoveFirst

    ' Bucle para recorrer cada registro de la tabla

    Do While Not rFACTURAS.EOF

        ' Obtener el número y la serie de la factura del registro actual

        numw = rFACTURAS!NUMERO ' Campo NUMERO de la tabla T5

        seriew = rFACTURAS!SERIE  ' Campo SERIE de la tabla T5

        ' Abrir el informe, filtrando por el número Y la serie

        DoCmd.OpenReport "prgfacimpf", acViewPreview, , "[facturas.numero] = " & numw & " AND [facturas.serie] = '" & seriew & "'"

        ' Mover al siguiente registro

        rFACTURAS.MoveNext

    Loop

Else

    ' Si no hay facturas en la tabla, mostrar un mensaje

    MsgBox "No hay facturas seleccionadas para imprimir.", vbInformation, "Impresión de facturas"

End If

' Cerrar el Recordset y liberar la memoria

rFACTURAS.Close

Set rFACTURAS = Nothing

Set dbs1 = Nothing

End Sub