--- dao/DelphiScanner/LabelPrint.pas	2016/10/19 06:59:57	3124
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/19 08:39:31	3125
@@ -19,10 +19,11 @@
     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 PrintLabelData( LabelData : TLabelData);
+
 
 
     function GetPrinterCount() : Integer;
@@ -37,7 +38,7 @@
 
     procedure PrintZPL( ZplData : string);
 
-
+    procedure PrintLabelData( LabelData : TLabelData);
     procedure PrintSimpelLabel( LabelData : TLabelData) ;
 
     procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
@@ -290,6 +291,21 @@
 
 end;
 
+procedure TLabelPrint.PrintTestLabel( Linie1, Linie2, Linie3 : String);
+var
+  LabelData : TLabelData;
+begin
+  LabelData := TLabelData.Create(nil);
+  LabelData.LabelType := 'simpel';
+  LabelData.SimpelLinie1 := Linie1;
+  LabelData.SimpelLinie2 := Linie2;
+  LabelData.SimpelLinie3 := Linie3;
+
+  PrintLabelData(Labeldata);
+
+  LabelData.Free();
+end;
+
 procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
 begin
   if LabelData.LabelType = 'zpl' then