impression

[GHISLAIN]

bonjour a tous

j ai ce code qui m'imprime les pages de chaque onglets avec condition

Dim sh As Worksheet
' si ma cellule a64 n'est pas vide ça imprime les 3 pages de toute les feuil du classeur sinon pas d'impression
For Each sh In Worksheets
If Sheets("code10").Range("A64").Value <> "" Then
sh.PrintOut 3, 1
End If
Next sh

For Each sh In Worksheets
' si ma cellule a38 n'est pas vide ça imprime les 2 pages de toute les feuil du classeur sinon pas d'impression
If Sheets("code10").Range("A38").Value <> "" Then
sh.PrintOut 2, 1
End If
Next sh

For Each sh In Worksheets
' si ma cellule a12 n'est pas vide ça imprime la 1 page de toute les feuil du classeur sinon pas d'impression
If Sheets("code10").Range("A12").Value <> "" Then
sh.PrintOut 1, 1
End If
Next sh

ce code fonctionne parfaitement si je l insere sur un bouton , ou dans un module
par contre celui ci ne fonctionne plus si je le place dans le:
Private Sub Workbook_BeforePrint(Cancel As Boolean)

et je ne sais pas pourquoi !!!

si quelqu un pouvais m aiguiller sur mon erreur

merci a tous
amicalement

ghislain

 

[Dranreb]

Re : impression

Bonjour.
Essayez peut être Application.EnableEvents = False avant chaque PrintOut et remis True après.
Cordialement

 

[GHISLAIN]

Re : impression

bonjour Dranreb,

merci d etre passé sur mon fil , mais malheureusement ta proposition n'a aucun effet
merci encore

je continue de cherche

amicalement

ghislain