CommonDialog + ShowPrinter

Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -  
Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour

Comment pourrai je gérer les boutons d'une boite de dialogue pour impression en VB6 ?

Pour tester ma boite de dialogue, j'ai écris ce code : 

With CmnDialog
If CmnDialog.CancelError = True Then
MsgBox "Bonsoir"
'GoTo NoImp:
Exit Sub
Else
MsgBox "Bonjour"
'GoTo OkImp:
Exit Sub
End If
End With




mais apparemment, la propriété True ( ou pour être bien précis, la condition de départ n'est pas reconnue, qu'elle soit true ou false)  n'est pas reconnue par cette procédure.



Toute aide est la bienvenue avec toute ma reconnaissance            
            

                
            

                

    
    

    
            

            

    
    

        
        

                
1 réponse

        

        
    


            

        
        
        

                        Réponse 1 / 1
        


                    
                    

                

        

                    

        


     
             

            

    

            


    
    


        
        

                

        


     
             

                    Lenouveauapprenti
    
        
    
                    Messages postés
            
                


     
             

            306
        
            
                            Date d'inscription
             
                            Statut
            Membre
                            Dernière intervention
             
            



    
            
                


     
             

                        2
        
        

                        

                             

    


    

                        

                    Re Bonjour



J'ai essayé un autre code sans résultat escompté

Je vous demande de m'indiquer mes erreurs, Merci d'avance





'______________________________Impression



Dim NDebut, NFin As Integer
Dim NbreNumCopies, ICopies As Integer




On Error GoTo xxx:

CmnDialog.ShowPrinter


NDebut = CmnDialog.FromPage
NFin = CmnDialog.ToPage
NbreNumCopies = CmnDialog.Copies


        SQLs = "select * from TableGrandLivre where ((Dossier='" & CStr(VarDossier) & "')and (Compte=" & CLng(CmbCompte) & "))" & "order by NOrdreGl asc"
        
        If RS.State = adStateOpen Then RS.Close
        RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
        
        
        
        ADGL.RecordSource = SQLs
        
        Set DRGrandLivre.DataSource = ADGL
        
        
        ADGL.Refresh
        
        
        
        DRGrandLivre.Sections("Section4").Controls("LDossier").Caption = VarDossier
        DRGrandLivre.Sections("Section4").Controls("LDateDebut").Caption = VarDateD
        DRGrandLivre.Sections("Section4").Controls("LDateFinale").Caption = VarDateF
        DRGrandLivre.Sections("Section4").Controls("LblDate").Caption = DateAN
        DRGrandLivre.Sections("Section4").Controls("LblJournal").Caption = NomR
        DRGrandLivre.Sections("Section4").Controls("LTitre").Caption = CmbCompte & "    " & LblCompte
        DRGrandLivre.Sections("Section4").Controls("LblSoldeInitial").Caption = Format(SoldeAN, "#,##0.00")
        
        
        
        
        
        DRGrandLivre.Sections("Section5").Controls("LblDebitG").Caption = Format(SommeD, "#,##0.00")
        DRGrandLivre.Sections("Section5").Controls("LblCreditG").Caption = Format(SommeC, "#,##0.00")
        DRGrandLivre.Sections("Section5").Controls("LblSoldeG").Caption = Format(SoldeG, "#,##0.00")
        
        DRGrandLivre.Show
        DRGrandLivre.WindowState = 2
        
        'DRGrandLivre.PrintReport False, rptRangeAllPages



For ICopies = 1 To NbreNumCopies

Next ICopies
Exit Sub

xxx:
Exit Sub

                
                

    
        

    
            
        0