Modifier les propriétés de l'imprimante dans une macro Excel

Est-il possible que je peux changer les propriétés de l'imprimante à la couleur plutôt qu'en noir et blanc dans une macro Excel/VBA Excel? Je voudrais imprimer en couleur à partir de la macro, mais à chaque fois que je quitter excel, il définit la couleur au noir et blanc. Je voudrais que la macro pour définir la couleur d'arrière de couleur à chaque fois que je le lance. C'est le code que j'utilise d'impression:

Workbooks("Book1.xlsm").Worksheets("Sheet3").PrintOut from:=1, To:=(i / 2) - 0.5

Cela s'imprime chaque page effectuée par la macro, mais il le fait en noir et blanc. J'ai déjà essayé mais ça n'a rien changé:

Workbooks("Book1.xlsm").Worksheets("Sheet3").PageSetup.BlackAndWhite = False

Si il n'est pas possible de le faire en vba, je serais bien avec une solution d'API.

source d'informationauteur Tim.DeVries | 2014-06-09

  1. 5

    Plutôt que d'utiliser:

    Workbooks("Book1.xlsm").Worksheets("Sheet3").PrintOut from:=1, To:=(i / 2) - 0.5

    Vous pouvez simplement utiliser:

    Workbooks("Book1.xlsm").Worksheets("Sheet3").PrintOut

    et vous pouvez sauter:

    Workbooks("Book1.xlsm").Worksheets("DoNotDelete").PageSetup.BlackAndWhite = False

    Car il modifie uniquement la feuille de calcul des paramètres, et non pas les paramètres d'impression.

    Mais aussi loin que l'impression en couleur va vous êtes probablement mieux de juste créer un raccourci de la même imprimante que deux fois dans le control panel et d'en créer un à la couleur par défaut et un autre par défaut en noir et blanc. De cette façon, vous pouvez définir la couleur ou noir/blanc, par de l'imprimante que vous choisissez.