Ma sub, impression lente pourquoi ?

Le
Frasax
Bonjour à tous,
J’ai cette formule pour imprimer un document, mais voilà l’impression est
lente. Mon imprimante est une HP 5550 series. Est-ce que la formule,
mentionne que l’imprimante doit obligatoirement imprimer en qualité
Supérieure plutôt qu’en
Ordinaire comme je désirerais imprimer.
-
Sub Impression()

Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
If (feuille.Index Mod 2) = 1 Then
feuille.PrintOut Preview:lse
End If
Next
End Sub

Merci de me renseigner et meilleures salutations.
Francis
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #3892661
bonjour Francis,

ActiveSheet.PageSetup.PrintQuality = -1

-1 --> FastDraft (la plus rapide)
-2 --> Ordinaire
-3 --> Normale
-4 --> Supérieur (la plus lente)

isabelle

Bonjour à tous,
J’ai cette formule pour imprimer un document, mais voilà l’impression est
lente. Mon imprimante est une HP 5550 series. Est-ce que la formule,
mentionne que l’imprimante doit obligatoirement imprimer en qualité
Supérieure plutôt qu’en
Ordinaire comme je désirerais imprimer.
-------
Sub Impression()

Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
If (feuille.Index Mod 2) = 1 Then
feuille.PrintOut Preview:úlse
End If
Next
End Sub
---------
Merci de me renseigner et meilleures salutations.
Francis



Frasax
Le #3888881
Bonsoir Isabelle,
Merci pour les renseignements. J’ai testé et ça fonctionne très bien.
Bonne nuit
Francis



"isabelle" wrote:

bonjour Francis,

ActiveSheet.PageSetup.PrintQuality = -1

-1 --> FastDraft (la plus rapide)
-2 --> Ordinaire
-3 --> Normale
-4 --> Supérieur (la plus lente)

isabelle

Bonjour à tous,
J’ai cette formule pour imprimer un document, mais voilà l’impression est
lente. Mon imprimante est une HP 5550 series. Est-ce que la formule,
mentionne que l’imprimante doit obligatoirement imprimer en qualité
Supérieure plutôt qu’en
Ordinaire comme je désirerais imprimer.
-------
Sub Impression()

Dim feuille As Worksheet
For Each feuille In ActiveWindow.SelectedSheets
If (feuille.Index Mod 2) = 1 Then
feuille.PrintOut Preview:úlse
End If
Next
End Sub
---------
Merci de me renseigner et meilleures salutations.
Francis






Publicité
Poster une réponse
Anonyme