VBA impression sélection

Bonjour à tous

J'ai un petit problème, je souhaiterais idéalement ouvrir la boite de dialogue d'impression avec les paramètres suivants déjà mis :

• imprimer sélection actuelle

• marges personnalisées

• Impression papier A3

• Ajustement vertical et horizontal

Voici mon code : (cellule FinFull_Impr. est ma cellule en bas à droite de la sélection que je souhaite imprimer)

Sub Full_Impr()
'Impression avec récap personnel & matériel
    Range("A16:FinFull_Impr.").Select
    Application.SendKeys "^(p)"
    ActiveSheet.Activate
        With ActiveSheet.PageSetup
            .LeftMargin = Application.InchesToPoints(0.45)
            .RightMargin = Application.InchesToPoints(0.45)
            .TopMargin = Application.InchesToPoints(0.45)
            .BottomMargin = Application.InchesToPoints(0.45)
            .Orientation = xlPortrait
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With

End Sub

Cependant quand je clic sur le bouton, les paramètres sautent ... je comprends pas trop le code vba d'impression... une subtilité peut-être ?

Par avance merci

Julien,

Bonsoir,

ceci : Range("A16:FinFull_Impr.").Select

m'interpelle... Il n'y a pas une erreur ?

FinFull_Impr. ne serait-ce pas une variable qui contient la dernière ligne à imprimer ?

Alors je verrais plutôt :

Range("A16:" & FinFull_Impr).Select

Mais je dois faire erreur... Sinon vous auriez eu des messages d'erreur lors de l'exécution du code, non ?

@ bientôt

LouReeD

Holla

Nan nan, FinFull_Impr. est bien la dénomination d'une cellule et non d'une ligne.

Pas de message d'erreur non plus, tout fonctionne sauf que mes paramètres ne sont pas appliqués dans ma boite de dialogue (même les marges personnalisées)...