één voorblad/rapport

[RSpan]

Hoi Allemaal

ik heb de volgende vraag:
Middels een formulier worden er door een keuze in twee comboboxen te maken een factuur geprint.
Werkt goed.
Nu wil ik dat er meteen een voorblad geprint wordt met de juiste adresgegevens.
leek mij niet z'n probleem. zie onderstaande code.
Het vreemde wat zich nu voordoet is dat er niet één voorblad geprint wordt maar net zo veel als er regels in de factuur staan, dat is natuurlijk niet de bedoeling, kost wat veel papier zo
Weet iemand een oplossing hiervoor?

mvg
René

Private Sub cmdResetP_Click()
    Me.cboSelectNameP = Null
    Me.cboSelectWeekP = Null
   
End Sub

Private Sub cmdGenerateReportP_Click()
    On Error GoTo Err_cmdGenerateReportP_Click

    Dim stDocName As String
    Dim stWhere As String
   
        If IsNull(Me.cboSelectNameP) Then
            MsgBox "U moet nog een naam selecteren"
         Else
          If IsNull(Me.cboSelectWeekP) Or IsNull(Me.cboSelectNameP) Then
            MsgBox "U moet nog een weeknr selecteren"
         Else
            If Not IsNull(Me.cboSelectNameP) Then
                stWhere = "[patientID]=" & Me.cboSelectNameP & " And "
                blnTrim = True
            End If

                If Not IsNull(Me.cboSelectWeekP) Then
                    stWhere = stWhere & "[WeekID]=" & Me.cboSelectWeekP & " And "
                    blnTrim = True
                End If
          
                    If blnTrim Then
                        stWhere = Left(stWhere, Len(stWhere) - 5)
            End If
                                
                    DoCmd.OpenForm "FrmBetalingenPat"
                
                stDocName = "rptfactP"
                DoCmd.OpenReport stDocName, acPreview, , stWhere
                DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                DoCmd.Close
                        
                stDocName = "rptfactPFrl"
                DoCmd.OpenReport stDocName, acPreview, , stWhere
                DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                DoCmd.Close
                
                stDocName = "rptWkUitbPFrl"
                DoCmd.OpenReport stDocName, acPreview, , stWhere
                DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                DoCmd.Close
                
                stDocName = "rptVbladPat"
                DoCmd.OpenReport stDocName, acPreview, , stWhere
                DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                DoCmd.Close
            End If
          End If
    
Exit_cmdGenerateReportP_Click:
    Exit Sub

Err_cmdGenerateReportP_Click:
    MsgBox "Geannuleerd of geen gegevens om te printen"
    Resume Exit_cmdGenerateReportP_Click

End Sub

 

[OctaFish]

Ik snap niet helemaal wat de code te maken heeft met het voorblad probleem; ik neem aan dat je wel het goede rapport krijgt na de selectie? Heb je in het rapport wel de goede groeperingen gemaakt? En de juiste instellingen voor herhalende koppen etc?
Je kunt in een rapport in de Rapportkoptekst éénmalige tekst (en velden) zetten, maar de overige kopteksten kunnen herhaald worden in het rapport. Vaak staan de gegevens in de verkeerde sectie.

 

[RSpan]

Stom.stom ik zocht in de verkeerde hoek.
inderdaad had ik een veld in het rapport verkeerd staan.
probleem opgelost.

groet:thumb:
René