Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Les Commentaires s'impriment

CVL

XLDnaute Nouveau
Bonjour,
Dans une macro, j'ai défini la zone d'impression du document mais curieusement le document veut imprimer tous les commentaires repris dans cette zone d'impression ...
Comment lui indiquer de n'imprimer que la zone définie sans les commentaires.
Pourtant dans mise en page, feuille :: "aucun" est bien sélectionné dans "Commentaires" !!!.
Après la macro, quand j'y retourne , il indique à Commentaires: "A la fin de la feuille"


Merci ...
CVL
La macro en dessous:
Sub imprimer_env_DetailMargesok()
' imprimer_enveloppe_détail avec marges à 0
' mise à 0 des marges et commentaires aucun

' Mettre les marges à 0 dans la nouvelle feuille créée
Application.PrintCommunication = False
Application.DisplayCommentIndicator = xlNoIndicator 'masquer indicateur
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = "$A$3:$G$116"
Application.PrintCommunication = False
Application.DisplayCommentIndicator = xlNoIndicator 'masquer indicateur
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = "0" 'Application.InchesToPoints(0)
.RightMargin = "0" 'Application.InchesToPoints(0)
.TopMargin = "35" 'Application.InchesToPoints(0.748031496062992)
.BottomMargin = "35" 'Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""

End With
Application.PrintCommunication = True
Application.DisplayCommentIndicator = xlNoIndicator 'masquer indicateur

'Impression de la sélection

Range("A189:G254").Select
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$A$189:$G$254"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("A3:G116").Select
Range("H1").Activate
ActiveSheet.PageSetup.PrintArea = "$A$3:$G$116"
ActiveWorkbook.Save
Range("H1").Select
Application.PrintCommunication = False
MsgBox "Le document à coller sur l'enveloppe s'imprime avec les marges à zéro."
End Sub
 

CVL

XLDnaute Nouveau
Re : Les Commentaires s'impriment

Oui. merci je l'avais déjà consulté et posé ma question.
Le souci qui me reste c'est l'impression d'une feuille vierge après l'impression de ce document d'une page (sans les commentaires cette fois).
Cordialement,
CVL
 

Tentative

XLDnaute Occasionnel
Re : Les Commentaires s'impriment

Bonjour,

Quand une page blanche suit lors d'une impression, c'est souvent la taille de la zone d'impression qui est légèrement trop grande pour la feuille ... j'ai déjà vu un caractère qui dépassait très légèrement la taille d'une cellule.

Dans ton code, le Zoom est à 100; essaie à 90 ou même à 80.

Pour économiser lors des tests, tu peux utiliser une imprimante PDF,


Tentative
 

CVL

XLDnaute Nouveau
Re : Les Commentaires s'impriment

Bonjour,
C'est bizarre car lorsque j'effectue l'impression du document sans passer par la macro, cela fonctionne correctement sans avoir une page vierge en plus.
Je me dis donc qu'il doit y avoir quelque chose qui coince ou qui n'est pas défini dans la macro ...
Cordialement,
CVL
 

CVL

XLDnaute Nouveau
Re : Les Commentaires s'impriment

Re,
J'ai trouvé une solution à demi satisfaisante. Je lui demande juste l'impression de la page 1 à la page 1 ...
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Cordialement,
CVL
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…