Re-bonjour
Savez s'il est possible de conserver des zones d'audit en permanence sans que les marqueurs d'audits n'apparaissent à l'impression ?
Merci.
[Résolu] Audits et impression
Modérateur : Vilains modOOs
Règles du forum
Cette section est uniquement dédiée au tableur Calc. Vous ne devez pas poster ici de questions sur les macros mais utiliser la section éponyme.
Cette section est uniquement dédiée au tableur Calc. Vous ne devez pas poster ici de questions sur les macros mais utiliser la section éponyme.
-
- Membre OOrganisé
- Messages : 69
- Inscription : 13 mars 2006 12:40
- Localisation : Bretagne
[Résolu] Audits et impression
Dernière modification par Bruno Le Clainche le 14 juin 2006 08:32, modifié 1 fois.
LibO 5.3.6.1 sous Windows sept (poste professionnel)
LibO 5.? sous Ubuntu 16.04 (poste personnel)
Il n'y a pas de problème qu'une absence de solution ne finisse par résoudre
LibO 5.? sous Ubuntu 16.04 (poste personnel)
Il n'y a pas de problème qu'une absence de solution ne finisse par résoudre
-
- Grand Maître de l'OOffice
- Messages : 11276
- Inscription : 02 mai 2006 10:42
Masquer les repères d'audit à l'impression
Bonjour
Ci-dessous 2 procédures pour masquer ou réafficher les repères. Principe : mettre les flèches en style de ligne "invisible".
Nota :
- Ces procédures "simplifiées" travaillent indistinctement sur tous les objets de dessin. A compléter donc si la feuille active en comprend qui ne soient pas des repères d'audit
- Possible d'affecter la macro "masquer" à l'événement "sur impression" du document par la commande Outils Personnaliser onglet Evénements
Ci-dessous 2 procédures pour masquer ou réafficher les repères. Principe : mettre les flèches en style de ligne "invisible".
Nota :
- Ces procédures "simplifiées" travaillent indistinctement sur tous les objets de dessin. A compléter donc si la feuille active en comprend qui ne soient pas des repères d'audit
- Possible d'affecter la macro "masquer" à l'événement "sur impression" du document par la commande Outils Personnaliser onglet Evénements
Code : Tout sélectionner
sub PysAuditMasquer
dim PysClasseur as Object, PysFeuilleActive as Object
dim i as integer
PysClasseur = thisComponent
PysFeuilleActive=PysClasseur.currentController.activeSheet
for i= 0 to PysFeuilleActive.DrawPage.count-1
PysFeuilleActive.DrawPage(i).LineStyle=0
next i
end sub
sub PysAuditAfficher
dim PysClasseur as Object, PysFeuilleActive as Object
dim i as integer
PysClasseur = thisComponent
PysFeuilleActive=PysClasseur.currentController.activeSheet
for i= 0 to PysFeuilleActive.DrawPage.count-1
PysFeuilleActive.DrawPage(i).LineStyle=1
next i
end sub
-
- Membre OOrganisé
- Messages : 69
- Inscription : 13 mars 2006 12:40
- Localisation : Bretagne
-
- Grand Maître de l'OOffice
- Messages : 11276
- Inscription : 02 mai 2006 10:42