ændre caption på en rapport fra en sub på en anden form

Du er nødt til at styre rapportens navn med en Rename. I eksemplet hedder rapporten "rpt1". Du kan så hente et feltnavn fra den aktive formular, og omdøbe (Rename) det således:

Dim VARa As String
VARa = Me!Tekst0
DoCmd.Rename VARa, acReport, "rpt1"
DoCmd.OpenReport VARa, acViewPreview, "", "", acNormal

Lad os sige, at indholdet af formularens Tekst0 er = "Hej". Rapporten vil nu hedde "Hej". Næste gang du vil udskrive kan formularen ikke finde rapporten fordi den leder efter navnet "rpt1". Så inden du lukker formularen er du nødt til at Rename den igen. Det kan du gøre i en anden kommandoknap, eller evt. ved formularens lukning, hvis du ikke skal udskrive mere:

Dim VARa As String
VARa = Me!Tekst0
DoCmd.Rename "rpt1", acReport, VARa

Tak Mugs,
du er genial!

VH
Jind

Hej Mugs,
Det virkede desværre ikke alligevel. Rapportnavnet blev ændret - så derfor troede jeg det virkede.
Men pdf-skriveren bruger caption i rapportens properties til at navngive pdf-filen med. Og denne caption er ikke det samme som rapportnavnet.

Kan det ikke lade sig gøre at ændre caption i rapporten?

VH
Johannes

Genial og genial er vel så meget sagt al den stund, at mit forslag jo ikke fungerede.

Men hvad mener du med caption?

I rapportens properties er der en der hedder caption (hedder det mon navn i dansk access?.)Rapporten kommer til at hedde det, som står her. Det er altså ikke rapport navnet (på den u-udfyldte rapport) som den færdige rapport kommer til at hedde.

VH
Johannes

Caption tror jeg er det der på dansk hedder titeltekst. Den kan du ændre således:

DoCmd.OpenReport "rpt1", acViewPreview, "", "", acNormal
Reports!rpt1.Caption = "Et eller andet"

Men det fordrer, at rapporten er åben når du skifter caption. Men det har ikke noget at gøre med rapportens navn.

Jeg må lige indskyde, at jeg intet forstand har på udskrivning af PDF-filer.

Hej Mugs,
Ja, det er der jeg vil hen. Det virker nu - dog er der det store problem, at denne titeltext ikke gemmes når jeg laver en:
DoCmd.Close acReport, "rpt1", acSaveYes
(efter
DoCmd.OpenReport "rpt1", acViewPreview, "", "", acNormal
Reports!rpt1.Caption = "Et eller andet"
er "kørt")

Kunne du som tillæg hjælpe mig ud af den knibe?

VH
Johannes

Denne gemmer rapportens titeltekst:

DoCmd.OpenReport "rpt1", acViewPreview, "", "", acNormal
Reports!rpt1.Caption = "et eller andetn"

Jeg har indsat kommandoen i en formular før udskriftkommandoen.

Hej Mugs,
Jeg har altså to knapper. En ændrer navn og den anden printer ud.

Endnu engang tak for din hjælp.

Venlig hilsen
Johannes