IMPRIMIR DESDE DELPHI UNA HOJA DE EXCEL

[DOSERMOC]

HOLA A TODOS DESDE ESPAÑA:

OS ESCRIBO, YA QUE ME HA SURGIDO UN PROBLEMA CON UNA APLICACIÓN QUE ESTOY REALIZANDO PARA LA TRANSFERENCIA DE DATOS A UNA HOJA EXCEL, QUE LA UTILIZO COMO PLANTILLA. EL PROBLEMA ES A LA HORA DE IMPRIMIR LA PLANTILLA QUE NO SE COMO HACERLO, YA QUE LO HE PROBADO DE VARIAS MANERAS PERO ME DAN ERRORES.
SI ALGUIEN ME PUEDE DAR UNA SOLUCIÓN, SE LO AGRADECERIA.

UN SALUDO.

[trunksito]

Hola, espero ke este pekeño snipper te sirva de algo, primero lleno un ahoja excel kon numeros y lo mando a imprimir, si kieres ke apareska un PreView, puedes usar el komando PrintPreview, pero eso si la ventana debe de estar visible, ....... komo me dices ke estas usando un archivo komo plantilla, entonces puedes abrir el archivo kon el procedimiento Open así appExcel.WorkBooks.Open, saludos para España desde el Perú.

Código: Seleccionar todo

1. var


2.         appExcel: Variant;


3.     i, j: integer;


4. const


5.     numColumnas: integer = 3;


6.     numFilas: integer = 4;


7.    


8. begin


9.     appExcel := CreateOleObject('Excel.Application');    


10.     appExcel.WorkBooks.Add;


11.  


12.     for i := 2 to (numFilas + 2) do    


13.     begin


14.        for j := 1 to numColumnas do


15.           appExcel.WorkBooks[1].Worksheets[1].Cells[i, j] := j;


16.     end;


17.  


18.     appExcel.WorkBooks[1].Worksheets[1].PrintOut;


19.    


20.     appExcel.Quit;


21.     appExcel := Unassigned;


22. end;