'Configure Active Printer
Dim oPrinter As Object = CallSub(initPrinter.ref, "getPrinter_Instance")'MakeNewPrinterInstance(printer)
CallSub2(oPrinter,"setSelected_Printer", printer.id)
CallSub2(oPrinter,"SetConnection_Parameters", printer.connectionParams)
printer.driver = oPrinter
'Add to Active Printers
ActivePrinters.Add(printer)