I have created a form that displays a bar chart. I construct the bar chart by setting the width of a text field each time a fetch action is executed.
PROBLEM: the form displays correctly but when I print or print preview the form, the bars do not print (they show up as if I was printing the form from design mode) & many extra (blank) pages are printed.
What am I doing wrong??
[email protected]
The following is an example of the fetch action script:
(I have also included the script for the BarWidth function)...
'As
:FrmUrineTmp:Text69.object.width = BarWidth(.21,.51,:FrmUrineTmp:Field6.value)
:FrmUrineTmp:Text69.text = STR(:FrmUrineTmp:Field6.value,6,3)
:FrmUrineTmp:Text69.Refresh()
'B
:FrmUrineTmp:Text120.object.width = BarWidth(1.9,4.4,:FrmUrineTmp:Field8.value)
:FrmUrineTmp:Text120.text = STR(:FrmUrineTmp:Field8.value,6,2)
:FrmUrineTmp:Text120.Refresh()
'Ca
:FrmUrineTmp:Text121.object.width = BarWidth(100,250,:FrmUrineTmp:Field9.value)
:FrmUrineTmp:Text121.text = STR(:FrmUrineTmp:Field9.value,6,1)
:FrmUrineTmp:Text121.Refresh()
'_________________________
function BarWidth as N(LowVal As N, HighVal As N, Observed As N)
Select
Case ObservedLowVal .and. Observed1.35*HighVal then
Barwidth = 6.7
else
BarWidth = 5 + ((Observed-HighVal)/(HighVal*1.35))*1.7
end if
end select
end function
PROBLEM: the form displays correctly but when I print or print preview the form, the bars do not print (they show up as if I was printing the form from design mode) & many extra (blank) pages are printed.
What am I doing wrong??
[email protected]
The following is an example of the fetch action script:
(I have also included the script for the BarWidth function)...
'As
:FrmUrineTmp:Text69.object.width = BarWidth(.21,.51,:FrmUrineTmp:Field6.value)
:FrmUrineTmp:Text69.text = STR(:FrmUrineTmp:Field6.value,6,3)
:FrmUrineTmp:Text69.Refresh()
'B
:FrmUrineTmp:Text120.object.width = BarWidth(1.9,4.4,:FrmUrineTmp:Field8.value)
:FrmUrineTmp:Text120.text = STR(:FrmUrineTmp:Field8.value,6,2)
:FrmUrineTmp:Text120.Refresh()
'Ca
:FrmUrineTmp:Text121.object.width = BarWidth(100,250,:FrmUrineTmp:Field9.value)
:FrmUrineTmp:Text121.text = STR(:FrmUrineTmp:Field9.value,6,1)
:FrmUrineTmp:Text121.Refresh()
'_________________________
function BarWidth as N(LowVal As N, HighVal As N, Observed As N)
Select
Case ObservedLowVal .and. Observed1.35*HighVal then
Barwidth = 6.7
else
BarWidth = 5 + ((Observed-HighVal)/(HighVal*1.35))*1.7
end if
end select
end function
Comment