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]);
ShowMessageFmt('Impresora seleccionada: %s',[Printer.Printers[Printer.PrinterIndex]]);
end;
Saludos