List 7-55　その時点のデフォルトプリンタの状態をDEVNAMES構造体に格納する

---

  1： Public vDevNames As DEVNAMES
  2： 
  3： vDevNames.wDriverOffset = 8
  4： vDevNames.wDefault = 0
  5： vDevNames.wDeviceOffset = vDevNames.wDriverOffset + 1 + Len(Printer.DriverName)
  6： vDevNames.wOutputOffset = vDevNames.wDeviceOffset + 1 + Len(Printer.DeviceName)
  7： vDevNames.extData = Printer.DriverName & Chr(0) & _
   　                     Printer.DeviceName & Chr(0) & Printer.Port & Chr(0)