--- dao/DelphiScanner/LabelPrint.pas	2016/10/18 13:57:46	3123
+++ dao/DelphiScanner/LabelPrint.pas	2016/10/19 08:39:31	3125
@@ -17,20 +17,18 @@
     procedure CheckPrintQue(tjektype : string; PrinterNavn : String);
 
     procedure PrintLabel( Stregkode : String);
-    procedure PrintLabelData( LabelData : TLabelData);
 
-    procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
 
-    procedure PrintSimpelLabel( LabelData : TLabelData) ;
+    procedure PrintTestLabel( Linie1, Linie2, Linie3 : String);
 
+    // PrintLabelData bliver brugt til PrinterTest
+    // og blicer derfor nødt til at være Public
 
-    procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
 
 
-    procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+    function GetPrinterCount() : Integer;
 
 
-    function GetPrinterCount() : Integer;
 
   private
     parentForm : IParentForm;
@@ -40,9 +38,17 @@
 
     procedure PrintZPL( ZplData : string);
 
+    procedure PrintLabelData( LabelData : TLabelData);
+    procedure PrintSimpelLabel( LabelData : TLabelData) ;
+
+    procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
 
+    procedure SendTilPrinter_old(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
+    procedure PrintDaodirekteLabel_old( RuteNummer, Kommentar, BoghandlerNavn : String) ;
+
+
 
     function SavePChar(p: PChar): PChar;
     function GetCurrentPrinterHandle(): THandle;
@@ -285,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