To be printed or not, that's the question

Bonjour le forum,
Bonjour les cracks,

petit problème d'impression dans un fichier et pas dans l'autre malgré un code strictement identique!

    With ActiveSheet.PageSetup
        .PrintArea = Range("M150:X178").Address
        .Zoom = False
        .PaperSize = xlPaperA4
        .Orientation = xlLandscape
        .CenterHorizontally = True
        .CenterVertically = True
        .LeftMargin = 0
        .RightMargin = 0
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False

Dans 'TestPRINT', ça va tout seul et j'obtiens ma feuille impeccable.
Par contre, dans l'autre, ça ne va pas du tout, m'affichant même l'écran de Preview en mettant la feuille en portrait.

Dans ce dernier fichier, on arrive à la commande d'impression via une série de double-clic, sur n'importe quelle feuille.

Le code se trouve dans 'ThisWorkbook' en fin de procédure 'Sub Workbook_SheetBeforeDoubleClick'.

Si vous pouvez m'expliquer l'astuce, ce serait chouette, histoire de pouvoir terminer le fichier d'autant que je dois, dans l'idéal, effectuer la même impression en boucle en fonction du volume de données.

Bon WE, tout le monde!

**************************************************************************************************************
Encore des soucis de téléchargement de fichiers sur Excel-Pratique. Je mets les fichiers dès que possible!
**************************************************************************************************************

A+

Bonjour,

...vous vous lancez dans l'escrime....

J'ai fait ceci dans le fichier Danielnew

- Feuille BabysF
- Double click sur la cellule "Combar sans touche". cela m'amène à la ligne 94
- double click sur I94, cela m'affiche le print preview comme ceci

Je ne vois pas le souci....

Par contre il y a aussi un code Print inclus dans la procédure double-click qui est utilisé si on double click sur J150

Bonsoir Dan,

"petite" réunion de famille qui s'est prolongée plus tard que prévu...

Le "print preview" que tu montres est une étape intermédiaire où l'utilisateur doit encoder les n° de poule dans la colonne [E] .
Dans ce cas-ci, je l'ai déjà fait. Il faut alors encore un autre double-clic sur l'en-tête 'POULES' pour arriver au document à imprimer.

Et c'est là qu'est l'os!
Dans le fichier 'TestPRINT', lorsque je clique sur l'icône 'Fichier', l'imprimante me sort le document en paysage (voir le code = xlLandscape).
Dans 'DanielNEW', le même code m'affiche un écran PREVIEW... en mode portrait!

Où vois-tu la malice?

Merci pour tes lumières!
A+

Bonsoir,

A mon avis, votre test sur la cellule J150 n'est pas bien séquencé. Ceci devrait être mieux :

ElseIf Not Intersect(Target, [J150]) Is Nothing Then
    With ActiveSheet.PageSetup
        .PrintArea = Range("M150:X178").Address
        .Zoom = False
        .PaperSize = xlPaperA4
        .Orientation = xlLandscape
        .CenterHorizontally = True
        .CenterVertically = True
        .LeftMargin = 0
        .RightMargin = 0
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False
    ActiveSheet.DisplayAutomaticPageBreaks = False
    Dummy = DoEvents()
ElseIf Target.Row > 90 And (Target.Font.Name = "Wingdings" Or Selection.Cells(1, 1).Offset(1, 0).Font.Name = "Wingdings") Then
    'Choix d'impression : PrintOut  ou  Preview
    sAdr = IIf(Target.Row Mod 2 = 0, Target.Address, Target.Offset(1, 0).Address)
    If Target.Font.Name <> "Wingdings" Then iNb = Target
    Call PrintSheet(sAdr, iNb)

Bonsoir Thev,

trop fort!

Et pourtant, à force d'ajouter des fonctionnalités à gauche à droite, j'avais déjà compris toute l'importance de cette "séquence" de tests que tu suggères!
Celle-ci m'avait complètement échappée!

Mille mercis, Thev : l'impression s'est déroulée comme attendu!
Je tâcherai d'affiner encore plus ma réflexion avant de crier à l'aide!

Bonne soirée!
A+