Seltsames Druckerverhalten

[Patrick Esche]

Hallo zusammen!<br>
In meiner Applikation soll der Anwender zwei Druckerschächte auswählen können und ebenfalls wählen, bei welcher Seite der Druckerschacht gewechselt werden soll. Da es zu einer Exception führt, wenn während des Druckens der Druckerschacht gewechselt wird, drucke ich jede Seite einzeln, wobei ich vor dem Drucken den entsprechenden Druckerschacht aktiviere.<br>
Mein Code sieht folgendermaßen aus:<br>
for i:=1 to PrintCopies do<br>
for j:=PrintStartPage to PrintEndPage do<br>
begin<br>
if j<ChangeBinPage then setPrinterBin(FirstBinID) else setPrinterBin(SecondBinID);<br>
Printer.BeginDoc;<br>
PrintDevice:=Printer.CanVas.Handle;<br>
PrintPage(j);<br>
Printer.EndDoc;<br>
end;<br>

Wenn PrintCopies=1 ist, funktioniert das ganze wunderbar - aber wenn PrintCopies>1, dann wird jede Seite doppelt gedruckt (bei Seitenzahl=2 und Printcopies=2 wird also zuerst 2x Seite 1 gedruckt, dann 2x Seite 2. Dann wieder 2x Seite 1 und wieder 2x Seite 2...)<br>
Hat irgendjemand eine Idee, woran das liegen kann?<br>
Danke<br>
Patrick

[KarstenKattner]

Printcopies wirkt auf den Drucker direkt und erdrcukt mit einem Druckbefehl die entsprechende Anzahl aus.
1. for i... einfach weglassen, dann wirds aber nicht sortiert sein.<p>
2.Du müsstes den Anfang ungefähr so ändern <p>
n:=PrintCopies; PrintCopies:=1; For i:=1 to n do ......<p>
und nicht vergessen nach der 1. Kopie den Druckschacht wieder für die 1. Seite einzustelle