QWERTY is right. You would have to use these constants with Flags property:
Code:
Private Sub Command1_Click()
    With CommonDialog1
        .Flags = cdlPDNoPageNums Or cdlPDPageNums Or cdlPDCollate
        .ShowPrinter
    End With
End Sub
Check out VB's help or MSDN library for complete explanation of these constants.

------------------

Serge

Software Developer
[email protected]
ICQ#: 51055819