Propiedades impresora por defecto

[ecfisa]

Hola rociogomez, bienvenida a los foros de Club Delphi

Como es costumbre con los que se inician te invitamos a leer nuestra guía de estilo

Según entiendo, tenes dificultad para seleccionar la impresora si no es mediante el componente TPrinterSetupDialog. Si ese es el problema, podes intentar dándole valores a la propiedad PrinterIndex de la clase TPrinter, un ejemplo:

Código Delphi [-]
...
uses Printers;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items     := Printer.Printers;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  cb: TComboBox;
begin
  if cb.ItemIndex <> -1 then
    Printer.PrinterIndex := Printer.Printers.IndexOf(cb.Items[cb.ItemIndex]);

  // mostrar
  ShowMessageFmt('Impresora seleccionada: %s',[Printer.Printers[Printer.PrinterIndex]]);
end;

Saludos