Aperçu avant impression uniquement

jsl72 · 27 Janvier 2013

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

Pierrot93 · 28 Janvier 2013

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
@+

jsl72 · 28 Janvier 2013

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

Pierrot93 · 28 Janvier 2013

Re : Aperçu avant impression uniquement

Re,

ton fichier en retour.

jsl72 · 29 Janvier 2013

Re : Aperçu avant impression uniquement

Bonjour Pierrot,

Merci pour le fichier en retour.

Cordialement.

Joël.

Aperçu avant impression uniquement

jsl72

XLDnaute Junior

Pièces jointes

Pierrot93

XLDnaute Barbatruc

jsl72

XLDnaute Junior

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Pièces jointes

jsl72

XLDnaute Junior

Discussions similaires