Impression en noir et blanc [Résolu]

Messages postés
11
Date d'inscription
mardi 30 mars 2004
Dernière intervention
11 juillet 2005
- - Dernière réponse : mathew_bitshy
Messages postés
11
Date d'inscription
mardi 30 mars 2004
Dernière intervention
11 juillet 2005
- 20 mai 2005 à 16:19
Bonjour à tous,
J'essaye d'imprimer une Form en noir et blanc.
J'arrive à modifier l'orientation avec : Printer.Orientation = cdlLandscape (ou cdlPortrait)
Cela fonctionne correctement.
Mais lorsque je veux paramétrer le mode d'impression avec : Printer.ColorMode = vbPRCMMonochrome
ceci n'est pas pris en compte : la Form est toujours imprimée en couleur.
Est-ce que quelqu'un aurait des idées la dessus ? (L'utilise le composant CommonDialog)

Merci d'avance

Voici la partie de mon code :

Private Sub CommandButton1_Click()


On Error GoTo fin
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
'Orientation de la page
If CommonDialog1.Orientation = cdlLandscape Then
Printer.Orientation = cdlLandscape
Else
Printer.Orientation = cdlPortrait
End If
'Couleur ou noir&blanc
Printer.ColorMode = vbPRCMMonochrome
Me.PrintForm
Historique.Visible = True
fin:

End Sub
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
11
Date d'inscription
mardi 30 mars 2004
Dernière intervention
11 juillet 2005
3
Merci
En fait d'après certains, ca foire qu'avec des imprimante HP.
La seule solution que j'ai trouvé est de faire une seconde Form identique à celle ci mais en noir et blanc.
Et ensuite lorsque la personne veut imprimer en noir et blanc elle imprime la seconde Form qui est en noir et blanc.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 90 internautes nous ont dit merci ce mois-ci

Messages postés
84
Date d'inscription
jeudi 11 mars 2004
Dernière intervention
17 novembre 2008
0
Merci
Chez moi ça marche comme ça ...

Private Sub CommandButton1_Click()
On Error GoTo fin
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
'impression noir et blanc
Printer.ColorMode = vbPRCMMonochrome
'qualité d'impression
Printer.PrintQuality = 160
'Orientation de la page
If CommonDialog1.Orientation = cdlLandscape Then
Printer.Orientation = cdlLandscape
Else
Printer.Orientation = cdlPortrait
End If
Me.PrintForm
Historique.Visible = True
fin:

End Sub

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.