Impression format A3 sur imprimante Local

Bonjour,

Après plusieurs essais je suis un peu coincé

je cherche a imprimer en format A3 Paysage sur une imprimante en local

j'ai un bout de code mais à chaque fois que je lance la macro l'impression se fait en A4

auriez vous une solution

Sub Impression_planning()

'Imprimer PLANNING

With Application

.ActivePrinter = "\\srv-Nom de l'entreprise.local\JOIADMC1 sur Ne02:"

ActiveSheet.PrintOut

ActiveWorkbook.Save

Range("B200").Select

End With

End Sub

Bonjour,

le plus facile est de créer une imprimante virtuel,

tu peut utiliser l'imprimante JOIADMC1 sur Ne02

et en faire un copie sur une autre nom JOIADMC1ver2

une fois la copie faite, tu modifie les parametres (format A3, paysage, etc...)

dans la macro tu utilise

.ActivePrinter = "\\srv-Nom de l'entreprise.local\JOIADMC1ver2 sur Ne02:"