imprimer avec case a cocher !

imprimer avec case a cocher ! - VB/VBA/VBS - Programmation

Marsh Posté le 02-08-2002 à 18:22:35    

salut,
         J'ai un formulaire avec des cases a cocher
case1
case2
case3
case4
 
J'ai autant d'état que de case
état1
état2
état3
état4
 
comment faire pour imprimer les états dont les cases sont cochées ?
comment faire pour avoir un aperçc avant impression des états dont les cases sont cochées ?
 
merci
 
 
Gwendal
 :jap:  
 

Reply

Marsh Posté le 02-08-2002 à 18:22:35   

Reply

Marsh Posté le 02-08-2002 à 23:28:10    

essaye d'aller sur www.vbfrance.com  ! ;)


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 05-08-2002 à 03:55:30    

pour imprimer
 

Code :
  1. if case1.value = true then docmd.openreport "etat1", acviewnormal
  2. ...


 
pour un apercu
 

Code :
  1. if case1.value = true then docmd.openreport "etat1", acviewpreview
  2. ...

Reply

Marsh Posté le 05-08-2002 à 20:59:27    

Code :
  1. Private Sub aperçu_Click()
  3.     'Reduire le formulaire (qui doit être en fen modal)
  4.     DoCmd.Minimize
  5.    
  6.     'Ouvre etat_1 si la case_1=1
  7.     If case_1 = True Then
  8.     DoCmd.OpenReport "etat_1", acPreview
  9.     End If
  11.     If folio2_case = True Then
  12.     DoCmd.OpenReport "Intitulé_2", acPreview
  13.     End If
  14.     If folio3_case = True Then
  15.     DoCmd.OpenReport "Intitulé_3", acPreview
  16.     End If
  17.     If folio4_case = True Then
  18.     DoCmd.OpenReport "Intitulé_4", acPreview
  19.     End If
  20.     If folio5_case = True Then
  21.     DoCmd.OpenReport "Intitulé_5", acPreview
  22.     End If
  23.    
  24. End Sub

Reply

Marsh Posté le 05-08-2002 à 21:00:36    

oups appuyé trop vite sur Valider !
 
mais merci pour le code !!
c'est exactement sa que je voulais !
 
@+
 
Gwendal

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed