Impression en noir et blancRésolu

Question

Bonjour &#224; tous,
J'essaye d'imprimer une Form en noir et blanc.
J'arrive &#224; modifier l'orientation avec : Printer.Orientation = cdlLandscape (ou cdlPortrait)
Cela fonctionne correctement.
Mais lorsque je veux param&#233;trer le mode d'impression avec : Printer.ColorMode = vbPRCMMonochrome
ceci n'est pas pris en compte : la Form est toujours imprim&#233;e en couleur.
Est-ce que quelqu'un aurait des id&#233;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

mathew_bitshy · Accepted Answer

En fait d'apr&#232;s certains, ca foire qu'avec des imprimante HP.
La seule solution que j'ai trouv&#233; est de faire une seconde Form identique &#224; 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.

greg38bj · Answer

Chez moi &#231;a marche comme &#231;a ...

Private Sub CommandButton1_Click() 
    On Error GoTo fin
    CommonDialog1.CancelError = True
    CommonDialog1.ShowPrinter
   'impression noir et blanc
    Printer.ColorMode = vbPRCMMonochrome
   'qualit&#233; 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

Impression en noir et blanc

2 réponses

Discussions similaires