Seleccionar impresora en Excel

[RyAr]

Buenas, he metido lo que me has dicho y y un PrintDialog por si acaso, y em da error en al linea DlgPrint:= ExcelApp.Dialogs.Item[xlDialogPrint];

He cambiar algun nombre o meter algo mas?

Saludos

[Neftali [Germán.Estévez]]

Empezado por RyAr

em da error en al linea

Código Delphi [-]
DlgPrint:= ExcelApp.Dialogs.Item[xlDialogPrint];

He cambiar algun nombre o meter algo mas?

xlDialogPrinttiene pinta de ser un índice, así que prueba con valores 0, 1,...
Por lo demás no se me ocurre qué puede ser.

[RyAr]

Buenas, como bien dices era un indice, y probando lso valores 0, 1, 2, y 3 con el 1 s eme ha abierto el cuadro de dialogo de abrir archivo de excel, y con lso otros me ha dado error, así que será cuestión de probar.

Saludos, y gracias

[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

[Neftali [Germán.Estévez]]

Empezado por RyAr

Buenas, como bien dices era un indice, y probando lso valores 0, 1, 2, y 3 con el 1 s eme ha abierto el cuadro de dialogo de abrir archivo de excel, y con lso otros me ha dado error, así que será cuestión de probar.

Segun la doc. de microsoft:
xlDialogPrint = 8
xlDialogPrinterSetup = 9
xlDialogPrintPreview = 222

[RyAr]

Gracias, parece que conseguimos los numeritos a la vez Pero todo el mérito de esto es tuyo.

Muchas gracias, y saludos