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