/[projects]/dao/DelphiScanner/LabelPrint.pas
ViewVC logotype

Diff of /dao/DelphiScanner/LabelPrint.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3085 by torben, Thu Jul 28 21:25:58 2016 UTC revision 3086 by torben, Mon Aug 15 12:44:21 2016 UTC
# Line 114  begin Line 114  begin
114    with Printer do    with Printer do
115        begin        begin
116          BeginDoc;          BeginDoc;
117    
118          Canvas.Font.Size := Config.FontSizeRute;          Canvas.Font.Size := Config.FontSizeRute;
119          if (Length(RuteNummer) > 7) then          if (Length(RuteNummer) > 7) then
120          begin          begin
# Line 135  begin Line 136  begin
136          Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, BoghandlerNavn);          Canvas.TextOut(Config.XPosBoghandler, Config.YPosBoghandler, BoghandlerNavn);
137          EndDoc;          EndDoc;
138        end;        end;
139    
140    
141    
142      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
143    
144  end;  end;
145    
146    
# Line 226  begin Line 232  begin
232          ClosePrinter(hPrinter);          ClosePrinter(hPrinter);
233      end;      end;
234    end;    end;
235    
236    
237      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
238    
239  end;  end;
240    
241    
# Line 293  begin Line 303  begin
303    
304        EndDoc;        EndDoc;
305      end;      end;
306    
307    
308        Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
309    
310  end;  end;
311    
312    
# Line 416  begin Line 430  begin
430      end;      end;
431    
432    
433      Printers.SetPrinter( TPrinter.Create() ).Free();//Work around for KB3177725
434    
435  end;  end;
436    
437    
Legend:
Removed from v.3085  
changed lines
  Added in v.3086
  ViewVC Help
Powered by ViewVC 1.1.20