Ma Macro fonctionne sur une imprimante et pas sur l’autre
2 réponses
Frasax
Bonjour à tous,
J’ai une imprimante HP Deskjet 5550 serie
Ma macro est la suivante :
---------
Sub Impression()
Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
ActiveSheet.PageSetup.PrintQuality = -2
feuille.PrintOut, Copies:=2, Preview:=False
Next
End Sub
-------------------
Et ça fonctionne bien, par contre, avec l’imprimant HP psc 720, cette macro
ne fonctionne pas, j’ai un bogue su r la ligne
« ActiveSheet.PageSetup.PrintQuality:= -2 »
N’Y a-t-il pas une formule pour un Print universel ?
Merci d’avance de votre aide et meilleures salutations.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
à moins que ceci soit vraiment essentiel « ActiveSheet.PageSetup.PrintQuality:= -2 »
désactive tout simplement cette ligne de commande... les pilotes des imprimantes ne fonctionnent pas tous de la même façon et toutes les propriétés ne sont pas nécessairement définis pour toutes les modèles d'imprimante.
(sinon, avec l'enregistreur de macro, refait ta mise en page et observe comment il va définir cette item avec ton imprimante problématique.
"Frasax" a écrit dans le message de news:
Bonjour à tous, J'ai une imprimante HP Deskjet 5550 serie Ma macro est la suivante : --------- Sub Impression()
Dim feuille As Worksheet For Each feuille In ActiveWindow.SelectedSheets ActiveSheet.PageSetup.PrintQuality = -2 feuille.PrintOut, Copies:=2, Preview:úlse
Next End Sub ------------------- Et ça fonctionne bien, par contre, avec l'imprimant HP psc 720, cette macro ne fonctionne pas, j'ai un bogue su r la ligne « ActiveSheet.PageSetup.PrintQuality:= -2 » N'Y a-t-il pas une formule pour un Print universel ? Merci d'avance de votre aide et meilleures salutations.
à moins que ceci soit vraiment essentiel
« ActiveSheet.PageSetup.PrintQuality:= -2 »
désactive tout simplement cette ligne de commande...
les pilotes des imprimantes ne fonctionnent pas tous de la même façon
et toutes les propriétés ne sont pas nécessairement définis pour toutes
les modèles d'imprimante.
(sinon, avec l'enregistreur de macro, refait ta mise en page et observe
comment il va définir cette item avec ton imprimante problématique.
"Frasax" <Frasax@discussions.microsoft.com> a écrit dans le message de news:
4CBABC3F-ABE2-4618-ACC1-66D5A57AB20B@microsoft.com...
Bonjour à tous,
J'ai une imprimante HP Deskjet 5550 serie
Ma macro est la suivante :
---------
Sub Impression()
Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
ActiveSheet.PageSetup.PrintQuality = -2
feuille.PrintOut, Copies:=2, Preview:úlse
Next
End Sub
-------------------
Et ça fonctionne bien, par contre, avec l'imprimant HP psc 720, cette macro
ne fonctionne pas, j'ai un bogue su r la ligne
« ActiveSheet.PageSetup.PrintQuality:= -2 »
N'Y a-t-il pas une formule pour un Print universel ?
Merci d'avance de votre aide et meilleures salutations.
à moins que ceci soit vraiment essentiel « ActiveSheet.PageSetup.PrintQuality:= -2 »
désactive tout simplement cette ligne de commande... les pilotes des imprimantes ne fonctionnent pas tous de la même façon et toutes les propriétés ne sont pas nécessairement définis pour toutes les modèles d'imprimante.
(sinon, avec l'enregistreur de macro, refait ta mise en page et observe comment il va définir cette item avec ton imprimante problématique.
"Frasax" a écrit dans le message de news:
Bonjour à tous, J'ai une imprimante HP Deskjet 5550 serie Ma macro est la suivante : --------- Sub Impression()
Dim feuille As Worksheet For Each feuille In ActiveWindow.SelectedSheets ActiveSheet.PageSetup.PrintQuality = -2 feuille.PrintOut, Copies:=2, Preview:úlse
Next End Sub ------------------- Et ça fonctionne bien, par contre, avec l'imprimant HP psc 720, cette macro ne fonctionne pas, j'ai un bogue su r la ligne « ActiveSheet.PageSetup.PrintQuality:= -2 » N'Y a-t-il pas une formule pour un Print universel ? Merci d'avance de votre aide et meilleures salutations.
Frasax
Merci MichDenis, Je vais essayer sans cette ligne et te tient au courant si ça fonctionne ! A+
"MichDenis" wrote:
à moins que ceci soit vraiment essentiel « ActiveSheet.PageSetup.PrintQuality:= -2 »
désactive tout simplement cette ligne de commande... les pilotes des imprimantes ne fonctionnent pas tous de la même façon et toutes les propriétés ne sont pas nécessairement définis pour toutes les modèles d'imprimante.
(sinon, avec l'enregistreur de macro, refait ta mise en page et observe comment il va définir cette item avec ton imprimante problématique.
"Frasax" a écrit dans le message de news:
Bonjour à tous, J'ai une imprimante HP Deskjet 5550 serie Ma macro est la suivante : --------- Sub Impression()
Dim feuille As Worksheet For Each feuille In ActiveWindow.SelectedSheets ActiveSheet.PageSetup.PrintQuality = -2 feuille.PrintOut, Copies:=2, Preview:úlse
Next End Sub ------------------- Et ça fonctionne bien, par contre, avec l'imprimant HP psc 720, cette macro ne fonctionne pas, j'ai un bogue su r la ligne « ActiveSheet.PageSetup.PrintQuality:= -2 » N'Y a-t-il pas une formule pour un Print universel ? Merci d'avance de votre aide et meilleures salutations.
Merci MichDenis,
Je vais essayer sans cette ligne et te tient au courant si ça fonctionne !
A+
"MichDenis" wrote:
à moins que ceci soit vraiment essentiel
« ActiveSheet.PageSetup.PrintQuality:= -2 »
désactive tout simplement cette ligne de commande...
les pilotes des imprimantes ne fonctionnent pas tous de la même façon
et toutes les propriétés ne sont pas nécessairement définis pour toutes
les modèles d'imprimante.
(sinon, avec l'enregistreur de macro, refait ta mise en page et observe
comment il va définir cette item avec ton imprimante problématique.
"Frasax" <Frasax@discussions.microsoft.com> a écrit dans le message de news:
4CBABC3F-ABE2-4618-ACC1-66D5A57AB20B@microsoft.com...
Bonjour à tous,
J'ai une imprimante HP Deskjet 5550 serie
Ma macro est la suivante :
---------
Sub Impression()
Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
ActiveSheet.PageSetup.PrintQuality = -2
feuille.PrintOut, Copies:=2, Preview:úlse
Next
End Sub
-------------------
Et ça fonctionne bien, par contre, avec l'imprimant HP psc 720, cette macro
ne fonctionne pas, j'ai un bogue su r la ligne
« ActiveSheet.PageSetup.PrintQuality:= -2 »
N'Y a-t-il pas une formule pour un Print universel ?
Merci d'avance de votre aide et meilleures salutations.
Merci MichDenis, Je vais essayer sans cette ligne et te tient au courant si ça fonctionne ! A+
"MichDenis" wrote:
à moins que ceci soit vraiment essentiel « ActiveSheet.PageSetup.PrintQuality:= -2 »
désactive tout simplement cette ligne de commande... les pilotes des imprimantes ne fonctionnent pas tous de la même façon et toutes les propriétés ne sont pas nécessairement définis pour toutes les modèles d'imprimante.
(sinon, avec l'enregistreur de macro, refait ta mise en page et observe comment il va définir cette item avec ton imprimante problématique.
"Frasax" a écrit dans le message de news:
Bonjour à tous, J'ai une imprimante HP Deskjet 5550 serie Ma macro est la suivante : --------- Sub Impression()
Dim feuille As Worksheet For Each feuille In ActiveWindow.SelectedSheets ActiveSheet.PageSetup.PrintQuality = -2 feuille.PrintOut, Copies:=2, Preview:úlse
Next End Sub ------------------- Et ça fonctionne bien, par contre, avec l'imprimant HP psc 720, cette macro ne fonctionne pas, j'ai un bogue su r la ligne « ActiveSheet.PageSetup.PrintQuality:= -2 » N'Y a-t-il pas une formule pour un Print universel ? Merci d'avance de votre aide et meilleures salutations.
