Ver Mensaje Individual
  #2  
Antiguo 04-10-2012
Avatar de juanlaplata
juanlaplata juanlaplata is offline
Miembro
 
Registrado: ene 2007
Ubicación: La Plata, Bs. As. (Argentina)
Posts: 212
Reputación: 18
juanlaplata Va por buen camino
Hola, asi paso imagenes a excel:

Código Delphi [-]
var ExcelApp, Libro: Variant;
     Path : string;
     v_ancho, v_alto, v_top, v_left : real; 

....

ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.DisplayAlerts:=false;

// crea el archivo
ExcelApp.WorkBooks.Add();

// trabajo sobre la hoja
Libro := ExcelApp.WorkBooks[1].ActiveSheet;

Path := 'C:\imagen.bmp';

// guardar imagen
Timage1.Picture.SaveToFile(Path);

v_ancho := 100 ;
v_alto := 10 ;
v_top := 0 ;
v_left := 0 ;

//agregar imagen a excel
Libro.Shapes.AddPicture(Path, 0, 1, v_left, v_top, v_ancho, v_alto);

// borra la imagen guardada
DeleteFile(Path);

//guardar archivo excel
Libro.SaveAs(SaveDialog1.FileName);

v_ancho, v_alto, v_top, v_left : son el tamaño y ubicacion de la imagen en el excel.

Deberias buscar la forma de guardar tu factura (canvas), como BMP y vualaaaa !!
Saludos, espero sirva de algo ...

Última edición por juanlaplata fecha: 04-10-2012 a las 15:04:58.
Responder Con Cita