Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Meat,
Tu pourrais copier cette procédure dans le ThisWorkbook de ton classeur :
Pour que cette procédure soit associée à une feuille particulière de ton classeur :
Tu modifies le nom de la feullle pour laquelle tu veux appliquer la procédure, et tu modifies les plages de cellules selon ton application.
'---------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Rg As Range, Are As Range, Feuille As String
Feuille = "Feuil1"
With Worksheets(Feuille) Set Rg = .Range("A1:A25,A5:C10") For Each Are In Rg.Areas .PageSetup.PrintArea = Are.Address .PrintPreview ' modifie pour .printout .PageSetup.PrintArea = "" Next End With Set Rg = Nothing: Set Are = Nothing End Sub '----------------------------------
Salutations!
"Meat" a écrit dans le message de news: 006001c53ecb$1292c920$ Bonjour,
J'ai un fichier Excel qui contient plusieurs petits tableau sur une même feuille de calcul.
Présentement pour l'imprimer, je dois définir une zone d'impression pour chaque tableau, ce qui est assez fastidieux.
Existe t-il un moyen de configurer une zone d'impression ou une page pour chaque petit tableau sur la feuille? Si oui, comment?
Merci.
Bonjour Meat,
Tu pourrais copier cette procédure dans le ThisWorkbook de ton classeur :
Pour que cette procédure soit associée à une feuille particulière de ton classeur :
Tu modifies le nom de la feullle pour laquelle tu veux appliquer la procédure,
et tu modifies les plages de cellules selon ton application.
'----------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Rg As Range, Are As Range, Feuille As String
Feuille = "Feuil1"
With Worksheets(Feuille)
Set Rg = .Range("A1:A25,A5:C10")
For Each Are In Rg.Areas
.PageSetup.PrintArea = Are.Address
.PrintPreview ' modifie pour .printout
.PageSetup.PrintArea = ""
Next
End With
Set Rg = Nothing: Set Are = Nothing
End Sub
'----------------------------------
Salutations!
"Meat" <meatb@hotmail.com> a écrit dans le message de news: 006001c53ecb$1292c920$a601280a@phx.gbl...
Bonjour,
J'ai un fichier Excel qui contient plusieurs petits
tableau sur une même feuille de calcul.
Présentement pour l'imprimer, je dois définir une zone
d'impression pour chaque tableau, ce qui est assez
fastidieux.
Existe t-il un moyen de configurer une zone d'impression
ou une page pour chaque petit tableau sur la feuille? Si
oui, comment?
Tu pourrais copier cette procédure dans le ThisWorkbook de ton classeur :
Pour que cette procédure soit associée à une feuille particulière de ton classeur :
Tu modifies le nom de la feullle pour laquelle tu veux appliquer la procédure, et tu modifies les plages de cellules selon ton application.
'---------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Rg As Range, Are As Range, Feuille As String
Feuille = "Feuil1"
With Worksheets(Feuille) Set Rg = .Range("A1:A25,A5:C10") For Each Are In Rg.Areas .PageSetup.PrintArea = Are.Address .PrintPreview ' modifie pour .printout .PageSetup.PrintArea = "" Next End With Set Rg = Nothing: Set Are = Nothing End Sub '----------------------------------
Salutations!
"Meat" a écrit dans le message de news: 006001c53ecb$1292c920$ Bonjour,
J'ai un fichier Excel qui contient plusieurs petits tableau sur une même feuille de calcul.
Présentement pour l'imprimer, je dois définir une zone d'impression pour chaque tableau, ce qui est assez fastidieux.
Existe t-il un moyen de configurer une zone d'impression ou une page pour chaque petit tableau sur la feuille? Si oui, comment?
