windows api调用打印对话框如何将用户选择的配置返回

   with commondialog1
      .printerdefault=true
      .showprint
      .flags=cdlpdprintsetup
  end with

 
  Dim pPrinter As IPrinter
  Dim pPaper As IPaper
 
  Set pPrinter = New EmfPrinter
  Set pPaper = New Paper
 
  pPaper.PrinterName = Printer.DeviceName
  pPaper.FormID=Printer.PaperSize
  pPaper.Orientation=printer.Orientation
  Set pPrinter.Paper = pPaper
  pPrinter即可作为IPageLayoutControl.Printer

 
  的确可以利用以上代码将打印机名传入

  当我用api启用打印对话框时
  没有类似.printerdefault=true的选项
  因此，我没有办法将设好的打印机及相应配置传入。

或者说，windows api调用打印对话框如何将用户选择的配置返回。这本身的返回类型实在太炫了，居然是个long，偶连打印机的devicename都得不到
  请问怎么处理这种问题