1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Dim Report As New CrystalReport13
Option Explicit
Dim FirstShowComplete As Boolean
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.Zoom (110)
RefreshViewer
Me.Caption = " le client :" & Form11.Combo1
FirstShowComplete = False
Report.DiscardSavedData
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Private Sub RefreshViewer()
Dim s As String
Screen.MousePointer = vbHourglass
s = s & " {T_Benificiare.nom } = '" & Form11.Combo1 & "'"
Report.RecordSelectionFormula = s
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Report = Nothing
End Sub |