1. CD1为printer commondialog 
   CD1.Flags = 64
   CD1.PrinterDefault = true
   CD1.Action = 5 'showprinter
2.
Printer.DeviceName
printer.Orientation