Drucker wechseln/ändern

[Dani]

Printer.PrinterIndex := EinIndex; und dann ganz normal mit dem Printer-Singleton weiterarbeiten.

Beispiel:

Delphi-Quellcode:

//Combobox mit verfügbaren Druckern befüllen
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Assign(Printer.Printers);
end;

//Auswahl übernehmen
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  Printer.PrinterIndex := ComboBox1.ItemIndex;
end;

//Testdokument drucken
procedure TForm1.Button1Click(Sender: TObject);
var P: TPrinter;
begin
  if ComboBox1.ItemIndex <> -1 then begin
      P := Printer;
      P.BeginDoc;
      try
        P.Canvas.Font.Size := 32;
        P.Canvas.TextOut(100, 100, 'Hallo, Welt!');
      finally
        P.EndDoc;
      end;
  end else begin
    MessageDlg('Nix ausgewählt!', mtError, [mbOK], 0);
  end;
end;