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
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