Solved A Report Puzzle (1 Viewer)

[Cotswold]

I have a report and I wanted to fill fields in the Header before printing using various DLookup() operations and other calculated fields. These are all in the Report Load().

If I run the report by double-clicking, or run it with DoCmd.OpenReport "R34_Test", acViewPreview it is fine.

However, if I run it to the printer with Docmd.OpenReport "R34_Test", acViewNormal the fields in the header do not show content.

Irritatingly I cannot see why. Just wondering if anyone out there knows why.

I attach a database with a simplified Report and Form to run the report as an example.

 

[Gasman]

Works for me?

using your Print button ?

Ahh I see. I had run the Preview first and still had that open.

 

[The_Doc_Man]

Don't know that I can answer the problem, but you are not the first to report this issue.

Run Docmd.OpenReport with acNormal in which event to put code?

The situation I have a report which is used for a receipt, I made 2 buttons to extract it - one is to get a PDF and the other is to print. If using PDF then i need the background image. If printing...

stackoverflow.com

 

[Gasman]

This works

Private Sub bPrint_Click()
   '
        Dim fReport As String
        fReport = "R34_Test"
        DoCmd.OpenReport fReport, acViewPreview, , , acHidden
        DoCmd.OpenReport fReport, acViewNormal
        DoCmd.Close acReport, fReport
 
  
End Sub

An alternative instead of the extra OpenReport command is put that code from Report Load into the Print Event of the header.

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    Me!fText0 = "QWERTY"
    Me!fText2 = "ASDFGH"
    Me!fText4 = "ZXCVBN"

End Sub

 

[KitaYama]

Your code should be in Page Header's on format event.

 

[Cotswold]

Your code should be in Page Header's on format event.

Many thanks KitaYama & TDM that is the solution.

(thanks to Gasman but as Format() worked didn't test)