Seleccionar impresora en Excel

[RyAr]

Bueno, al final he dado con el número, era el 8 paraq ue muestre el cuadro de dialogo de la impresora. Por si alguine quiere el codigo, sería el siguiente para pasar valores a excel e imprimirlos.

Código Delphi [-]
uses
...ComObj, OleServer;

procedure TForm1.Button2Click(Sender: TObject);
var
  ExcelApp: OLEVariant;
  fichero: string;
  DlgPrint: OleVariant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  try
    fichero:=ExtractFilePath(ParamStr(0))+'Plantilla.xls';
    ExcelApp.Workbooks.Open(fichero);
    ExcelApp.cells.item[5,'D']:=Edit1.Text;
    ExcelApp.cells.item[7,'I']:=12;
    ExcelApp.cells.item[8,'I']:=20;
    DlgPrint := ExcelApp.Dialogs.Item[8];
    DlgPrint.Show;
  finally
    if not VarIsEmpty(ExcelApp) then
    begin
    ExcelApp.DisplayAlerts := False;
    ExcelApp.Quit;
    ExcelApp := Unassigned;
    end;
  end;
end;

Gracias por haberme ayudado a sacar este codigo

Saludos