--- dao/DelphiScanner/Main.pas	2016/08/22 21:46:10	3100
+++ dao/DelphiScanner/Main.pas	2016/08/23 14:08:44	3107
@@ -2847,6 +2847,8 @@
     SmsKode := '999999';
     DBKbane := '999';
     Leveringssted := 'XXX';
+
+
     PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
     FocusControl(StregkodeST);
   end;
@@ -2864,6 +2866,7 @@
   SmsKode : String;
   DBKbane : String;
   Leveringssted : String;
+  LabelData : TLabelData;
 begin
   RuteNummer := 'Rutenr';
   Kommentar := '***** Kommentar *****';
@@ -2882,11 +2885,23 @@
   else
   begin
     UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');
-    SmsKode := '999999';
-    DBKbane := '999';
-    Leveringssted := 'XXX';
-    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+//    SmsKode := '999999';
+//    DBKbane := '999';
+//    Leveringssted := 'XXX';
+//    PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk);
+
+
+    LabelData := TLabelData.Create(nil);
+    LabelData.LabelType := 'simpel';
+    LabelData.SimpelLinie1 := '999999';
+    LabelData.SimpelLinie2 := '999';
+    LabelData.SimpelLinie3 := 'xxx';
+    LabelPrint.PrintLabelData(Labeldata);
+
     LabelPrint.CheckPrintQue('Test', Config.PrinterNavn);
+
+    LabelData.Free();
+
   end;
   FocusControl(StregkodeST);
 end;