Cambiar impresora tiempo Ejecucion

[olbeup]

Es muy simple, pon en el "uses" el "Printers", en un ComboBox carga todas la impresora que tienes, después sólo tienes que hacer "Printer.PrinterIndex = ComboBox.ItemIndex y listo.

Para cargar todas las impresora en un ComboBox lo que tienes que hacer es

Código Delphi [-]
  ComboBox1.Items.Clear;
  ComboBox1.Items.Assign(Printer.Printers);

Seleccionar la impresora por la cual quieres imprimir y cambiar el Printer.PrinterIndex = ComboBox1.ItemIndex.

Un saludo.

[marcoszorrilla]

Ejemplo de uso de la función que cité en su día.

Código Delphi [-]
procedure TfrDescuadresTodosProv.spListadoVistaClick(Sender: TObject);
begin
DmConex.Impres.Active:=True;
Application.CreateForm(TfrLstDescuadres, frLstDescuadres);
frLstDescuadres.ListaDescuadres.PrinterSettings.PrinterIndex:=GetImpresora(DmConex.ImpresListados.va  lue);
frLstDescuadres.ListaDescuadres.PreviewModal;
frLstDescuadres.Close;
DmConex.Impres.Active:=False;
end;

ListaDescuadres es un objeto TQuickRep. y frLstDescuadres es el formulario contenedor.

Un Saludo.

[rruffino]

He aplicado la funcion que dice Marcos y me anduvo perfecto. Muchas gracias!!!!