Assigning different values to a function during the print event in a report instead of its normal output

[Richard Hollenbeck]

I noticed I can't push a value into a text box by saying something like,

"txtThisTextBox = intSomeVariable * 0.5"

because I get an run-time error saying I can't assign a value to this
object.

So instead I made the control source a function to pull the value from the
function. That works. Inside the text box I simply write something like
=SomeFunction(). Beautiful. Works great.

But as I said in another recent post, the data are calulated at format time.
So it recalulates (actually re-formats) again during print, giving double
the expected values. So I need some code to put into the print event to
multiply the value in those text boxes by half (same as dividing by 2 but
avoiding a potential divide-by-zero error). The only problem with that is I
can't specifically push the data into those boxes. Is there a way to query
the program from within the function to see if the current event is Print?
If so I can make the function output half its normal value during the print
event?

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

You could make the control an Unbound control (the control source is
empty). Then in the section print event procedure (whichever report
section in which the control resides) check the PrintCount variable
before doing the calculation. E.g.:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

If PrintCount = 1 Then
txtThisTextBox = intSomeVariable * 0.5
End IF

End Sub

The calculation expression will only be evaluated one time
(PrintCount=1).

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQXrvX4echKqOuFEgEQIU3ACfe+A9+xhqZLOyHK1+150eCa B8SeUAn2Js
gNC1+8ota4375CWM9+XRWnS+
=Lw2+
-----END PGP SIGNATURE-----
Richard Hollenbeck wrote:

I noticed I can't push a value into a text box by saying something like,

"txtThisTextBox = intSomeVariable * 0.5"

because I get an run-time error saying I can't assign a value to this
object.

So instead I made the control source a function to pull the value from the
function. That works. Inside the text box I simply write something like
=SomeFunction(). Beautiful. Works great.

But as I said in another recent post, the data are calulated at format time.
So it recalulates (actually re-formats) again during print, giving double
the expected values. So I need some code to put into the print event to
multiply the value in those text boxes by half (same as dividing by 2 but
avoiding a potential divide-by-zero error). The only problem with that is I
can't specifically push the data into those boxes. Is there a way to query
the program from within the function to see if the current event is Print?
If so I can make the function output half its normal value during the print
event?