Imprime les commentaires ...

Résolu

CarineVL Messages postés 320 Date d'inscription Statut Membre Dernière intervention -
CarineVL Messages postés 320 Date d'inscription Statut Membre Dernière intervention - 22 nov. 2015 à 09:52

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.
Merci ...
CVL

A voir également:

Sur instagram, masquer automatiquement les commentaires contenant son surnom, "baleine".
Télécharger instagram pc - Télécharger - Divers Communication
Créer un compte instagram sur google - Guide
Brouillon instagram - Guide
Comment masquer les amis sur facebook - Guide
Qui regarde mon profil instagram - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Voir ceci:

http://www.astuceshebdo.com/2012/05/excel-imprimer-les-commentaires.html

Sinon petite astuce:

Clic droit sur le commentaire, Format de commentaire et mettre la police en blanc

Réponse 2 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

cliquez sur le logo en haut à gauche, Options Excel, Option avancées
et voir si cela est comme ça:

CarineVL Messages postés 320 Date d'inscription Statut Membre Dernière intervention 9

Bonjour,
J'ai bien coché maintanant "indicateur seul et commentaires au survol"
Merci ...
J'avais déjà trouvé une solution pour ne pas imprimer les commentaires avec le code suivant:
' ne pas imprimer les commentaires
ActiveSheet.PageSetup.PrintComments = xlPrintNoComments

Cordialement,
CVL

Réponse 3 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

Comme cela:

Private Sub CommandButton1_Click()
 Application.DisplayCommentIndicator = xlCommentIndicatorOnly 'masquer
End Sub

Private Sub CommandButton2_Click()
 Application.DisplayCommentIndicator = xlCommentAndIndicator 'afficher
End Sub

Private Sub CommandButton3_Click()
 Application.DisplayCommentIndicator = xlNoIndicator 'masquer indicateur
End Sub

CarineVL Messages postés 320 Date d'inscription Statut Membre Dernière intervention 9

Bonjour, les commentaires s'impriment toujours.
Pourtant dans mise en page, feuille :: "aucun" est bien sélectionné !.
Après la macro, quand j'y retourne , il indique à Commentaires: "A la fin de la feuille"
J'ai inséré le code à plusieurs endroits mais rien n'y fait ...

Voici le code en dessous ...

Merci de me conseiller ...

Cordialement
CVL
:
Sub imprimer_env_DetailMargesok()
' imprimer_enveloppe_détail avec marges gauches et droites à 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

Votre réponse