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

Aperçu avant impression uniquement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jsl72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jsl72

XLDnaute Junior
Bonjour à tous,

L'une ou l'autre des 2 instructions ci-dessous permettent de visualiser le document avant impression.

Instruction 1
Code: 
 ActiveWindow.SelectedSheets.PrintPreview

Instruction 2
Code: 
 ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,TRUE)"

L'aperçu avant impression offre la possibilité d'imprimer (voir pièce jointe)

Je souhaite supprimer cette fonctionnalité, quitte à ne garder que le bouton "Fermer l'aperçu avant impression".

y aurait-il un code adaptable pour supprimer la fonction "imprimer" ?

Merci pour votre aide.

Joël
 

Pièces jointes

  • aperçu.PNG
    34.2 KB · Affichages: 82
  • aperçu.PNG
    34.2 KB · Affichages: 86
  • aperçu.PNG
    34.2 KB · Affichages: 94
Trier par date Trier par votes
Re : Aperçu avant impression uniquement

Bonjour,

pas sûr d'avoir tout compris, peut être ceci à placer dans le module "thisworkbook" :
Code: 
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub
bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Aperçu avant impression uniquement

Bonjour Pierrot,

Merci pour ta proposition.
Cependant pas assez balaise pour comprendre comment insérer ce code dans ma macro.

Voici ma macro, si tu pouvais faire quelque chose pour moi.

Sub Toto()
'Définition de la zone d'impression
Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = ""
'aperçu avant impression
ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,TRUE)"
End Sub

Fichier Toto.xls en pièce jointe pour essai.

Merci pour ton aide.

Cordialement.

Joël
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
682
Chatron
C
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
838
Yann71
J
  • Question Question
Impression 3 codes différents et pas de solution
Réponses
2
Affichages
788
jsl72
J
J
  • Question Question
Apercu avant impression sans "imprimer"
Réponses
0
Affichages
6 K
jsl72
J
B
  • Question Question
Déselection des feuil d'un classeur après selection ttes les feuil pour impression
Réponses
2
Affichages
669
bonoboas
B
  • Question Question
Aperçu avant impression
Réponses
11
Affichages
1 K
maval
J
  • Question Question
Problème de rafraichissment labels avant impression...
Réponses
1
Affichages
2 K
Jerome87
J
  • Question Question
Imprimante àld aperçu avant impression!
Réponses
2
Affichages
784
Efgé
D
  • Question Question
VBA pour printout identique à 'fichier_imprimer' excel 2010
Réponses
13
Affichages
3 K
Staple1600
R
  • Question Question
Impression et aperçu avant impression d'une userform
Réponses
9
Affichages
8 K
Compte Supprimé 979
C
V
  • Question Question
Imprimer sans couleurs
2
Réponses
22
Affichages
5 K
Viking
V
  • Question Question
Commande Aperçu avant impression et Imprimer
Réponses
2
Affichages
17 K
vadelacaisse
V
G
  • Question Question
Aperçu avant impression d'un UserForm voir d'une Frame dans un UserForm Possible?
Réponses
1
Affichages
3 K
PMO2
P
C
  • Question Question
apercu avant impression
Réponses
3
Affichages
3 K
tbft
M
  • Question Question
HELP : Comment imprimer 2 feuilles Excel avec les macros ???
Réponses
0
Affichages
2 K
mahamalily
M
  • Question Question
Impression optimisée de chaque page sans couper d'informations [Résolu]
Réponses
1
Affichages
4 K
Likith
E
  • Question Question
publipostage par vba
Réponses
2
Affichages
2 K
Bruce68
B
C
  • Question Question
macro modification taille police avant impression
Réponses
2
Affichages
38 K
job75
M
  • Question Question
aperçu avant impression et userform
Réponses
2
Affichages
3 K
mirooz
M
P
  • Question Question
Aperçu avant imprim sur USF
Réponses
6
Affichages
1 K
petchy
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…