Windows 10 printerselection

The code looks like this - 2 funktions in codeunit to handle it (Select printer by name and RestorePrinterSelection:

SelectPrinterByName("User ID" : Code[20];"Report ID" : Integer;"Printer Name" : Text[30])
PrinterTable.SETFILTER(Name, '@' + "Printer Name", "Printer Name");
IF PrinterTable.FIND('-') THEN
BEGIN
//Store old selection.
PrinterRestoreUserID := "User ID";
PrinterRestoreReportID := "Report ID";

IF PrinterSelection.GET("User ID", "Report ID") THEN
BEGIN
PrinterRestorePrinterName := PrinterSelection."Printer Name";
BoolInsert := FALSE;
END ELSE
BEGIN
PrinterRestorePrinterName := '';
PrinterSelection.INIT;
PrinterSelection."User ID" := "User ID";
PrinterSelection."Report ID" := "Report ID";
BoolInsert := TRUE;
END;

PrinterSelection."Printer Name" := PrinterTable.ID;

IF BoolInsert THEN
PrinterSelection.INSERT
ELSE
PrinterSelection.MODIFY;
END ELSE
BEGIN
ERROR(STRSUBSTNO(Text033, "Printer Name"));
END;

And then the restore part:



RestorePrinterSelection()
IF PrinterRestorePrinterName <> '' THEN
BEGIN
IF PrinterSelection.GET(PrinterRestoreUserID, PrinterRestoreReportID) THEN
BEGIN
PrinterSelection."Printer Name" := PrinterRestorePrinterName;
PrinterSelection.MODIFY;
END;
END ELSE
BEGIN
IF PrinterSelection.GET(PrinterRestoreUserID, PrinterRestoreReportID) THEN
BEGIN
PrinterSelection.DELETE();
END;
END;