Discussion :

[fredym]

Bonjour,
Y a t'il un code plus court pour afficher la fenêtre de prévisualisation d'impression d'une feuille masquée puis la rendre à nouveau masquée
le code actuel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub () ' afficher une feuille masquée pour prévisualisation imprimer puis rendre feuille invisible.
    With Sheets("feuille1")
        .Visible = -1
        .Select
        .Application.Dialogs(xlDialogPrintPreview).Show False
        .Visible = 2
    End With
end sub

Merci

[Philippe Tulliez]

Bonjour,
En ligne 5 .PrintPreview

[fredym]

Bonjour Monsieur Tullier,
l'instruction 'printPreview' seule permet la mise en page, ce qui ne me convient pas.
ma demande était: puis-je avoir la prévisualisation dans devoir, au préalable, rendre visible la page ?
merci de votre attention.

[Pierre Fauconnier]

Salut.

A ma connaissance, seules les feuilles visibles peuvent être imprimées et donc prévisualisées pour l'impression.

[Philippe Tulliez]

Bonjour,
Comme l'a déjà écrit Pierre, la feuille doit être visible pour être prévisualisée et j'ajouterais que dans votre code, la méthode Select peut être omise car parfaitement inutile
Pour être complet, je copierais dans une variable temporaire la valeur de la propriété Visible de la feuille afin de lui rendre la même valeur après prévisualisation et tant qu'à faire placer ce code dans une procédure avec comme argument l'objet feuille afin de pouvoir la réutiliser pour d'autres cas. Ce n'est bien entendu pas obligatoire.

[Pierre Fauconnier]

[...]je copierais dans une variable temporaire la valeur de la propriété Visible de la feuille afin de lui rendre la même valeur après prévisualisation et tant qu'à faire placer ce code dans une procédure avec comme argument l'objet feuille afin de pouvoir la réutiliser pour d'autres cas. Ce n'est bien entendu pas obligatoire.

Pas obligatoire mais tellement mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function Preview(sh As Object)
  Dim OldValue As XlSheetVisibility
 
  OldValue = sh.Visible
  sh.Visible = xlSheetVisible
  sh.PrintPreview
  sh.Visible = OldValue
End Function

A placer dans son module xlTools (J'en parle dans ce billet de blog)

[fredym]

Merci pour la bonne info.
bonne soirée
Fredym