Les Commentaires s'impriment

[CVL]

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

 

[Tentative]

Re : Les Commentaires s'impriment

Bonjour,

As-tu lu le post #2 ici : https://www.excel-downloads.com/thr...ssion-des-commentaires-xlprintinplace.223708/


Tentative

 

[CVL]

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]

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]

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]

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