--- dao/DelphiScanner/LabelPrint.pas	2016/07/29 09:22:29	3085
+++ dao/DelphiScanner/LabelPrint.pas	2016/08/15 12:44:21	3086
@@ -114,6 +114,7 @@
   with Printer do
       begin
         BeginDoc;
+
         Canvas.Font.Size := Config.FontSizeRute;
         if (Length(RuteNummer) > 7) then
         begin
@@ -135,6 +136,11 @@
         Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, BoghandlerNavn);
         EndDoc;
       end;
+
+
+
+  Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
+
 end;
 
 
@@ -226,6 +232,10 @@
         ClosePrinter(hPrinter);
     end;
   end;
+
+
+  Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
+
 end;
 
 
@@ -293,6 +303,10 @@
 
       EndDoc;
     end;
+
+
+    Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
+
 end;
 
 
@@ -416,6 +430,8 @@
     end;
 
 
+  Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
+
 end;