Hallo. Ich bin an einem kleinen Projekt an der Arbeit. Ich lasse von Delphi zwei ExcelSheets generieren und möchte diese von zwei Unterschiedlichen Druckern ausdrucken lassen. Bis zum drucken klappt alles Wunderbar.
Ich habe einen PrintDialog probiert und dieser erkennt auch alle meine Drucker. Ich öffne dann das jeweilige Blatt und
übergebe meiner Druckerprozedure folgene Parameter:
Delphi-Quelltext
1: 2: 3: 4: 5:
| procedure TForm1.Drucken (WelcherDrucker: integer); begin Printer.PrinterIndex:= WelcherDrucker; ExcelWorksheet1.PrintOut end; |
Beim Createn des Forms lasse ich mir die vorhandenen Drucker in einer Listbox anzeigen.. klappt alles wunderbar.
Mein Problem ist, dass ich egal welche Zahl (ob 1, 2, 3 oder -1 für den Standartdrucker) übergebe immer der Standart-Drucker das Dokument printet.
Kann mir jemand sagen, was ich falsch mache?
Danke
Moderiert von
raziel: Code- durch Delphi-Tags ersetzt.