--- dao/DelphiScanner/LabelPrint.pas	2016/10/19 08:39:31	3125
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/20 07:31:23	3131
@@ -19,11 +19,7 @@
     procedure PrintLabel( Stregkode : String);
 
 
-    procedure PrintTestLabel( Linie1, Linie2, Linie3 : String);
-
-    // PrintLabelData bliver brugt til PrinterTest
-    // og blicer derfor nødt til at være Public
-
+    procedure PrintTestLabel();
 
 
     function GetPrinterCount() : Integer;
@@ -36,6 +32,7 @@
     var Config: TConfiguration;
 
 
+
     procedure PrintZPL( ZplData : string);
 
     procedure PrintLabelData( LabelData : TLabelData);
@@ -291,15 +288,15 @@
 
 end;
 
-procedure TLabelPrint.PrintTestLabel( Linie1, Linie2, Linie3 : String);
+procedure TLabelPrint.PrintTestLabel();
 var
   LabelData : TLabelData;
 begin
   LabelData := TLabelData.Create(nil);
   LabelData.LabelType := 'simpel';
-  LabelData.SimpelLinie1 := Linie1;
-  LabelData.SimpelLinie2 := Linie2;
-  LabelData.SimpelLinie3 := Linie3;
+  LabelData.SimpelLinie1 := 'Test Label';
+  LabelData.SimpelLinie2 := 'Test Label';
+  LabelData.SimpelLinie3 := 'Test Label';
 
   PrintLabelData(Labeldata);