10. April 2013 11:01
FindPrinter:
IF ( UserSetup.GET( USERID ) = FALSE ) THEN
  UserSetup.INIT;
IF NOT PrinterSelection.GET(USERID,ReportID,'') THEN
  IF NOT PrinterSelection.GET('',ReportID,UserSetup."Responsibility Center") THEN
    IF NOT PrinterSelection.GET('',ReportID,'') THEN
      IF NOT PrinterSelection.GET(USERID,0,'') THEN
        IF NOT PrinterSelection.GET('',0,UserSetup."Responsibility Center") THEN
          IF PrinterSelection.GET('',0,'') THEN;
IF NOT Printer.GET(PrinterSelection."Printer Name") THEN BEGIN
  IF PrinterSelection."Printer Name" <> '' THEN BEGIN
    Printer.SETRANGE(Name,SELECTSTR(1,PrinterSelection."Printer Name"));
    IF Printer.FIND('-') THEN
      PrinterSelection."Printer Name" := STRSUBSTNO('%1,%2',Printer.Name,Printer.Device)
     END;
  END;
// stop MST1-03.mkl
EXIT(PrinterSelection."Printer Name");
11. April 2013 08:16
11. April 2013 12:58
18. April 2013 13:17
18. April 2013 13:26
18. April 2013 13:50