喫茶XRAYトップページ

[スレッド全体]
[12274] DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/14 (金) 20:43:51 taki
Delphi XE4 StarterでExcelを操作してみました。
マスターの
http://mrxray.on.coocan.jp/Delphi/plSamples/400_Excel_CreateObject.htm#00
を参考に(ほぼ丸写し)してテストしました。

starterなのでExcel2000.dcuがありませんので、usesからExcel2000をコメントアウトして
以下の定数を調べて定義してコンパイルしました。

const
  xlMaximized = -4137;
  xlShiftDown = -4121;
  xlValues = -4163;
  xlContinuous = 1;
  xlMedium = -4138;
  xlInsideVertical = 11;
  xlHairline = 1;
  xlInsideHorizontal = 12;
  xlEdgeTop = 8;
  xlThick = 4;
  xlEdgeBottom = 9;
  xlEdgeLeft = 7;
  xlEdgeRight = 10;
  xlCenter = -4108;
  xlDiagonalDown = 5;
  xlDot = -4118;
  xlDiagonalUp = 6;

やっていることは、
Excelのシートに既に作成されている印刷フォームのセルに
Delphiから値を書き込んで印刷させます。

印刷の部分はVBAのコードを参考にして
procedure TForm1.Button14Click(Sender: TObject);
begin
  if VarIsEmpty(ExcelObj) then exit;
  WorkSheet.PrintOut(1,1);  // 1ページから1ページ
end;
とすると印刷できました。

既にたくさんの印刷フォームがエクセルで作成されていたので
それを使わないのはもったいないと思い試してみました。

逆にExcel2000.pasの内容が気になりますが…。

[12276] Re:DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/14 (金) 21:08:32 Mr.XRAY
▼ takiさん

> 逆にExcel2000.pasの内容が気になりますが…。

Delphi 10.2.3 Community でしたらソースコードが付いていますから，
確認可能です．

[12278] Re2:DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/15 (土) 15:13:52 taki
▼ Mr.XRAYさん
> ▼ takiさん
>
> > 逆にExcel2000.pasの内容が気になりますが…。
>
> Delphi 10.2.3 Community でしたらソースコードが付いていますから，
> 確認可能です．

太っ腹の「Delphi 10.2.3 Tokyo」の事ですよね。

usesにExcel2000を追加してF1してもヘルプがみつかりません。
ダウンロード時にソースファイルを選択しなかったのかな？？？

[12279] Re3:DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/15 (土) 16:06:52 Mr.XRAY
▼ takiさん

> usesにExcel2000を追加してF1してもヘルプがみつかりません。
> ダウンロード時にソースファイルを選択しなかったのかな？？？

Microsoft Office 関係のヘルプはないです．ハイ．
もちろんオンラインヘルプにもありませんです．

[Excel - RAD Studio]
http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/Excel

Excel の定数名等の一覧は以下にありますが，日本語のページはありません．
https://docs.microsoft.com/en-us/office/vba/api/excel(enumerations)

もしかしたら VBA 関係のウェブページにあるかも知れません．
後はオフラインのヘルプですね．

[Microsoft Office 2007 - 2010 の VBA ヘルプ]
http://mrxray.on.coocan.jp/Delphi/Others/Office2007Help.htm

[12280] Re4:DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/15 (土) 18:47:28 taki
▼ Mr.XRAYさん
> ▼ takiさん
>
> > usesにExcel2000を追加してF1してもヘルプがみつかりません。
> > ダウンロード時にソースファイルを選択しなかったのかな？？？
>
> Microsoft Office 関係のヘルプはないです．ハイ．
> もちろんオンラインヘルプにもありませんです．
>

Delphi10.2をインストールしたPCでソースファイルを探したのですが、

C:\Program Files (x86)\Embarcadero\Studio\19.0\source

にはIndy10しか見つかりませんでした。T_T



[12285] Re5:DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/15 (土) 23:17:04 igy
▼ takiさん
> ▼ Mr.XRAYさん
> > ▼ takiさん
> >
> > > usesにExcel2000を追加してF1してもヘルプがみつかりません。
> > > ダウンロード時にソースファイルを選択しなかったのかな？？？
> >
> > Microsoft Office 関係のヘルプはないです．ハイ．
> > もちろんオンラインヘルプにもありませんです．
> >
>
> Delphi10.2をインストールしたPCでソースファイルを探したのですが、
>
> C:\Program Files (x86)\Embarcadero\Studio\19.0\source
>
> にはIndy10しか見つかりませんでした。T_T
>
>

もしかして、Starter版とか・・（違ってたら、ごめんなさい。）

[12286] Re6:DelphiからExcelの印刷機能を使うと楽ちん返信　削除
2018/9/16 (日) 14:59:06 taki
▼ igyさん
> ▼ takiさん
> > ▼ Mr.XRAYさん
> > > ▼ takiさん
> > >
> > > > usesにExcel2000を追加してF1してもヘルプがみつかりません。
> >
>
> もしかして、Starter版とか・・（違ってたら、ごめんなさい。）

igyさん　正解です。

バージョン情報をよくよく確認すると、Starterとなっていました。

お騒がせしました。


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82