Salut,
J'ai dans mon fichier Excel plusieurs onglets.
Je souhaiterais créer une macro qui imprime le contenu de tous les onglets non recto verso et sans agraffe.
Pour ce faire, j'ai utilisé l'enregistreur de macro, mais au final mon paramétrage de l'imprimante ne s'applique qu'à la première page. Pour toutes les autres, c'est le paramétrage par défaut de l'imprimante qui s'applique.
Voici mon code :
Sub ImpressionProtocole()
'Selection de tous les onglets du fichier
Sheets.Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
'Dé-sélection de tous les onglets pour éviter les erreurs
Sheets("Chargement 2").Select
Range("A1").Select
End Sub
Quelqu'un peut-il m'aider à corriger le bugg ?
Merci d'avance et bonne soirée.
Fab
J'ai dans mon fichier Excel plusieurs onglets.
Je souhaiterais créer une macro qui imprime le contenu de tous les onglets non recto verso et sans agraffe.
Pour ce faire, j'ai utilisé l'enregistreur de macro, mais au final mon paramétrage de l'imprimante ne s'applique qu'à la première page. Pour toutes les autres, c'est le paramétrage par défaut de l'imprimante qui s'applique.
Voici mon code :
Sub ImpressionProtocole()
'Selection de tous les onglets du fichier
Sheets.Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
'Dé-sélection de tous les onglets pour éviter les erreurs
Sheets("Chargement 2").Select
Range("A1").Select
End Sub
Quelqu'un peut-il m'aider à corriger le bugg ?
Merci d'avance et bonne soirée.
Fab