Print forms with different visible records

[OTWarrior]

Hello

I am creating a form that will display certain objects as visible if they match with the current record.
For example, if the value is 5, then 5 images will show.

This work fine in form view, but when I try to print (or print preview), the visible settings only match the first form (so everything shows).

Is there a way of forcing the print preview to execute code?

This is the code I need it to call



Private Sub Form_Current()Dim k As Integer


Call img_select
'turn meter
Call tm_sel(tm)


'power meter
If [card number] = 19 Then ' dh and mj
If IsNull([pm]) Then
Call PM_sel(5, True)
Else
Call PM_sel([pm])
End If
ElseIf [card number] = 17 Then ' bp
For k = 0 To 4
Me.Controls("pm" & k).Visible = True
Me.Controls("pm" & k & "l").Visible = True
Next k
Me.Controls("pm" & 5).Visible = True
Me.Controls("pm" & 5 & "l").Visible = True
Me.Controls("pm" & 5 & "l").Caption = "X"
Else
Me.Controls("pm" & 5 & "l").Caption = 5
Call PM_sel(pm)
End If


'health meter
If [card number] = 24 Then
Call HM_sel(12)
Else
Call HM_sel(hm)
End If






Select Case [Type]
Case "Control": [Detail].BackColor = RGB(222, 235, 247)
Case "Leader": [Detail].BackColor = RGB(255, 242, 204)
Case "Power": [Detail].BackColor = RGB(225, 63, 51)
Case "Special": [Detail].BackColor = RGB(173, 135, 249)
Case "Special / Control": [Detail].BackColor = vbBlue + vbRed + vbBlue
Case "Special / Power": [Detail].BackColor = vbBlue + vbRed + vbRed
Case "Troop": [Detail].BackColor = RGB(226, 240, 217)
End Select




If IsNull([pa]) Then
[pa].Visible = False
[pal].Visible = False
[pabk].Visible = False
Else
[pa].Visible = True
[pal].Visible = True
[pabk].Visible = True
End If


If IsNull([la]) Then
[la].Visible = False
[lal].Visible = False
[labk].Visible = False
Else
[la].Visible = True
[lal].Visible = True
[labk].Visible = True
End If


If IsNull([Notes]) Then
[Notes].Visible = False
Else
[Notes].Visible = True
End If


End Sub


This calls variations on this code


Function tm_sel(tm_Val As Integer)Dim i As Integer
i = 0


For i = 0 To 6
Me.Controls("tm" & i).Visible = False
Me.Controls("tm" & i & "l").Visible = False
Next i


i = 0
For i = 0 To tm_Val
Me.Controls("tm" & i).Visible = True
Me.Controls("tm" & i & "l").Visible = True
Next i


[tmMax].Caption = "(When this reaches " & tm_Val & ", Reset to 0 after activation)"


End Function

[PhilS]

This work fine in form view, but when I try to print (or print preview), the visible settings only match the first form (so everything shows).

Is there a way of forcing the print preview to execute code?
You are printing the form? - Then, I think, this is not possible.

You should create a report for printing. In a report there is a Format-Event for the Detail Section. In that event you can hide/show certain controls based on the data of the current record.

[OBP]

It is possible to convert a form to a Report, but the VBA code is different from one to the other.
AS PhilS says you can program the details section and also program the On Load event of the Report and also the On Format events of things like group Headers etc.