Voce vai precisar configurar manualmente.
No commondialog vc pega o nome da impressora, certo?
Bem, o objeto printer tem a propriedade DeviceName, que retorna o nome da impressora associada aquela instancia do Printer...
Basta voce selecionar na collection Printers a impressora que tem o nome selecionado no commondialog..
Por exemplo, se vc guardou o nome da impressora em uma var chamada Imp.
Dim p as Printer
For Each p In Printers
If p.DeviceName = Imp Then Set Printer = p
Next
Bem, a partir dai voce vai ter que preencher manualmente as propriedades do printer com as inf. do CommonDialog...
printer.Copies = ...
printer.PaperSize = ...
printer.PrintQuality = ...
Bem... acho que isso ajuda...