델러브 wrote:

> 안녕하세요.

> 엑셀생성시에 좌우의 여백을 조절할수있을까요.. 데이타가 나온다음에는 아래에다가 이미지도 뿌려야하고요.

> ㅠㅠ 며칠째 찾는데..제가 못찾는지..흑..알려주세요.

> 그리고 출력시에 가로로 인쇄가 나오게 해야하는데..코딩상으로 설정이 가능한가요..

////////////////////////////////////////////////////////

편법으로요 이미지를 챠트의 백그라운드에 붙이는 방법이있습니다.

여백설정, 쪽가로설정도 있습니다

폼에 Server의 ExcelApplication1, ExcelChart1, ExcelWorksheet1, ExcelWorkbook1

4개 컴포넌트 붙이고요, 유닛에 Excel97, OleServer, ActiveX들이 있나보고요.

폼SHOW에서 아래소스 테스트해봐요.



/////////////////////////////////////////////////////////////////

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Excel97, OleServer, ActiveX;



type

TForm1 = class(TForm)

ExcelApplication1: TExcelApplication;

ExcelChart1: TExcelChart;

ExcelWorksheet1: TExcelWorksheet;

ExcelWorkbook1: TExcelWorkbook;

procedure FormShow(Sender: TObject);

private



{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormShow(Sender: TObject);

var

ChObj: ChartObject;

lcid: integer;

begin

lcid := GetUserDefaultLCID;

ExcelApplication1.Visible[lcid]:=True;

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(TOleEnum(xlWBATWorksheet), lcid));

ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);

ExcelWorksheet1.Name := 'Data';



//여백단위가 인치인것같습니다

(ExcelWorkbook1.Worksheets[1] as _Worksheet).PageSetup.TopMargin := 10;

(ExcelWorkbook1.Worksheets[1] as _Worksheet).PageSetup.BottomMargin := 10;

(ExcelWorkbook1.Worksheets[1] as _Worksheet).PageSetup.LeftMargin := 10;

(ExcelWorkbook1.Worksheets[1] as _Worksheet).PageSetup.RightMargin := 10;



//쪽 가로로 설정

(ExcelWorkbook1.Worksheets[1] as _Worksheet).PageSetup.Orientation := 2;



//챠트를 이용 그림위치지정과 그리기

ChObj := (ExcelWorksheet1.ChartObjects(EmptyParam, lcid) as ChartObjects).Add(0, 170, 400, 250);

ExcelChart1.ConnectTo(ChObj.Chart as _Chart);

ExcelChart1.SetBackgroundPicture('C:My DocumentsMy Pictures계측부분.jpg');

end;



end.