--- dao/DelphiScanner/LabelPrint.pas 2016/10/19 10:07:50 3127 +++ dao/DelphiScanner/LabelPrint.pas 2016/10/20 06:02:09 3128 @@ -19,7 +19,7 @@ procedure PrintLabel( Stregkode : String); - procedure PrintTestLabel( Linie1, Linie2, Linie3 : String); + procedure PrintTestLabel(); // PrintLabelData bliver brugt til PrinterTest // og blicer derfor nødt til at være Public @@ -291,15 +291,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);