Discussion :

[Nils78]

Bonjour,

Je cherche à imprimer une sélection comme AX5:BJ43 sur une imprimante déportée en choisissant l'imprimante et le nombre d'exemplaires voici le code que j'emploie

Code :

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

1
2
3
 Range("AX5:BJ43").Select
    ActiveSheet.PageSetup.PrintArea = "$AX$5:$BJ$43"
    Application.Dialogs(xlDialogPrint).Show , , , 3

Mais je butte sur la suite, la boite se ferme et l'impression ne se fait pas que faire pour lancer l'impression.

[Nils78]

L'envoi de l'impression va bien à l'imprimante déportée et le nombre d'exemplaires est modifiable à l'écran. Le défaut d'impression était du au fait que l'imprimante est commune et quelqu'un avait ramassé les impressions en même temps que les siennes