*** COMPTER LE NB DE PAGE D'IMPRESSION ***Résolu

Question

Salut a  tous
Je voudrai faire apparaître avant l'impression d'un adodc un msgbox qui demande une confirmation de cette dernière et qui contient le nombre de page  nécessaire pour l'impression. J'ai fait se code d'après ma tout petite connaissance dans VB6 mais je n'ai pas arriver 

  
Dim Page As Long
Dim cl$, MSG, Msg1, Style, Title, Response, MyString
'Compter le nombre de page
If Adodc1.Recordset.RecordCount = 80 Then
Page = 1
Else
Page = Adodc1.Recordset.RecordCount / 80
End If
'Boite de dialogue demande de confirmation
 cl$ = Chr$(13) + Chr$(10)
 MSG = "Vous allez imprimer cette grille sur " & Page & " page(s)." + Chr$(13) + Chr$(10)
 MSG = MSG + "Voulez vous vraiment continuer ?" + Chr$(13) + Chr$(10)
 Style = vbYesNo + vbInformation + vbDefaultButton1   ' Définit les boutons.
 Title = "Confirmation d'impression"   ' Définit le titre.
 Response = MsgBox(MSG, Style, Title)
  If Response = vbYes Then   ' L'utilisateur a choisi Oui.
     MyString = "Oui"   ' Effectue une action.

Merci de m?aider

cs_frop01 · Accepted Answer

Tu devras déclarer la variable Page comme Integer

Dim Page As Integer

ensuite au lieu de :


If Adodc1.Recordset.RecordCount = 80 Then
Page = 1
Else
Page = Adodc1.Recordset.RecordCount / 80
End If



tu mets tout simplement:


Page = Int(Adodc1.Recordset.RecordCount  / 80) + 1


 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Classement au top de la semaine : 3 ème (sur Vbfrance et Codes-Source)

Membre du club http://www.codes-sources.comCodeS-S

cs_Heny · Answer

Hé frop01 merci bien T vraiment génial A+ chef

* COMPTER LE NB DE PAGE D'IMPRESSION *

2 réponses

Discussions similaires