Impression en noir et blanc [Résolu]

mathew_bitshy 11 Messages postés mardi 30 mars 2004Date d'inscription 11 juillet 2005 Dernière intervention - 20 mai 2005 à 11:55 - Dernière réponse : mathew_bitshy 11 Messages postés mardi 30 mars 2004Date d'inscription 11 juillet 2005 Dernière intervention
- 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
mathew_bitshy 11 Messages postés mardi 30 mars 2004Date d'inscription 11 juillet 2005 Dernière intervention - 20 mai 2005 à 16:19
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.

Merci mathew_bitshy 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 124 internautes ce mois-ci

greg38bj 84 Messages postés jeudi 11 mars 2004Date d'inscription 17 novembre 2008 Dernière intervention - 20 mai 2005 à 16:13
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.