2 Drucker im Programm ansprechen

[Schwedenbitter]

Hallo,

ich muss da leider nochmal nachhaken. Bei mir funktioniert der folgende Code insofern nicht, als dass immer auf den Standarddrucker gedruckt wird. Egal was ich auch einstelle:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
// Drucker im System ermitteln und aktuellen anzeigen
begin
   ComboBox1.Items:=Printer.Printers;
   If ComboBox1.Items.Count>0 Then
      ComboBox1.ItemIndex:=Printer.PrinterIndex;
end; //--> das klappt noch

Procedure TForm1.Button1Click(Sender: TObject);
// Ausdruck auf gewählten Drucker
Begin
   Printer.Printers.IndexOf(ComboBox1.Text);
   Application.MessageBox(PAnsiChar(ComboBox1.Text),'');
   Printer.BeginDoc;
   Printer.Canvas.StretchDraw(Rect(0,0,Printer.PageWidth,Printer.PageHeight),Image1.Picture.Graphic);
   Printer.EndDoc;
End; //--> das klappt nicht mehr, wobei ComboBox1.Text nicht leer ist

Was mache ich da falsch?

Danke für die Tipps, Alex