--- dao/DelphiScanner/Main.pas 2016/10/19 06:59:57 3124 +++ dao/DelphiScanner/Main.pas 2016/10/19 08:39:31 3125 @@ -2903,16 +2903,15 @@ Kommentar : String; BoghandlerNavn : String; Koreliste : String; - Falsk : Boolean; - SmsKode : String; - DBKbane : String; - Leveringssted : String; - LabelData : TLabelData; +// Falsk : Boolean; +// SmsKode : String; +// DBKbane : String; +// Leveringssted : String; begin RuteNummer := 'Rutenr'; Kommentar := '***** Kommentar *****'; BoghandlerNavn := 'Modtagernavn'; - Falsk := False; +// Falsk := False; if (LabelPrint.GetPrinterCount() = 0) then @@ -2932,16 +2931,10 @@ // PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted, Falsk); - LabelData := TLabelData.Create(nil); - LabelData.LabelType := 'simpel'; - LabelData.SimpelLinie1 := '999999'; - LabelData.SimpelLinie2 := '999'; - LabelData.SimpelLinie3 := 'xxx'; - LabelPrint.PrintLabelData(Labeldata); - LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); + LabelPrint.PrintTestLabel('999999', '999', 'xxx'); - LabelData.Free(); + LabelPrint.CheckPrintQue('Test', Config.PrinterNavn); end; FocusControl(StregkodeST);