Tjenare

Skulle någon kunna förklara för mig exakt hur jag kopplar ihop CommonDialog.showPrint() med Printer-objektet?

myCommonDialog.ShowPrinter
Printer.copies = myCommonDialog.copies
Printer.font = "verdana"
osv...

Hur sätter jag Printer.DeviceName till den som är vald i CommonDialogen?
Hur kopplar jag alla inställningar liksom?

Tack på förhand

Devicename behöver man inte föra över.
När man väljer skrivare i dialogen, sätts automatiskt Printer objeketets devicename till valda skrivaren.

Private Sub Command1_Click()
CommonDialog1.ShowPrinter
MsgBox Printer.DeviceName, vbInformation
End Sub