Print button, printer settings

Is it possible to chose witch printer, and set it to print in color in a VB code?
Now I'm using the following code:

Sub PrintLists()
Application.Dialogs(xlDialogPrint).Show
Worksheets("L_10_Ettermiddag").PrintOut From:=1, To:=2, Copies:=1
End Sub

But I don't want to see the printer dialog box, I want the settings to be in the code "use printer "name" and print in color.
We have loads of printers. And the one I want to use is default black and white.

// Thomas