Exemple

Dim PrSet as Object Dim ConnList as Object Set PrSet = CreateObject("ZIEWin.autECLPrinterSettings") Set ConnList = CreateObject("ZIEWin.autECLConnList") ' Initialize the connection ConnList.Refresh PrSet.SetConnectionByHandle(ConnList(1).Handle) PrSet.SetPDTMode(True, "epson.pdt") 'Set PDT mode PrSet.SetPDTMode(False) 'Set non-PDT mode (also called GDI mode)