Q&A

  • 프로그램에서 Excel 출력
try

Exl := CreateOleObject('Excel.Application');

except

MessageDlg('Excel이 설치되어 있지 않습니다.', MtWarning, [mbok], 0);

Exit;

end;

exl.WorkBooks.Open('c:usc편성표.xls'); //파일열기

exl.Sheets['MBC'].select; //연 파일중 원하는 시트 불러오기

exl.Range['D8:D10'].interior.Color := RGB(192,192,192); //Color 회색

exl.Range['G150:G152'].interior.Color := RGB(100,100,100); //Color 진한회색

exl.Range['L150:L152'].interior.Color := $00FF8080; // Color 노랑색

exl.cells(100, 6).interior.Color := $00FF8080; // //Color보라색

//exl.Sheets['MBC'].print; 않됨

//exl.print; 않됨

exl.Visible := True;



이렇게 했는데요 출력이 않되네요

어떻게 하면 출력이 되나요?

1  COMMENTS
  • Profile
    홍동훈 2001.04.27 19:06
    아폴론 wrote:

    > try

    > Exl := CreateOleObject('Excel.Application');

    > except

    > MessageDlg('Excel이 설치되어 있지 않습니다.', MtWarning, [mbok], 0);

    > Exit;

    > end;

    > exl.WorkBooks.Open('c:usc편성표.xls'); //파일열기

    > exl.Sheets['MBC'].select; //연 파일중 원하는 시트 불러오기

    > exl.Range['D8:D10'].interior.Color := RGB(192,192,192); //Color 회색

    > exl.Range['G150:G152'].interior.Color := RGB(100,100,100); //Color 진한회색

    > exl.Range['L150:L152'].interior.Color := $00FF8080; // Color 노랑색

    > exl.cells(100, 6).interior.Color := $00FF8080; // //Color보라색

    > //exl.Sheets['MBC'].print; 않됨

    > //exl.print; 않됨

    > exl.Visible := True;

    >

    > 이렇게 했는데요 출력이 않되네요

    > 어떻게 하면 출력이 되나요?



    안녕하세요. 상쾌한 아칩입니다. ^^;

    print 메소드 대신에 printout 을 쓰면 됩니다.