--- dao/DelphiScanner/LabelPrint.pas	2016/10/19 06:59:57	3124
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/20 06:03:56	3129
@@ -19,10 +19,7 @@
     procedure PrintLabel( Stregkode : String);
 
 
-
-    // PrintLabelData bliver brugt til PrinterTest
-    // og blicer derfor nødt til at være Public
-    procedure PrintLabelData( LabelData : TLabelData);
+    procedure PrintTestLabel();
 
 
     function GetPrinterCount() : Integer;
@@ -37,7 +34,7 @@
 
     procedure PrintZPL( ZplData : string);
 
-
+    procedure PrintLabelData( LabelData : TLabelData);
     procedure PrintSimpelLabel( LabelData : TLabelData) ;
 
     procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
@@ -290,6 +287,21 @@
 
 end;
 
+procedure TLabelPrint.PrintTestLabel();
+var
+  LabelData : TLabelData;
+begin
+  LabelData := TLabelData.Create(nil);
+  LabelData.LabelType := 'simpel';
+  LabelData.SimpelLinie1 := 'Test Label';
+  LabelData.SimpelLinie2 := 'Test Label';
+  LabelData.SimpelLinie3 := 'Test Label';
+
+  PrintLabelData(Labeldata);
+
+  LabelData.Free();
+end;
+
 procedure TLabelPrint.PrintLabelData( LabelData : TLabelData);
 begin
   if LabelData.LabelType = 'zpl' then