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