parameter in draaigrafiek titel

Status
Niet open voor verdere reacties.
J

jwaque

Verenigingslid
Lid geworden
16 aug 2006
Berichten
443
ik heb een draaigrafiek query die wordt gevuld door een parameter uit een formulier. Dit gaat goed. Nu zou ik alleen deze parameter ook op de print van de draaigrafiek zien. Bv in de titel (caption/bijschrift). Ik weet alleen niet wat de VBA code is om een bijschrift of titel in een draaigrafiekquery aan te roepen.

ik had Me.Caption = "test text" & persoon maar nu heb ik de titel van mijn formulier aangepast ipv de query

Weet iemand het wel?
alvast bedankt.
 
Laatst bewerkt:
nog wat extra toelichting. Ik heb onderstaande code. Nu word de query voor iedere actieve medewerker geprint. Helemaal ideaal maar op de print staat niet om welke medewerker (persoon = !Initialen
) het gaat. Is er een mogelijkheid om deze parameter wel op mijn print te krijgen. het maakt me daarbij niet zoveel uit op welke manier. Ik dacht aan de titel van de grafiek maar weet daar de VBA code niet voor, maar misschien kan het ook gewoon op de pagina.

Code: 
Private Sub Knop7_Click()

Dim persoon As String
With CurrentDb.OpenRecordset("QryActieveMedewerkers")
    .MoveFirst
    Do While Not .EOF
'    **********************************************
'    open het formulier frminitialen met initalen
    'query openen met persoonsgegevens
    'papier landscape en kleur
    'afdrukken
'    sluit het formulier
'    ga naar het volgende record en herhaal
'    ************************************************
        persoon = !Initialen
        DoCmd.OpenForm "frminitialen", , , "[Initialen] = '" & persoon & "'"
        DoCmd.OpenQuery "qGrMedewerker2", acViewPivotChart, acEdit
    
   'Pages!"qgrmedewerker2".Caption = "test tekst"
        Application.Printer.Orientation = acPRORLandscape
        Application.Printer.ColorMode = acPRCMColor
    '   DoCmd.PrintOut acPages
      MsgBox persoon & "oke?"
        DoCmd.Close acForm, "frminitialen", acSaveNo
        DoCmd.Close acQuery, "qGrMedewerker2", acSaveNo
        .MoveNext
    Loop
End With
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan