--- dao/DelphiScanner/Main.pas 2016/08/21 22:34:01 3097 +++ dao/DelphiScanner/Main.pas 2016/08/22 21:46:10 3100 @@ -2223,6 +2223,14 @@ kontrolKoreliste : string; nytRuteNummer, nyFarve : String; begin + if (PrintNyLabel = True OR chkAltidPrintLabel.Checked = True) then + begin + LabelPrint.PrintLabel( Stregkode ); + end; + + + exit; + if menuDaoDirekte1.Checked then RuteNummerST.Color := TUtils.HexToTColor(Farve); @@ -2287,10 +2295,10 @@ logTekst := RightStr(List1Msg, Length(List1Msg)-10); SkrivScanningLogFil(logTekst); - if (Config.PrinterNavn = 'Ingen') then - begin - PrintNyLabel := false; - end; +// if (Config.PrinterNavn = 'Ingen') then +// begin +// PrintNyLabel := false; +// end; if (PrintNyLabel = false) then // Hvis vi ikke printer label skal vi vise en 'rød skærm' alarm begin @@ -2408,7 +2416,7 @@ SkrivScanningLogFil(logTekst); LabelPrint.PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn) ; - + end; end; @@ -2867,10 +2875,10 @@ begin ShowMessage('Der er ikke installeret en printer på denne PC.'); end - else if Config.PrinterNavn = 'Ingen' then - begin - ShowMessage('Der er fravalgt printer i dette program.'); - end +// else if Config.PrinterNavn = 'Ingen' then //Det giver ikke længere mening at kunne fravælge printer +// begin +// ShowMessage('Der er fravalgt printer i dette program.'); +// end else begin UpdateScreen(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, '');