Problem mit Printer druckausgabe

[Privateer3000]

Hiho Gemeinde,

mit folgender procedure soll gedruckt werden:

Delphi-Quellcode:

if bonanz1 = true then bonrep.Prepare;
...
   try
   //bonrep.Units:=Pixels; bonrep.Page.Length:=460+(zaer*20);
   case druckbtisch of
   0: bonrep.PrinterSettings.PrinterIndex:=Printer.Printers.IndexOf(drucker);
   1: bonrep.PrinterSettings.PrinterIndex:=Printer.Printers.IndexOf(drucker2);
   end;
  if bonanz1 = true then bonrep.Preview else bonrep.Print;
  finally
   bonrep.Printer.Free;
  end;
...

Jetzt ist es so, dass manchmal gedruckt und manchmal nicht.
Dabei gibt der Druckertreiber eine Fehlermeldung aus:

Zitat:

Epson/Printer Device
Unable to print: Fatal Error has occured

zum obigen Code: boanz1 ist ein Boolean der Druck ausgibt oder nicht
bonrep ist eine Quickreportkomponente die imho ordentlich konfiguriert ist.
Wenn es gegeben ist dass der Treiber sauber funktioniert, gibt es irgendwas
im o.g. Code was hängen kann?
Denn wenn ein Druck fehlschlug, geht der nächste dafür wieder sauber raus.
Andererseits, wenn es im Code irgendwo knallt gäbe es keinen Sinn, die procedure wird vollständig abgearbeitet.

Grüße